OXIESEC PANEL

Name	Size	Modified	Perms
📄 -d	10 bytes	02/03/2023 07:34:13 AM	rw-r--r--
📁 ..	-	02/03/2023 08:06:37 AM	rwxr-xr-x
📄 config.pl	7.61 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 cross2normal.pl	3.71 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 dataextract.sh	2.51 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 etl.pl	5.42 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 etlproc	9.99 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 func.pl	4.01 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 globvar.sh	127 bytes	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 initetl.pl	1.88 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 libawk.awk	3.07 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 makeXtab2NormalExcel.pl	5.73 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 process.pl	6.91 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 process_changed.pl	5.69 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 readwrite.pl	4.16 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 rxcsv.pl	7.94 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 rxdb.pl	11.06 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 rxfile.pl	4.68 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 rxsalesforce.pl	3.5 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 rxxml.pl	13.83 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 rxxml2.pl	4.18 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 sendmail.pl	1.06 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 sourcequery.pl	4.18 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 sql.pl	23.98 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 store.pl	7.97 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 tags	13.14 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 task.pl	33.48 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📁 test	-	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 userfunc.pl	5.05 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 valid.pl	3.64 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 workflow.pl	3.94 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 xform.pl	2.62 KB	02/03/2023 07:34:13 AM	rwxr-xr-x

Editing: func.pl

#!/usr/bin/perl

sub isset{
	my $var = shift;

if($var eq ''){
		return 0;
		}
	else{
		return 1;
		}
	}

sub isvalid{
	my $status = shift;
	
	return ($status eq 'V') ? 1 : 0 ;
#	if($status eq 'V') {
#		return 1;
#		}
#	else{
#		return 0;
#		}
	}

sub format_dbtype{
	my $dbtype = shift;
	if(lc($$dbtype) eq 'mysql'){
		$$dbtype = 'mysql';
		}
	if(lc($$dbtype) eq 'oracle'){
		$$dbtype = 'Oracle';
		}
	}

sub printtime{
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
	$mon++;
	$year += 1900; # :-o Bcoz $year is the number of years since 1900, We are conv it in 4 digit

my $rettime = weekday($wday)." ".$mday."-".$mon."-".$year." ".$hour.":".$min.":".$sec;
	$rettime;
	}
	
sub mymonth{ # Isn't it easy pe^rl ...?? :-VK
	local($m) = @_[0];
	("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")[$m]; #Can use @_[0] directly .. but readability ...
	}

sub weekday{ # Isn't it easy pe^rl ...?? :-VK
	local($wd) = @_[0];
	("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[$wd]; #Can use @_[0] directly .. but readability ...
	}
                                                                                                                             
sub timestamp{
	my $datetime = `date +%s`;
	my $datetime =~s/\n//;
	return $datetime;
	}
	
sub isnumeric{
	#my $str = shift;
	return (@_[0] =~ m#^[-+]{0,1}\d+$#g) ? 1 : 0 ;
#	return (@_[0] =~ m/^\d+$/g)?1:0;
#	if($str =~ m/^(\-?\d*\.\d+)$/g){return 1;print "Yes\n";	}else{	return 0;print "No\n";	}
}

sub makeharglist{
	my @arglist = @_;
	my %harg;
	my @argv = ();
#	printlog($MAX, "makeharglist:Argument list: @arglist");

$harg{"db"} = $ENV{"ED_DB"};
	
	foreach $passedarg(@arglist){
		@argv = split(' ', $passedarg);

foreach $arg(@argv){
			my @argval = split('=', $arg);
			$harg{@argval[0]} = @argval[1];
		}
	}
	
	%harg;
	}

sub get_execmd{#Filename as argument. Return interpreter to execute file with this Extension.
	return getexe_for_ext(get_file_extension(@_[0])); 
	}

sub get_file_extension{#FIle Name As Argument. Return Extension of file
	$cmd = shift;
	printlog($MAX, "function=get_file_extension(), Aggument Recvd : $cmd");

my $ext = $cmd;#Safe Side

$ext =~ s#(.+)\.(.+)#$2#gi;

printlog($MAX, "get_file_extension(), Return Extension : $ext");

return ($ext eq $cmd) ? "" : "$ext";
	#   if($ext eq $cmd){
	#       return '';  #   print "No Extension\n";
	#       }
	#   else{
	#       return $ext;#   print "Extension : $ext \n";
	#       }
	}

sub getexe_for_ext{#Extension as input. Return interpreter to execute file with this Extension.
	my %exe;

$exe{'pl'} = 'perl';
	$exe{'sh'} = 'sh';
	$exe{'awk'} = 'awk';
	$exe{'tar'} = 'tar';
	$exe{'gz'} = 'gunzip';
	$exe{'c'} = 'cc';   $exe{'cc'} = 'cc';  $exe{'cpp'} = 'c++';
	return $exe{@_[0]}
	}

sub escape_val{
	my $str = shift;
	
	$str =~ s/\./\\\./g;
	$str =~ s/\$/\\\$/g;
	$str =~ s/\*/\\\*/g;
	$str =~ s/\+/\\\+/g;

$str;
	}

sub isexist{	
	my $a = shift;
	if($a eq ''){
		return "N/A";
		}
	else{
		return "$a";
		}
	}

sub truefalse{
	my $tf = shift;

if($tf =~ m/Y/gsi){
		return "YES";
		}
	else{
		return "NO";
		}
	}

sub mysqldate{
	my $indt = shift;

$DSEP = '-';
	($d, $m, $y) = $indt =~ m/(\d+)$DSEP(\d+)$DSEP(\d+)/gsi;
	sprintf($outdt, "%d-%d-%d", $y, $m, $d);
	return $outdt;

my ($d, $m, $y);
	if($DSEP eq ""){
		$DESP = "-";
		$DSEP = "\\".$DSEP;
	}
	if(($DFMT eq "") or ($DFMT eq "%d-%m-%y")){
		($d, $m, $y) = $indt =~ m/(\d+)$DSEP(\d+)$DSEP(\d+)/gsi;
		$outdt = "$y$DSEP$m$DSEP$d";
	}
	elsif($DFMT eq "%y-%m-%d"){
		($y, $m, $d) = $indt =~ m/(\d+)$DSEP(\d+)$DSEP(\d+)/gsi;
	}

return $outdt;
}

sub math{
	$arg = shift;
	@op = {'+', '-'};

($num1, $arg2) = $arg =~ /(\d+).*/gsi;
	printlog($MAX, "math():RECVD $num1 & $arg2 from $arg");
}

sub solve{
	my $fun = shift;
	my $arg = shift;
	my $cols = shift;
	my $data = shift;

@out = split /\+/, $arg;
return 'OOOOKKKKKK';
}

sub get_masked_files{
	my ($dirdsn, $maskfmt) = @_;

my @files = <$dirdsn/$maskfmt>;
        printlog($MAX, "get_maxed_files:dirdsn=$dirdsn maskformat=$maskfmt. return files=@files");
	return @files;
}