OXIESEC PANEL
- Current Dir:
/
/
home
/
cubot
/
docroot
/
cubcgi
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/03/2023 07:42:40 AM
rwxrwxr-x
📄
admmenu.pl
4.98 KB
08/14/2022 11:11:57 AM
rw-r--r--
📄
common.pl
11.84 KB
08/14/2022 11:11:57 AM
rw-r--r--
📄
config.pl
1.13 KB
08/14/2022 11:11:57 AM
rw-r--r--
📄
cubhealth.cgi
2.81 KB
08/14/2022 11:11:57 AM
rwxr-xr-x
📄
download.cgi
1.02 KB
08/14/2022 11:11:57 AM
rwxr-xr-x
📄
forms.pl
4.53 KB
08/14/2022 11:11:57 AM
rw-r--r--
📄
func.pl
3.08 KB
08/14/2022 11:11:57 AM
rw-r--r--
📄
libhtml.pl
4.05 KB
08/14/2022 11:11:57 AM
rw-r--r--
📄
libtest.pl
1.45 KB
08/14/2022 11:11:57 AM
rw-r--r--
📄
test.cgi
255 bytes
08/14/2022 11:11:57 AM
rwxr-xr-x
📄
tips.cgi
2.08 KB
08/14/2022 11:11:57 AM
rwxr-xr-x
Editing: func.pl
Close
##!/usr/local/bin/perl use Socket; sub sessionfile{ my $sid = shift; my $time = time; $$sid = $$.".".$time; return "$CONFDIR/session/CUB_".$$sid; } sub hostname{ my $name; chop($name = `hostname 2>/dev/null`); if ($?) { $name = "Unknown Host!"; } return $name; } sub ipaddr{ my $host = hostname(); my $hn = gethostbyname($host); if (!$hn){ return '127.0.0.1'; } local @ip = unpack("CCCC", $hn); return join("." , @ip); } sub valid_ip{ my $input = shift; return $input =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ && $1 >= 0 && $1 <= 255 && $2 >= 0 && $2 <= 255 && $3 >= 0 && $3 <= 255 && $4 >= 0 && $4 <= 255; } sub today{ my @tm = localtime(time); return sprintf "%d-%s-%d %2.2d:%2.2d", $tm[3], $tm[4]+1, $tm[5]+1900, $tm[2], $tm[1]; } sub diskusage{ my $sp = `du -sk \"$_[0]\"`; #Kb if ($?) { $sp = `du -s \"$_[0]\"`; #b All } return $sp =~ /^([0-9]+)/ ? $1 : "???"; #Remove NonNumber } sub perlpath { my $myvar; if (open(PERL, "$CONFDIR/perl-path")) { chop($myvar = <PERL>); close(PERL); return $myvar; } return $^X if (-x $^X); return &iscmd("perl"); } sub iscmd{ my $cmd = shift; my $d; my $myvar =''; if (!$cmd) { return 'ERR'; } if ($cmd =~ /^\//) {#Cmd With Path $myvar = (-x $cmd) ? $cmd : ''; } else { foreach $dir (split(/:/ , $ENV{PATH})) { if (-x "$dir/$cmd") { $myvar = "$dir"; last; } } } return $myvar; } sub wrok{ return "<font color=GREEN> <b>@_</b> </font>"; } sub wrfail{ return "<font color=RED><b> @_ </b></font>"; } sub getversion() { my $command=shift; use IO::File; use POSIX qw(tmpnam); my $infostr = ''; my $infofile = IO::File->new_tmpfile || "/tmp/Xcubvertmpfile.txt"; my $filename=tmpnam(); my %conf; getvars(\%conf); $ENV{PATH} = $ENV{PATH}.":".$conf{ADDPATH}; my $path=iscmd($command); return "Invalid Command" if($path eq ''); if( substr($command, 0,3) eq "cub" ) { $command = $path."/$command"; system("$command -v > $filename"); } else { $command = $path."/$command"; system ( "$command --version > $filename" ); } open(INFO, "< $filename") || return "Invalid Command"; while(<INFO>) { chop; $infostr = $infostr . $_; last; } close(INFO); unlink($filename);# || print "cant delete file \n"; return substr($infostr, 0, 50); } sub getstatus { my $command=shift; my @servces = `chkconfig --list | cut -d' ' -f1`; my $flag = 0; foreach my $serv(@servces){ $serv =~ s/^\s+//g; $serv =~ s/\s+$//g; if("$serv" eq "$command"){ $flag = 1; last; } } if( !$flag ){ return "No Service"; } my $ans =`chkconfig --list | grep -e "$command "| grep "on"`; if($?) { $ans = "(NO)"; } else { $ans = "(OK)" }; $ans = `/etc/init.d/$command status`.$ans; if($ans =~ /unning/){ #$ans = "<font color=green>Working Properly.</font>"; $ans = "<span><img SRC=./../edash/assets/default/images/valid.gif Border=0 title=Height=10 Width=10 ></span>"; } else{ #$ans = "<font color=red>ERROR NOT RUNNING</font>"; $ans = "<span><img SRC=./../edash/assets/default/images/invalid.gif Border=0 title=Height=10 Width=10 ></span>"; } $ans; } 1;