OXIESEC PANEL

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--

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

sub write_xmldata2csv{
	my $srcdir = shift; 
	my $schemafile = shift;
	my %tabname = ();
	my @tables = ();
	my $line = "";
	my $i = 0;
	my @fmt = ();
	my @cols = ();
	
	open(FILE, "$schemafile");
	while(<FILE>){#Read Schemafile & Read all tables & columns.
		$line = $_;
		@fmt = split /\./, $line;
		#	print @x[0], "===", @x[1], "===", @x[2], "===", "\n";
		chomp($fmt[2]);
		$tabname{$fmt[1]} = $fmt[2]; 
		$tables[$i++] = $fmt[1];
	}
	close(FILE);

foreach $root(@tables){#For each table creat FP & write columns into that.
		open($FP{$root}, ">$STGDIR/$root.dat");
		@cols = split /:/, $tabname{$root};
		$OUTFP = $FP{$root};
		foreach $c(@cols){
			print $OUTFP "$c$OUTDELIM";
		}
		print $OUTFP "\n";
	}

@cols = ();
	*xmldirfiles = &getdirlist($srcdir, "F");
	foreach my $xmlfile(@xmldirfiles){
		$xmlfile = $srcdir . "/" . $xmlfile;
		printlog($INFO, "----- Now Parsing File : $xmlfile -----");
		my $xpath = XML::XPath->new(filename => $xmlfile) or $G_ERRMSG = "Can't Process XML File : $xmlfile";

$i = 0;
		$oldroot = "";
		foreach $root(@tables){
#		print "</$oldroot$root>\n";
			$OUTFP = $FP{$root};

foreach my $row($xpath->findnodes("/$oldroot$root")){
				@cols = split /:/, $tabname{$root};
				foreach $c(@cols){
					if(not defined($tabname{$c})){
						$data[$i] = $row->find($c)->string_value;
						print $OUTFP "$data[$i]$OUTDELIM";
						$i++;
					}
#print "-------->$c<-----------\n";
				}
				print $OUTFP "\n";
				@data = ();
				$i = 0;
			}
			$oldroot = $oldroot."$root/";
		}
	}
}