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: userfunc.pl

use Spreadsheet::ParseExcel::Utility qw(ExcelFmt);

sub getmydate{
	my $dt  = shift;
	my $len = length($dt);
	my $pr =  substr $dt, 0, $len;
	my ($dat, $tim) = $pr =~ m/([^:]+)\s(.+)/g;
	$dat;
}

#Get time from datetime
sub getmytime{
	my $dt  = shift;
	my $tm  = shift;

my $pr =  substr $dt, 0, length($dt);
	my $tm =  substr $tm, 0, length($tm)-1;
	my ($dat, $tim) = $pr =~ m/([^:]+)[ ]+(.+)/g;
	$tim;
}

#Convert Rs.XXX to XXX OR $200 to 200
sub currency{
	my $in = shift;

return getnumber($in);
	}

#Get number only from string
sub getnumber{
	my $in = shift;
	
	$in =~ s/[^0-9\.]//gsi;
	return $in;	
}

sub concat{
	my @arg = @_;

$b = '';
	foreach $a(@arg){
		$b = $b.$a;
		}

return $b;
	}

sub lower{
	my $d = shift;
	return lc($d);
	}

sub upper{
	my $d = shift;
	return uc($d);
	}

#Function to replace [$to] from [$from] int [$str]
sub replace{
	my ($str, $to, $from) = @_;
	$str =~ s/$to/$from/gsi;
	return $str;
}

sub trim{
	my $instr = shift;
	my $tchar = shift;

#	printlog($MAX, "#####  $inst ####");
	#$instr =~ s/[\s]+/$tchar/gsi;
	$instr =~ s/[\s]+$/$tchar/gsi;
	$instr =~ s/^[\s]+/$tchar/gsi;
	return $instr;
	}

sub rtrim{
	my $instr = shift;
	my $tchar = shift;

$instr =~ s/[\s]+$/$tchar/gsi;
	return $instr;
	}

sub ltrim{
	my $instr = shift;
	my $tchar = shift;

$instr =~ s/^[\s]+/$tchar/gsi;
	return $instr;
	}

#Accepts input_date , date_format And converts that to mysql date format YYYY-MM-DD
sub makedate{
	my $date = shift;
	my $fmt = shift;
        my $time;

@array=split(/ /, $date);
        $dt=@array[0];
        $tm=@array[1];
        $fm=@array[2];
	#Supported Delim Regex
	my $dlm = '[\.\/\-\s]*';
	my $D = '([0-9]{1,2})';
	#my $M = '([A-Z0-9]{1,3})';
	my $M = '([A-Z]{3}|[0-9]{1,2})'; #BUG:677
	my $Y = '([0-9]{2,4})';
	my ($d, $m, $y) = ();
	
	if($fmt eq 'DMY'){
		($d, $m, $y) = $dt =~ /$D$dlm$M$dlm$Y.*/i;
	}
	elsif($fmt eq 'MDY'){
		($m, $d, $y) = $dt =~ /$M$dlm$D$dlm$Y.*/i;
	}
	elsif($fmt eq 'YMD'){
		($y, $m, $d) = $dt =~ /$Y$dlm$M$dlm$D.*/i;
	#	return "[($y, $m, $d)]";
	}
	elsif($fmt eq 'MY'){
		($m, $y) = $dt =~ /$M$dlm$Y.*/i;
		$d = '1';
	}
	elsif($fmt eq 'YM'){
		($y, $m) = $dt =~ /$Y$dlm$M.*/i;
		$d = '1';
	}

my ($mth, $yr, $dat) = ();
	#Formatting Year
	if($y < 60){
		$yr = 2000 + $y;
	}
	elsif($y < 99){
		$yr = 1900 + $y;
	}
	else{
		$yr = $y;
	}

#Formatting Month
	if($m =~ /[0-9]+/i){
		$mth = sprintf("%.2d", $m); 
		}
	else{
		$m = lc $m;
		$mth = $month{$m};
		}

#Formatting Date
	$dat = sprintf("%.2d", $d);
	if($tm =~ /[0-9]+/i){
		($H, $M, $S) = split(/:/, $tm); 
		if($fm =~/[M]/i){
			$fm= uc $fm;
			if($fm eq "PM"){
                                if($H < 13){
				$H=$H+12;
                                }
			}
		}
		$time= sprintf("%.2d:%.2d:%.2d", $H, $M, $S); 
	}

return "$yr-$mth-$dat $time";
}

$month{'jan'} = '01';
$month{'feb'} = '02';
$month{'mar'} = '03';
$month{'apr'} = '04'; $month{'apl'} = '04';
$month{'may'} = '05';
$month{'jun'} = '06'; $month{'june'} = '06';
$month{'jul'} = '07'; $month{'july'} = '07';
$month{'aug'} = '08';
$month{'sep'} = '09';
$month{'oct'} = '10';
$month{'nov'} = '11';
$month{'dec'} = '12';

#Convert Year to Proper Year Like 99 to 1999, 00 to 2000. 
#Note: Year < 60 will come in 2000+ & Year > 60 will come in 1900+
sub properyear{
	my $yr = shift;

if($yr < 60){
		$yr = 2000 + $yr;
	}
	elsif($yr < 99){
		$yr = 1900 + $yr;
	}

return $yr;
}

#Convert Month to Proper Month Like Jan-->01, Feb-->02 etc....
sub propermonth{
	my $mon = shift;

$mon = lc $mon;
	$mon = $month{$mon};

return $mon;
}

#Convert Date to Proper Date Like 1 to 01, 2 to 02 etc....
#Note: Can add days chk also 
sub properdate{
	my $dt = shift;

if(length($dt)<2){
		$dt = "0$dt";
	}

return $dt;
}

# Small lookup cache
sub create_cache{
	my $inqry = shift;

my $st = getstmt($conn, $inqry);
	exec_stmt(\$st);

while(my @col_values = doselectmany($st)){
		$G_cache{$col_values[0]} = $col_values[1];
	}
}

sub get_cache{
	my $in = shift;

return $G_cache{$in};
	}

sub delete_cache{
	$G_cache = ();
	}

sub mysplit{
        my $str=shift;
        my $delim=shift;
        my $retnum=shift;

@array = split($delim, $str);

return $array[$retnum];
}

#Replace
#       &quot;  , &amp; , &apos;, &lt;  , &gt;
#To
#       "       , &     , '     , <     , >

sub xmlreplace{
        my $str=shift;
        $str =~ s/&quot;/"/g;
        $str =~ s/&amp;/&/g;
        $str =~ s/&apos;/'/g;
        $str =~ s/&lt;/</g;
        $str =~ s/&gt;/>/g;
        return $str;
}

#Replace
#       "       , &     , '     , <     , >
#To
#       &quot;  , &amp; , &apos;, &lt;  , &gt;

sub xmlescape{
        my $str=shift;
        $str =~ s/"/&quot;/g;
        $str =~ s/&/&amp;/g;
        $str =~ s/'/&apos;/g;
        $str =~ s/</&lt;/g;
        $str =~ s/>/&gt;/g;
        return $str;
}
sub exceldate{
    $time=shift;
    return ExcelFmt("yyyy-mm-dd", $time);
}

sub exceltime{
    $time=shift;
    return ExcelFmt("hh:mm:ss", $time);
}

sub exceldatetime{
    $time=shift;
    return ExcelFmt("yyyy-mm-dd hh:mm:ss", $time);
}
sub removeSpecialChar{
        my $str=shift;

$str =~ s/[^[:print:]]//g;
        return $str;
}