$entries{$key}->{IPADDR}
$entries{$key}->{ETHER} |
$hostname |
END
;
if ($entries{$key}->{ENDTIME} eq 'never') {
print "$Lang::tr{'no time limit'}";
} else {
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $dst);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $dst) = localtime ($entries{$key}->{ENDTIME});
my $enddate = sprintf ("%02d/%02d/%d %02d:%02d:%02d",$mday,$mon+1,$year+1900,$hour,$min,$sec);
if ($entries{$key}->{ENDTIME} < time() ){
print "$enddate";
} else {
print "$enddate";
}
}
if ( $hostname eq '' ) {
$hostname = $Lang::tr{'device'};
}
print <
|