4 %print header('NAS ports', menubar(
10 %foreach my $nas ( sort { $a->nasnum <=> $b->nasnum } qsearch( 'nas', {} ) ) {
11 % print $nas->nasnum. ": ". $nas->nas. " ".
12 % $nas->nasfqdn. " (". $nas->nasip. ") ".
13 % "as of ". time2str("%c",$nas->last).
14 % " (". &pretty_interval($now - $nas->last). " ago)<br>".
15 % &table(). "<TR><TH>Nas<BR>Port #</TH><TH>Global<BR>Port #</BR></TH>".
16 % "<TH>IP address</TH><TH>User</TH><TH>Since</TH><TH>Duration</TH><TR>",
18 % foreach my $port ( sort {
19 % $a->nasport <=> $b->nasport || $a->portnum <=> $b->portnum
20 % } qsearch( 'port', { 'nasnum' => $nas->nasnum } ) ) {
21 % my $session = $port->session;
22 % my($user, $since, $pretty_since, $duration);
26 % $pretty_since = "(never)";
28 % } elsif ( $session->logout ) {
30 % $since = $session->logout;
32 % my $svc_acct = $session->svc_acct;
33 % $user = "<A HREF=\"$p/view/svc_acct.cgi?". $svc_acct->svcnum. "\">".
34 % $svc_acct->username. "</A>";
35 % $since = $session->login;
37 % $pretty_since = time2str("%c", $since) if $since;
38 % $duration = pretty_interval( $now - $since ). " ago"
39 % unless defined($duration);
40 % print "<TR><TD>". $port->nasport. "</TD><TD>". $port->portnum. "</TD><TD>".
41 % $port->ip. "</TD><TD>$user</TD><TD>$pretty_since".
42 % "</TD><TD>$duration</TD></TR>"
45 % print "</TABLE><BR>";
49 %sub pretty_interval {
50 % my $interval = shift;
60 % foreach my $key ( sort { $b <=> $a } keys %howlong ) {
61 % my $value = int( $interval / $key );
63 % if ( $value == 1 ) {
65 % ( $howlong{$key} eq 'hour' ? 'an ' : 'a ' ). $howlong{$key}. " "
67 % $pretty .= $value. ' '. $howlong{$key}. 's ';
70 % $interval -= $value * $key;
72 % $pretty =~ /^\s*(\S.*\S)\s*$/;
76 %#print &table(), <<END;