OXIESEC PANEL
- Current Dir:
/
/
home
/
cubot
/
bin
/
etl
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/03/2023 08:06:37 AM
rwxr-xr-x
📄
config.pl
6.53 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
dataextract.sh
2.51 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
etl.pl
5.46 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
etlproc
11.81 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
func.pl
4.01 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
globvar.sh
330 bytes
02/03/2023 07:34:08 AM
rw-r--r--
📄
initetl.pl
1.88 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
libawk.awk
3.07 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
makeXtab2NormalExcel.pl
5.25 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
process.pl
6.92 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
process_changed.pl
5.69 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
readwrite.pl
4.16 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
rxcsv.pl
7.94 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
rxdb.pl
8.84 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
rxfile.pl
4.72 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
rxsalesforce.pl
3.33 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
rxsalesforce.pl.bak
3.33 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
rxxml.pl
12.66 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
rxxml2.pl
4.18 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
s.log
8.86 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
sendmail.pl
1.06 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
sourcequery.pl
4.17 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
sql.pl
13.89 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
sql_mssql.pl
13.89 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
store.pl
7.6 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
task.pl
30.55 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
task_mssql.pl
30.8 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
tmpxml.pl
1.49 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
userfunc.pl
5.5 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
valid.pl
3.9 KB
02/03/2023 07:34:08 AM
rw-r--r--
📄
workflow.pl
3.72 KB
02/03/2023 07:34:08 AM
rwxr-xr-x
📄
xform.pl
2.62 KB
02/03/2023 07:34:08 AM
rw-r--r--
Editing: initetl.pl
Close
#!/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"); } 1;