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

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

#!/usr/bin/perl

sub initetl{

$RXXLS_DIR = "$ENV{XLSDIR}";
	if($RXXLS_DIR eq ""){
		$RXXLS_DIR = "/tmp/"; #Don't Comment this
	}
	
	mkdir("$RXXLS_DIR") or printlog($INFO, "using $RXXLS_DIR");
	$CMD_HARGS{'db'} =~ s/\s//g;
	$RXXLS_DIR = $RXXLS_DIR."/".$CMD_HARGS{'db'};
	mkdir("$RXXLS_DIR") or printlog($MAX, "Stage using $RXXLS_DIR");

$G_Staging_Dir = $RXXLS_DIR;

$ETL_ERR_DIR = $ENV{ETL_ERR_DIR};
	if((not defined $ETL_ERR_DIR) or ($ETL_ERR_DIR eq "")){
		$ETL_ERR_DIR = "$ENV{CUBOT_HOME}/logs/etllogs/";
		}
	}

sub chkenv{
	foreach (@_){
		if("$ENV{$_}" eq ''){
			printlog($ERROR, "$_ Not Set in environment(cubot.conf).");
			exit;
			}
		}
	}

sub updatelogseq_db{		#	This will read logseq from errlogseq.txt and update DB.
	printlog($MAX, "Using $ETL_LOG");

my $errseq = "$ETL_LOG/"."errlogseq.rx";
	
	open(ERRSEQ, "$errseq") or printlog($INFO, "No Log Seq File($errseq) To Update...");
	while(<ERRSEQ>){
		my $qry = $_;
		chomp($qry);
		execute_query($conn, $qry);
		}
	close(ERRSEQ);
	
	printlog($MAX, "Deleting File .. $errseq");

unlink($errseq);
	}

sub updatelogseq_file{		#	This will read update logseq file . (sync file & DB).
	my $seq = shift;
	
	my $errseq = ">$ETL_LOG/"."errlogseq.txt";
	open(ERRSEQ, "$errseq") or printlog($ERROR, "Can't Create Logseq file($errseq) ..");
	print ERRSEQ $seq;
	close(ERRSEQ);
	}

sub setcubot_env{
	open(CUBCONF, "$ENV{CUBOT_HOME}/conf/cubot.conf");
	while(<CUBCONF>){
		chop;
		my @arg  = split " ", $_;
		$ENV{$arg[0]} = $arg[1];
		}
	if(!$ENV{"XLSDIR"}){
		$ENV{"XLSDIR"} = '/tmp/';
		}
	close(CUBCONF);
	
	open(CUBCONF, "$ENV{CUBOT_HOME}/.my.cnf") or return '';
	while(<CUBCONF>){
		chop;
		my @arg  = split "=", $_;
		if($arg[0] =~ /user/i){
			$ENV{"CUBOT_DBUSER"} = $arg[1];
			}
		elsif($arg[0] =~ /password/i){
			$ENV{"CUBOT_DBPASS"} = $arg[1];
			}
		}
	print( "Set ETL(", $ENV{CUBOT_HOME} ,") User : ", $ENV{"CUBOT_DBUSER"}, " Password Enabled\n");
	}