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: admmenu.pl
Close
##!/usr/local/bin/perl # #require "$CUBCGI_HOME/config.pl"; #require "$CUBCGI_HOME/common.pl"; sub admchpass{ my ($q, $args) = @_; my $res = ''; if($q->param('Changepass') eq 'Change'){ $res = &exechpass($q->param('old'), $q->param('new1'), $q->param('new2')); } if($res ne 'OK'){ html("<input type=hidden name=op value='$args'>"); print "<center> "; print "<table border='0' width='70%'id=table_form> "; print "<tbody><tr> <td>"; errmsg($res); print "</td> </tr> "; print "<tr> <td align='center'><table cellpadding='3'>"; print "<tbody><tr> <td colspan=2><center><b>Change Password</b></td></center>"; print "</tr> "; print "<tr> <td><b>Old Password</b></td>"; print "<td><input name='old' size='20' type='password' value=", $q->param('old'), "></td> </tr>"; print "<tr> <td><b>New Password</b></td>"; print "<td><input name='new1' size='20' type='password' value=", $q->param('new1'), "></td> </tr>"; print "<tr> <td><b>Retype Password</b></td>"; print "<td><input name='new2' size='20' type='password' value=", $q->param('new2'), "></td> </tr>"; print "<tr> <td colspan='2' align='right'><input name='Changepass' value='Change' type='submit'>"; print "</td> </tr>"; print "</tbody></table></td></tr></tbody></table>"; } } ################################# sub admcubparams{ my ($q, $args) = @_; html("<input type=hidden name=op value='$args'>"); table(1); foreach my $key(keys %cubconfvars){ #Populating in cubhlth trow(1); td(1); b(1);print $key; b(0); td(0); td(1); print $cubconfvars{$key}; td(0); trow(0); } table(0); } ################################# sub admcubtest{ &header("CUBOT Directory Status"); &cubdirstruct_stat(); html("<br>"); &header("Shared Library Test"); &cublibtest_stat(); html("<br>"); &header("Perl status"); &printperlstat(); html("<br>"); #&basiclib_stat(); &otherstats('ADMIN'); } ################################# sub admchkserv{ my ($q, $args) = @_; my $res = ''; html("<input type=hidden name=op value='$args'>"); &statustbl('ADMIN'); } ################################# sub basiclib_stat{ } ################################# sub cubdirstruct_stat{ my @arr; my $i=0; #------------------------ my %conf; # getvars(\%conf); $conf{'CUBHOME'} = $cubconfvars{'CUBOT_HOME'}; if(exists $conf{'CUBHOME'}){ $arr[$i][0]="Cubot Home"; $arr[$i][1]=$conf{'CUBHOME'}; $arr[$i][2] = (!-d $conf{'CUBHOME'}) ? wrfail("FAIL") : wrok("OK"); $i++; if(-d $conf{'CUBHOME'}){ $dir = $conf{'CUBHOME'}."/conf/"; $arr[$i][0]="Cubot Conf Dir"; $arr[$i][1]=$dir; $arr[$i][2] = (!-d $dir) ? wrfail("FAIL") : wrok("OK"); $i++; $dir = $conf{'CUBHOME'}."/bin/"; $arr[$i][0]="Cubot Bin Dir"; $arr[$i][1]=$dir; $arr[$i][2] = (!-d $dir) ? wrfail("FAIL") : wrok("OK"); $i++; $dir = $conf{'CUBHOME'}."/logs/"; $arr[$i][0]="Cubot Log Dir"; $arr[$i][1]=$dir; $arr[$i][2] = (!-d $dir) ? wrfail("FAIL") : wrok("OK"); $i++; } } else{ $arr[$i][0]="Cubot Home"; $arr[$i][1]="NOT DEFINED [Check $CONFDIR/config.inc]"; $i++; } $arr[$i][0]="Cubot WWW Directory"; $arr[$i][1]=$ENV{'DOCUMENT_ROOT'}; $arr[$i][2]=wrok("OK"); $i++; ###### table("width=90% id=table_form"); #trow(1); td(1, "colspan=4"); hr(); td(0); trow(0); foreach my $val(@arr){ trow(1); # td(1); b(1); #href("#", @$val[0], "myval=@$val[0]"); #print "<a href=\'?myval=@$val[0]\'> ", htmlescape(@$val[0], 1), "</a>"; #print "<a href=\'?myval=", htmlescape(@$val[0], 1), "'> ", @$val[0], "</a>"; # b(0); td(0); td(1); b(1); print @$val[0]; b(0); td(0); td(1); u(1); print @$val[1]; u(0); td(0); td(1, "nowrap align=center"); print @$val[2]; td(0); trow(0); } tableend(); } ################################ sub printperlstat{ my $i=0; my %arr; eval { require 5 }; my $perl_inst = $@ ? wrfail("No") : wrok('Yes'); my $perl_ver = $]; eval { require CGI }; my $cgi_inst = $@ ? wrfail("No") : wrok('Yes'); my $cgi_ver = $CGI::VERSION; eval { require DBI }; my $dbi_inst = $@ ? wrfail("No") : wrok('Yes'); my $dbi_ver = $DBI::VERSION; eval { require DBD::mysql }; my $dbd_inst = $@ ? wrfail("No") : wrok('Yes'); my $dbd_ver = $DBD::mysql::VERSION; $arr[$i][0]="Is Perl Installed"; $arr[$i][1]=$perl_inst; $arr[$i][2]="Perl Version"; $arr[$i][3]=$perl_ver; $i++; $arr[$i][0]="Is DBI Installed"; $arr[$i][1]=$dbi_inst; $arr[$i][2]="DBI Version"; $arr[$i][3]=$dbi_ver; $i++; $arr[$i][0]="Is DBD::mysql Installed"; $arr[$i][1]=$dbd_inst; $arr[$i][2]="DBD::mysql Version"; $arr[$i][3]=$dbd_ver; $i++; $arr[$i][0]="Is CGI Installed"; $arr[$i][1]=$cgi_inst; $arr[$i][2]="CGI Version"; $arr[$i][3]=$cgi_ver; $i++; ###### table("width=90% id=table_form"); # trow(1); td(1, "colspan=4"); hr(); td(0); trow(0); foreach my $val(@arr){ trow(1); td(1); b(1); print @$val[0]; b(0); td(0); td(1); u(1); print @$val[1]; u(0); td(0); td(1); b(1); print @$val[2]; b(0); td(0); td(1); u(1); print @$val[3]; u(0); td(0); #td(1, "nowrap align=center"); print @$val[2]; td(0); trow(0); } tableend(); } 1;