httemplate/browse/nas.cgi

   1 <%
   2
   3 print header('NAS ports', menubar(
   4   'Main Menu' => $p,
   5 ));
   6
   7 my $now = time;
   8
   9 foreach my $nas ( sort { $a->nasnum <=> $b->nasnum } qsearch( 'nas', {} ) ) {
  10   print $nas->nasnum. ": ". $nas->nas. " ".
  11         $nas->nasfqdn. " (". $nas->nasip. ") ".
  12         "as of ". time2str("%c",$nas->last).
  13         " (". &pretty_interval($now - $nas->last). " ago)<br>".
  14         &table(). "<TR><TH>Nas<BR>Port #</TH><TH>Global<BR>Port #</BR></TH>".
  15         "<TH>IP address</TH><TH>User</TH><TH>Since</TH><TH>Duration</TH><TR>",
  16   ;
  17   foreach my $port ( sort {
  18     $a->nasport <=> $b->nasport || $a->portnum <=> $b->portnum
  19   } qsearch( 'port', { 'nasnum' => $nas->nasnum } ) ) {
  20     my $session = $port->session;
  21     my($user, $since, $pretty_since, $duration);
  22     if ( ! $session ) {
  23       $user = "(empty)";
  24       $since = 0;
  25       $pretty_since = "(never)";
  26       $duration = '';
  27     } elsif ( $session->logout ) {
  28       $user = "(empty)";
  29       $since = $session->logout;
  30     } else {
  31       my $svc_acct = $session->svc_acct;
  32       $user = "<A HREF=\"$p/view/svc_acct.cgi?". $svc_acct->svcnum. "\">".
  33               $svc_acct->username. "</A>";
  34       $since = $session->login;
  35     }
  36     $pretty_since = time2str("%c", $since) if $since;
  37     $duration = pretty_interval( $now - $since ). " ago"
  38       unless defined($duration);
  39     print "<TR><TD>". $port->nasport. "</TD><TD>". $port->portnum. "</TD><TD>".
  40           $port->ip. "</TD><TD>$user</TD><TD>$pretty_since".
  41           "</TD><TD>$duration</TD></TR>"
  42     ;
  43   }
  44   print "</TABLE><BR>";
  45 }
  46
  47 #Time::Duration??
  48 sub pretty_interval {
  49   my $interval = shift;
  50   my %howlong = (
  51     '604800' => 'week',
  52     '86400'  => 'day',
  53     '3600'   => 'hour',
  54     '60'     => 'minute',
  55     '1'      => 'second',
  56   );
  57
  58   my $pretty = "";
  59   foreach my $key ( sort { $b <=> $a } keys %howlong ) {
  60     my $value = int( $interval / $key );
  61     if ( $value  ) {
  62       if ( $value == 1 ) {
  63         $pretty .=
  64           ( $howlong{$key} eq 'hour' ? 'an ' : 'a ' ). $howlong{$key}. " "
  65       } else {
  66         $pretty .= $value. ' '. $howlong{$key}. 's ';
  67       }
  68     }
  69     $interval -= $value * $key;
  70   }
  71   $pretty =~ /^\s*(\S.*\S)\s*$/;
  72   $1;
  73 }
  74
  75 #print &table(), <<END;
  76 #<TR>
  77 #  <TH>#</TH>
  78 #  <TH>NAS</
  79 %>