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: libhtml.pl
Close
##!/usr/local/bin/perl require "$CUBCGI_HOME/func.pl"; sub b{ @_[0] eq '1' ? print "<B>" : print "</B>"; } sub i{ @_[0] eq '1' ? print "<I>" : print "</I>"; } sub u{ @_[0] eq '1' ? print "<U>" : print "</U>"; } sub c{ @_[0] eq '1' ? print "<center>" : print "</center>"; } sub br{ print "<BR>", "\n"; } sub main_css{print "<link href=/edash//assets/default/styles/main.css rel=stylesheet type=text/css>", "\n"; } sub dash_css{print "<link href=/edash//assets/default/styles/dash_menu.css rel=stylesheet type=text/css>", "\n"; } sub mainmenu_css{print "<link href=/edash//assets/default/styles/mainmenu.css rel=stylesheet type=text/css>", "\n"; } sub sortabletable_css{print "<link href=/edash//assets/default/styles/sortabletable.css rel=stylesheet type=text/css>", "\n"; } sub header_bar{ print "<tr> <td class=header_subbar></td></tr>", "\n"; } sub hr{ print "<HR @_>", "\n"; } sub html{ print @_, "\n"; } sub table{ print "<TABLE @_ >", "\n"; } sub tableend{ print "</TABLE>", "\n"; } #htmlescape(STRING, 1) 1 means escape $, < and > also Default ate " and ' sub htmlescape{ my ($str, $mode) = @_; $str =~ s/\"/"/g; $str =~ s/\'/'/g; if($mode eq '1'){ $str =~ s/&/&/g; $str =~ s/>/>/g; $str =~ s/</</g; $str =~ s/\s/+/g; } return $str; } sub startpage{ my($query, $title, $bodyattr, $jscript, $load_fun, $unload_fun) = @_; print $query->start_html( -title=>$title, -attribute=>$bodyattr, -onLoad=>$load_fun, -onUnload=>$unload_fun, -script=>$script ), "\n"; } sub form{ my($query, $method, $action, $enc, $name, $tgt, $onSubmit) = @_; print $query->start_multipart_form($method, $action, $enc, $name, $tgt, $onSubmit), "\n"; } sub formend{ my $query = shift; print $query->endform, "\n"; } sub getval{ my $query = shift; my $param = shift; return $query->param($param); } #<input TYPE=SUBMIT VALUE=SUBMIT TITLE="Log in" style="width: 160px"> sub input{ my ($query, $type, $name, $value, $size, $style) = @_; print "<INPUT TYPE=$type NAME=$name VALUE='$value' TITLE=$name STYLE='$style' SIZE=$size class='btn'>\n"; } sub href{ my $site = shift; my $dispstr = shift; my $args = shift; print "<A HREF='$site' @_> $dispstr </A>\n"; } sub td{ my $mode = shift; my $prop = shift; if($mode eq '1'){ print "<TD $prop >"; } else{ print "</TD>", "\n"; } } sub trow{ my $mode = shift; my $prop = shift; if($mode eq '1'){ print "<TR $prop >", "\n"; } else{ print "</TR>", "\n"; } } sub printhead{ my $query = shift; print $query->header; #print $query->start_html("CUBOT Health Page"), "\n"; } sub printfoot{ my $query = shift; print $query->end_html, "\n"; } #combobox("CubCombo: ", "mycomb", "Sunday Monday Tuesday Saturday"); sub combobox{ my ($query, $dispstr, $name, $vals) = @_; my @params = split(/ /, $vals); print "$dispstr", $query->popup_menu($name, [ @params ]), "\n"; } sub submit{ my ($query, $name, $value, $onclickfun) = @_; print $query->submit(-name=>$name, -value=>$value, -onClick=>$onclickfun), "\n"; } sub printerr{ my $query = shift; my $error = $query->cgi_error; if ($error) { print $query->header(-status=>$error), $query->start_html('Problems'), $query->h2('Request not processed'), $query->strong($error); exit 0; } } sub geturl{ my $query = shift; return $query->url(); } sub Qrystr{ my $query = shift; $url_with_path_and_query = $query->url(-path_info=>1,-query=>1); html($url_with_path_and_query);br(); } sub statusbar{ my $arg = shift; print "<script language=Javascript> window.status ='Host Name :", hostname(), "[", ipaddr(), "] Date :", today() ," $arg'</Script>"; } sub infomsg{ print "<div class=cubinfo> <font color=GREEN> <b> @_ </b> </font> </div>"; } sub errmsg{ print "<div class=cubinfo> <font color=RED> <b> @_ </b> </font> </div>"; } sub cubhead{ printhead($qry); #html('<link href="/edash//demo_insurance/present//data/cubot.css" rel="stylesheet" type="text/css">'); #html('<link href="/edash//demo_insurance/present//data/homepage.css" rel="stylesheet" type="text/css">'); statusbar(); printerr($qry); } 1;