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

#!/usr/bin/perl

sub resolve_xforms{
	my ( $indata, $xfrl, $colnames, $txtqf) = @_;

my %data = ();
	my $i = 0;
	my $xformcolrule = '', $col = '', $outstr = '';
	my @xformrule = @$xfrl;

foreach $col(@$colnames){
		$data{$col} = @$indata[$i];
		$i++;
	}

$outstr = '';
	foreach $xformcolrule(@xformrule){
		if(defined $data{$xformcolrule}){
			$outstr = $outstr.$data{$xformcolrule}.$G_PerlOutDelim;
		}
		else{
			foreach $col(@$colnames){
				if($xformcolrule =~ /\b$col\b/gsi){
					$val = defined($data{$col}) ? $data{$col} : '';
					$xformcolrule =~ s/\b$col\b/$val/gsi;
				}
			}
	#		printlog($INFO, "REPLC RULE: -----[$xformcolrule]-----");	
			my $evl = eval($xformcolrule);
			$evl = '' if not defined $evl;
			$outstr = $outstr.$evl.$G_PerlOutDelim;
		}
	}

$outstr =~ s/$G_PerlOutDelim$//;
	#printlog($MAX, "Ouput Data ==> !!!!!!($outstr)!!!!!!");	
	print $G_DESTOUT "$outstr\n";
}

sub loading_msg_print{
	my $destdbconn = shift;
	
	my $errno = $destdbconn->{'mysql_errno'};
	my $load_info = $destdbconn->{'mysql_info'};

statuslog "Load Data Message : $load_info \n";
	my @array=split (/:/, $load_info);
	chomp(@array);
	my @deleted=split (/ /,$array[2]);
	my @skipped=split (/ /,$array[3]);
	if($errno){
		statuslog "Load Data Error : ". $destdbconn->{'mysql_error'} . "\n";
	}
	$array[4]=~ s/ //g;
	if($array[4]){
		statuslog "Load Data Warnings ";
		statuslog "------------------ ";

my $sth = $destdbconn->prepare("show warnings");
		if ($sth) {
			if ($sth->execute) {
				while (my @ref = $sth->fetchrow_array) {
					my $i = 0;
					while($ref[$i]){
						statuslog("$ref[$i]");
						$i=$i+1;
					}
				}
			}
		}
	}
}

sub check_oracle_error {
	my $filename = shift;
	
	open(my $errfile, $filename) or return 'ERR';

for (my $i = 0; $i < 20; $i++){
		my $line = <$errfile>;
		if ($line =~ /^ERROR/g){
			$line = <$errfile>;
			if ($line =~ /^ORA/g){
				chomp $line;
				$G_Err = $line;
				statuslog "Oracle ERROR =---------$G_Err-------------";
				close $errfile;
				return 'ERR';
			}
		}
	}

close $errfile;
}
sub check_sql_error{
        my $filename = shift; 
        open(my $errfile, $filename) or return 'ERR';

for (my $i = 0; $i < 2; $i++){
                my $line = <$errfile>;
                if ($line =~ /ERROR/){
                        if ($line =~ /ISQL/){
                                chomp $line;
                                $G_Err = $line;
                                statuslog "MSSQL ERROR =---------$G_Err-------------";
                                close $errfile;
                                return 'ERR';
                        }
                }
        }

close $errfile;
}