list_items.cgi

linux环境下的一个防火墙程序的源代码

#!/usr/bin/perl

#======================================================================
# Turtle Firewall webmin module
#
# Copyright (c) Andrea Frigido
# You may distribute under the terms of either the GNU General Public
# License
#======================================================================


do 'lib.pl';

&header( $text{'list_items_title'}, '' );

showZone();
showNet();
showHost();
showGroup();

print "<br><br>";
&footer('','turtle firewall index');


#============================================================================

sub showZone {
	print "<br>
		<table border width=\"100%\">
			<tr $tb>
				<th width=\"30%\">".$text{'zone'}."</th>
				<th width=\"30%\">".$text{'interface'}."</th>
				<th width=\"40%\">".$text{'description'}."</th>
			</tr>";
	for my $k ($fw->GetZoneList()) {
		my %zone = $fw->GetZone($k);
		print "<tr $cb>";
		print "<td>";
		if( $k eq 'FIREWALL' ) {
			print "<i>$k</i>";
		} else {
			print "<a href=\"edit_zone.cgi?zone=$k\">$k</a>";
		}
		print "</td>";
		print "<td>".$zone{'IF'}."</td>";
		print "<td>".($zone{'DESCRIPTION'} ne '' ? $zone{'DESCRIPTION'} : '&nbsp;')."</td>";
		print "</tr>";
	}
	print "</table>\n";
	print '<a href="edit_zone.cgi?new=1">'.$text{'list_items_create_zone'}.'</a><br>';
}
sub showNet {
	print "<br>
		<table border width=\"100%\">
			<tr $tb>
				<th width=\"15%\">".$text{'net'}."</th>
				<th width=\"15%\">".$text{'netaddress'}."</th>
				<th width=\"15%\">".$text{'netmask'}."</th>
				<th width=\"15%\">".$text{'zone'}."</th>
				<th width=\"40%\">".$text{'description'}."</th>
			</tr>";
	for my $k ($fw->GetNetList()) {
		my %net = $fw->GetNet($k);
		print "<tr $cb>";
		print "<td><a href=\"edit_net.cgi?net=$k\">$k</a></td>";
		print "<td>".$net{'IP'}."</td>";
		print "<td>".$net{'NETMASK'}."</td>";
		print "<td>".$net{'ZONE'}."</td>";
		print "<td>".($net{'DESCRIPTION'} ne '' ? $net{'DESCRIPTION'} : '&nbsp;')."</td>";
		print "</tr>";
	}
	print "</table>\n";
	print '<a href="edit_net.cgi?new=1">'.$text{'list_items_create_net'}.'</a><br>';
}
sub showHost {
	print "<br>
		<table border width=\"100%\">
			<tr $tb>
				<th width=\"15%\">".$text{'host'}."</th>
				<th width=\"15%\">".$text{'hostaddress'}."</th>
				<th width=\"15%\">".$text{'macaddress'}."</th>
				<th width=\"15%\">".$text{'zone'}."</th>
				<th width=\"40%\">".$text{'description'}."</th>
			</tr>";
	for my $k ($fw->GetHostList()) {
		my %host = $fw->GetHost($k);
		print "<tr $cb>";
		print "<td><a href=\"edit_host.cgi?host=$k\">$k</a></td>";
		print "<td>".$host{'IP'}."</td>";
		print "<td>".$host{'MAC'}."</td>";
		print "<td>".$host{'ZONE'}."</td>";
		print "<td>".($host{'DESCRIPTION'} ne '' ? $host{'DESCRIPTION'} : '&nbsp;')."</td>";
		print "</tr>";
	}
	print "</table>\n";
	print '<a href="edit_host.cgi?new=1">'.$text{'list_items_create_host'}.'</a><br>';
}
sub showGroup {
	print "<br>
		<table border width=\"100%\">
			<tr $tb>
				<th width=\"30%\">".$text{'group'}."</th>
				<th width=\"30%\">".$text{'groupitems'}."</th>
				<th width=\"40%\">".$text{'description'}."</th>
			</tr>";
	for my $k ($fw->GetGroupList()) {
		my %group = $fw->GetGroup($k);
		print "<tr $cb>";
		print "<td valign=\"top\"><a href=\"edit_group.cgi?group=$k\">$k</a></td>";
		print "<td valign=\"top\">";
		for my $item (@{$group{ITEMS}}) {
			print "$item<br>";
		}
		print "</td>";
		print "<td valign=\"top\">".($group{'DESCRIPTION'} ne '' ? $group{'DESCRIPTION'} : '&nbsp;')."</td>";
		print "</tr>";
	}
	print "</table>\n";
	print '<a href="edit_group.cgi?new=1">'.$text{'list_items_create_group'}.'</a><br>';
}