<%
print header('NAS ports', menubar(
'Main Menu' => $p,
));
my $now = time;
foreach my $nas ( sort { $a->nasnum <=> $b->nasnum } qsearch( 'nas', {} ) ) {
print $nas->nasnum. ": ". $nas->nas. " ".
$nas->nasfqdn. " (". $nas->nasip. ") ".
"as of ". time2str("%c",$nas->last).
" (". &pretty_interval($now - $nas->last). " ago)
".
&table(). "Nas
Port # | Global
Port # | ".
"IP address | User | Since | Duration |
|---|
",
;
foreach my $port ( sort {
$a->nasport <=> $b->nasport || $a->portnum <=> $b->portnum
} qsearch( 'port', { 'nasnum' => $nas->nasnum } ) ) {
my $session = $port->session;
my($user, $since, $pretty_since, $duration);
if ( ! $session ) {
$user = "(empty)";
$since = 0;
$pretty_since = "(never)";
$duration = '';
} elsif ( $session->logout ) {
$user = "(empty)";
$since = $session->logout;
} else {
my $svc_acct = $session->svc_acct;
$user = "svcnum. "\">".
$svc_acct->username. "";
$since = $session->login;
}
$pretty_since = time2str("%c", $since) if $since;
$duration = pretty_interval( $now - $since ). " ago"
unless defined($duration);
print "
| ". $port->nasport. " | ". $port->portnum. " | ".
$port->ip. " | $user | $pretty_since".
" | $duration |
"
;
}
print "
";
}
#Time::Duration??
sub pretty_interval {
my $interval = shift;
my %howlong = (
'604800' => 'week',
'86400' => 'day',
'3600' => 'hour',
'60' => 'minute',
'1' => 'second',
);
my $pretty = "";
foreach my $key ( sort { $b <=> $a } keys %howlong ) {
my $value = int( $interval / $key );
if ( $value ) {
if ( $value == 1 ) {
$pretty .=
( $howlong{$key} eq 'hour' ? 'an ' : 'a ' ). $howlong{$key}. " "
} else {
$pretty .= $value. ' '. $howlong{$key}. 's ';
}
}
$interval -= $value * $key;
}
$pretty =~ /^\s*(\S.*\S)\s*$/;
$1;
}
#print &table(), <
# # |
# NAS
|