michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

ui-lib conversion -> itsecur-firewall/list_services.cgi

Browse Source
This commit is contained in:
Nawawi Jamili
2013-12-26 21:43:50 +08:00
parent 78a0c0c6b7
commit 6844f99e07
1 changed files with 22 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
itsecur-firewall/list_services.cgi
View File

@@ -10,41 +10,42 @@ print "<hr>\n";
@services = &list_services();
$edit = &can_edit("services");
print "<a href='edit_service.cgi?new=1'>$text{'services_add'}</a><br>\n"
if ($edit);
print "<table border>\n";
print "<tr $tb> <td><b>$text{'service_name'}</b></td> ",
"<td><b>$text{'service_ports'}</b></td> </tr>\n";
my $link = ( $edit ? &ui_link("edit_service.cgi?new=1",$text{'services_add'}) : "" );
print $link."<br>" if ( $link ne '' );
print &ui_columns_start([$text{'service_name'}, $text{'service_ports'}]);
if (!$services[0]->{'standard'}) {
print "<tr $tb> <td colspan=3><b>$text{'services_header1'}</b></td> </tr>\n";
print &ui_columns_header([$text{'services_header1'}],["colspan=2"]);
}
foreach $s (@services) {
if ($s->{'standard'} && !$doneheader) {
print "<tr $tb> <td colspan=3><b>$text{'services_header2'}</b></td> </tr>\n";
print &ui_columns_header([$text{'services_header2'}],["colspan=2"]);
$doneheader++;
}
print "<tr $cb>\n";
my @cols;
if ($s->{'standard'}) {
print "<td>$s->{'name'}</td>\n";
push(@cols, $s->{'name'} );
}
else {
print "<td><a href='edit_service.cgi?idx=$s->{'index'}'>",
"$s->{'name'}</a></td>\n";
push(@cols, &ui_link("edit_service.cgi?idx=$s->{'index'}", $s->{'name'}) );
}
print "<td>";
my $cl = "";
for($i=0; $i<@{$s->{'protos'}}; $i++) {
print &protocol_name($s->{'protos'}->[$i], $s->{'ports'}->[$i]);
print "\n";
$cl .= &protocol_name($s->{'protos'}->[$i], $s->{'ports'}->[$i])."&nbsp;";
}
for($i=0; $i<@{$s->{'others'}}; $i++) {
print "<b>$s->{'others'}->[$i]</b>\n";
$cl .="<b>$s->{'others'}->[$i]</b>&nbsp;";
}
print "</td>\n";
print "</tr>\n";
push(@cols, $cl);
print &ui_columns_row(\@cols);
}
print "</table>\n";
print "<a href='edit_service.cgi?new=1'>$text{'services_add'}</a><p>\n"
if ($edit);
print &ui_columns_end();
print $link."<p>" if ( $link ne '' );
print &ui_hr();
print "<hr>\n";
&footer("", $text{'index_return'});