OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	02/03/2023 08:25:32 AM	rwxr-xr-x
📄 auditreport.sh	1.15 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 clripcs	44.5 KB	02/03/2023 07:34:09 AM	rwxr-xr-x
📄 comparedb.sh	487 bytes	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 convertToexcel.pl	3.69 KB	02/03/2023 07:34:15 AM	rwxr-xr-x
📄 convertToexcel_my.rd.pl	3.06 KB	02/03/2023 07:34:15 AM	rwxr-xr-x
📄 crlf.sh	67 bytes	02/03/2023 07:34:15 AM	rwxr-xr-x
📄 cron.sh	173 bytes	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 cubadmserv	1.94 MB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 cubalert	1.3 MB	02/03/2023 07:34:09 AM	rwxr-xr-x
📄 cubetlserv	1.97 MB	02/03/2023 07:34:09 AM	rwxr-xr-x
📄 cubgphserv	2.55 MB	02/03/2023 07:34:12 AM	rwxr-xr-x
📄 cubmenuserv	2.51 MB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 cubnotify	2.79 MB	02/03/2023 07:34:09 AM	rwxr-xr-x
📄 cubot.properties	1.93 KB	02/03/2023 07:34:08 AM	rw-r--r--
📄 cubregenxy	947.66 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 cubregenxy.gz	341.15 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 cubrouter	378.71 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 cubrxgate	440.74 KB	02/03/2023 07:34:15 AM	rwxr-xr-x
📄 cubrxlogin	529.18 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 cubsearch	1.58 MB	02/03/2023 07:34:09 AM	rwxr-xr-x
📄 cubsearchrouter	520.15 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 doZip.sh	669 bytes	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 esalesforce	57 bytes	02/03/2023 07:34:09 AM	rwxr-xr-x
📁 etl	-	02/03/2023 07:34:08 AM	rwxr-xr-x
📁 etl_odbc	-	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 finyr.so	25.82 KB	02/03/2023 07:34:11 AM	rwxr-xr-x
📄 finyr.so_16May	26.11 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 fmtxml2ooffice.sh	1013 bytes	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 forecast.R	3.13 KB	02/03/2023 07:34:14 AM	rw-r--r--
📄 gep_days.so	10.03 KB	02/03/2023 07:34:15 AM	rwxr-xr-x
📄 html2csv.sh	2.97 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 html2ps	129.14 KB	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 httpd	565.41 KB	02/03/2023 07:34:15 AM	rwxr-xr-x
📄 httpd_2.2	2.9 MB	02/03/2023 07:34:15 AM	rwxr-xr-x
📁 jars	-	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 jgraphserver.sh	841 bytes	02/03/2023 07:34:13 AM	rwxr-xr-x
📄 libAdaptikTokenServiceProvider.so	631.87 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 libTokenServiceProvider.so	146.98 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 libcrypto.so.0.9.8	38.29 KB	05/03/2022 10:19:39 AM	rw-r--r--
📄 libcubotsvc.so	112.92 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 libdbdriver.so	113.32 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 libldap-2.3.so.0	319.36 KB	05/12/2022 01:52:38 PM	rw-r--r--
📄 libmysqlclient.so	1.52 MB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 libmysqlclient.so.15	3.78 MB	04/23/2023 02:08:47 PM	rw-r--r--
📄 libmysqlclient.so.16	3.78 MB	04/23/2023 02:08:47 PM	rw-r--r--
📄 libodbc.so.1	421.49 KB	03/26/2018 02:37:19 PM	rw-r--r--
📄 libpcre.so.1	449.93 KB	05/17/2022 07:42:45 AM	rw-r--r--
📄 librxauth.so	98.6 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 librxetl.so	29.8 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 librxfusionchart.so	60.25 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 librxgphserv.so	125.78 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 librxmetadata.so	227.2 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 librxmysql.so	80.75 KB	02/03/2023 07:34:10 AM	rwxr-xr-x
📄 librxolap.so	823.31 KB	02/03/2023 07:34:09 AM	rwxr-xr-x
📄 libssl.so.0.9.8	563.78 KB	05/24/2023 05:14:51 PM	rw-r--r--
📄 libtdsodbc.so	929.6 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 makeXtab2NormalExcel.pl	5.33 KB	02/03/2023 07:34:14 AM	rw-r--r--
📄 mod_axis2.so	226.12 KB	02/03/2023 08:01:00 AM	rwxr-xr-x
📄 mod_jk.so	384.77 KB	02/03/2023 07:34:14 AM	rw-r--r--
📄 mod_rx.so	50.69 KB	02/03/2023 08:01:00 AM	rw-r--r--
📄 multiSheet.pl	5.74 KB	02/03/2023 07:34:12 AM	rwxr-xr-x
📄 preCheck.js	1.03 KB	02/03/2023 07:34:13 AM	rw-r--r--
📄 priority_regen.sh	4.41 KB	02/03/2023 07:34:14 AM	rw-r--r--
📄 procscript.sh	321 bytes	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 rxdummydb.so	108.43 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 rxmssql.so	112.95 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 rxmysql.so	108.4 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 rxodbc.so	113.24 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 rxolite.so	108.45 KB	02/03/2023 07:34:12 AM	rwxr-xr-x
📄 rxora.so	113.03 KB	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 rxsalesforce.so	108 KB	02/03/2023 07:34:14 AM	rwxr-xr-x
📄 rxsybase.so	123.61 KB	02/03/2023 07:34:09 AM	rwxr-xr-x
📄 services.xml	6.64 KB	02/03/2023 07:34:08 AM	rw-r--r--
📄 setvars.sh	556 bytes	02/03/2023 07:34:15 AM	rwxr-xr-x
📁 utils	-	02/03/2023 07:34:08 AM	rwxr-xr-x
📄 ws.core.js	40.18 KB	02/03/2023 07:34:08 AM	rw-r--r--
📄 wsAll.js	142.94 KB	02/03/2023 07:34:09 AM	rw-r--r--

Editing: multiSheet.pl

#!/usr/bin/perl -w

#use strict;
use warnings;
use Spreadsheet::WriteExcel;
use File::Basename;

my $SourceFile; my $count = 0; my $Delim = "~_";
my $workbook  = Spreadsheet::WriteExcel->new($ARGV[0]);
my $worksheet;
my $DOCROOT=$ENV{DocRoot}; 
$DOCROOT="/home/cubot/docroot" if $DOCROOT eq "";
foreach(@ARGV){
	$SourceFile=$_;
	if($count == 0){ # Avoid first argument as we are taking first argument as excel file name
		$count++;
		next;
	}

$cmd="sh /home/cubot/bin/html2csv.sh $SourceFile";
	system($cmd);
	system("cp $SourceFile /tmp/");

open(FP, $SourceFile) or die "Cant Open File $SourceFile";
	my @InputFile = <FP>;

my $titlehdr= $workbook->set_custom_color(40, 185, 208, 240);
	my $colhdr= $workbook->set_custom_color(41, 192, 202, 215);
	my $Line = "", $LineNo = 1, $colNo = 0, $SheetNo = 1, $Done = 0, $rowspan = 0;
	@file = split(/\./, basename($SourceFile));	
	my $SheetName=$file[0];
	$worksheet = $workbook->add_worksheet($SheetName);
	$worksheet->set_column('B:AZ', 12);
	my $title = $workbook->add_format( center_across => 1, bold => 1, size => 10, pattern => 1, border => 6, color => 'black', bg_color => $titlehdr, border_color => 'black', align => 'vcenter');
	my $total = $workbook->add_format( bold => 1, valign  => 'vcenter', align   => 'center', color=>'black', bg_color=> $colhdr);

my $Totalnumfmt = $workbook->add_format( bold => 1, valign  => 'vcenter', align   => 'center', color=> 'black', bg_color=> $colhdr);
	my $bold = $workbook->add_format( bold => 1,border  => 1, valign  => 'vcenter', align   => 'center', color=> 'black', bg_color=> $colhdr);
	$Totalnumfmt->set_num_format('#,##0');

my $numberfmt = $workbook->add_format(align  => 'center');
	$numberfmt->set_num_format('#,##0');
	
	my $dimCnt=0;

foreach $Line(@InputFile) ## for Each Line in Pull Log
	{
		if($Done < 1 && ($Line =~ m/CONF:/)){
			$Line =~ s/CONF:DIMENSION_COUNT=//g;
			$dimCnt = $Line;
			next;
		}	
		elsif($Done < 2 && ($Line =~ m/HEADING:/ || $Line =~ m/^No./)){
			my $header = $workbook->add_format(
                                        center_across   => 1,
					bold    => 1,
                                        size    => 10,
                                        border  => 1,
					valign  => 'top',
					align   => 'vcenter',
					color	=> 'blue',
                                        bg_color=> $colhdr
			);

$Line =~ s/HEADING://g;
			@Value = split($Delim, $Line);
			chomp(@Value);	
			$numhead=@Value;
			$colNo = $rowspan;

#for($i=0; $i<$rowspan; $i++){
				#$worksheet->write_blank($LineNo, $i,$header);
			#}
			for(my $i=0; $i<$numhead; $i++){
				if($Done == 1){
					$Value[$colNo]=" " if not defined $Value[$i];
					$worksheet->write($LineNo, $colNo, $Value[$i], $header);
				}	
				else{
					@head = split("-_", $Value[$i]);
					$head[0]=" " if not defined $head[0];
					if($head[0] =~ m/R2/){
						if($rowspan==0){
							$worksheet->merge_range('A2:A3', '', $bold);
						}
						elsif($rowspan==1){
							$worksheet->merge_range('B2:B3', '', $bold);
						}
						elsif($rowspan==2){
							$worksheet->merge_range('C2:C3', '', $bold);
						}
						elsif($rowspan==3){
							$worksheet->merge_range('D2:D3', '', $bold);
						}
						elsif($rowspan==4){
							$worksheet->merge_range('E2:E3', '', $bold);
						}
						elsif($rowspan==5){
							$worksheet->merge_range('F2:F3', '', $bold);
						}
						elsif($rowspan==6){
							$worksheet->merge_range('G2:G3', '', $bold);
						}
						elsif($rowspan==7){
							$worksheet->merge_range('H2:H3', '', $bold);
						}
						$rowspan++;
					}
					$head[1]=$head[0] if not defined $head[1];
					$worksheet->write($LineNo, $colNo, $head[1], $header);
					if( $head[0] =~ m/C/){
						$head[0] =~ s/C//g;
						if($head[0] =~ /^[0-9]+$/){
							for($j=$colNo+1; $j<$colNo+$head[0]; $j++){
								$worksheet->write_blank($LineNo, $j,$header);
							}
							$colNo=$colNo+$head[0]-1;
						}
					}
				}
				$colNo++;
			}
			$Done++;
			$LineNo ++;
			next;
		}
		@Value = split ($Delim, $Line);
		chomp(@Value);
		$NumCol = @Value;

if($Line =~ m/^edash/ && $Line =~ m/png/){
			$worksheet->insert_image('B2', $DOCROOT.'/'.$Value[0]);
		next;
		}

if($LineNo == 1 && $Line !~ m/^No./){
			$worksheet->write(0, 0, $Value[0],$title);
			$worksheet->write_blank(0, 1,$title); $worksheet->write_blank(0, 2,$title); $worksheet->write_blank(0, 3,$title);
			$worksheet->write_blank(0, 4,$title); $worksheet->write_blank(0, 5,$title); $worksheet->write_blank(0, 6,$title);
			$worksheet->write_blank(0, 7,$title); $worksheet->write_blank(0, 8,$title); $worksheet->write_blank(0, 9,$title);
			$worksheet->write_blank(0, 10,$title);
		next;
		}
		if($LineNo == 60000){
			$NEWSheetName=$SheetName.$SheetNo;
			$worksheet = $workbook->add_worksheet($NEWSheetName);
			$worksheet->set_column('B:Z', 12);
			$SheetNo++;
			$LineNo=0;
		}
		for($colNo=0; $colNo<$NumCol; $colNo++){
			$Value[$colNo] =~ s/^[\s]+//gsi;
			$Value[$colNo]="NA" if not defined $Value[$colNo];
			if($Line =~ m/Total/){
				if($Value[$colNo] =~ /^[\+-]*[0-9,]*\.*[0-9,]*$/ && $Value[$colNo] !~ /^[\. ]*$/){
					$Value[$colNo] =~ s/[^0-9\.\-]//gsi;
					$worksheet->write_number($LineNo, $colNo, $Value[$colNo], $Totalnumfmt);
				}
				else{
					if($colNo != $NumCol-1){
						$worksheet->write($LineNo, $colNo, $Value[$colNo], $total);
					}
				}
			}
			else{
				if($Value[$colNo] =~ /^[\+-]*[0-9,]*\.*[0-9,]*$/ && $Value[$colNo] !~ /^[\. ]*$/ && $colNo >= $dimCnt){
					$Value[$colNo] =~ s/[^0-9\.\,\-\+]//gsi;
						$worksheet->write_number($LineNo, $colNo, $Value[$colNo], $numberfmt);
				}
				else{
					if($LineNo == 1 and length($Value[$colNo])>0){
						$worksheet->write($LineNo, $colNo, $Value[$colNo], $bold);
					}else{
						$worksheet->write($LineNo, $colNo, $Value[$colNo]);
					}
				}
			}
		}
		$LineNo ++;
	}
	close(FP);
	unlink $SourceFile;
}
1;