diff --git a/showsubnet.cgi b/showsubnet.cgi index 6666bf8..30781a7 100755 --- a/showsubnet.cgi +++ b/showsubnet.cgi @@ -9,7 +9,7 @@ use strict; use Config::IniFiles; use HOSTDB; -my $table_cols = 4; +my $table_cols = 5; ## Generic Stockholm university HOSTDB CGI initialization my ($table_blank_line, $table_hr_line, $empty_td) = HOSTDB::StdCGI::get_table_variables ($table_cols); @@ -110,17 +110,18 @@ sub list_subnet
- | - | - | + | + | + | + | + | |
$subnet_name | -+ | $h_desc | + | $edit_link | @@ -140,7 +141,7 @@ EOH $q->print (<Owner | -$owner | +$owner | EOH @@ -165,7 +166,8 @@ EOHIP | Hostname | MAC address | -Last used | +Last used | +Comment | EOH for $i (1 .. $subnet->addresses () - 2) { @@ -180,7 +182,7 @@ EOH$ip | -+ | @@ -219,11 +221,11 @@ EOH $q->print (< | Netmask | -$netmask | +$netmask |
Hosts registered | -$num_hosts/$num_addrs ($host_object_usage_percent%) | +$num_hosts/$num_addrs ($host_object_usage_percent%) | $static_hosts/$num_addrs ($static_percent%) | in use | $static_in_use/$static_hosts ($static_usage_percent%) | +|||
Dynamic hosts | $dynamic_hosts/$num_addrs ($dynamic_percent%) | in use | $dynamic_in_use/$dynamic_hosts ($dynamic_usage_percent%) | +|||||
Addresses needed | -$static_in_use + $dynamic_hosts = $addresses_needed/$num_addrs ($needed_percent%) | +$static_in_use + $dynamic_hosts = $addresses_needed/$num_addrs ($needed_percent%) | $ip | -$hostname | -$mac | +$ip | +$hostname | +$mac | $mac_ts | +$comment | EOH @@ -399,7 +414,7 @@ sub print_hostaliases push (@$o, <alias | -$alias_link $a_dnsstatus | +$alias_link $a_dnsstatus | EOH @@ -425,7 +440,7 @@ sub error_line chomp ($error); $q->print (<+ | $error |