mirror of
https://github.com/webmin/webmin.git
synced 2026-02-15 19:22:38 +00:00
51 lines
1.4 KiB
Perl
Executable File
51 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# list_services.cgi
|
|
# Displays a list of standard and custom services
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_use_error("services");
|
|
&header($text{'services_title'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
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";
|
|
if (!$services[0]->{'standard'}) {
|
|
print "<tr $tb> <td colspan=3><b>$text{'services_header1'}</b></td> </tr>\n";
|
|
}
|
|
foreach $s (@services) {
|
|
if ($s->{'standard'} && !$doneheader) {
|
|
print "<tr $tb> <td colspan=3><b>$text{'services_header2'}</b></td> </tr>\n";
|
|
$doneheader++;
|
|
}
|
|
print "<tr $cb>\n";
|
|
if ($s->{'standard'}) {
|
|
print "<td>$s->{'name'}</td>\n";
|
|
}
|
|
else {
|
|
print "<td><a href='edit_service.cgi?idx=$s->{'index'}'>",
|
|
"$s->{'name'}</a></td>\n";
|
|
}
|
|
print "<td>";
|
|
for($i=0; $i<@{$s->{'protos'}}; $i++) {
|
|
print &protocol_name($s->{'protos'}->[$i], $s->{'ports'}->[$i]);
|
|
print "\n";
|
|
}
|
|
for($i=0; $i<@{$s->{'others'}}; $i++) {
|
|
print "<b>$s->{'others'}->[$i]</b>\n";
|
|
}
|
|
print "</td>\n";
|
|
print "</tr>\n";
|
|
}
|
|
print "</table>\n";
|
|
print "<a href='edit_service.cgi?new=1'>$text{'services_add'}</a><p>\n"
|
|
if ($edit);
|
|
|
|
print "<hr>\n";
|
|
&footer("", $text{'index_return'});
|