4 use vars qw( $cgi $p );
6 use CGI::Carp qw(fatalsToBrowser);
8 use FS::UID qw(cgisuidsetup);
9 use FS::Record qw(qsearch); # qsearchs);
10 use FS::CGI qw(header menubar table popurl);
20 print $cgi->header( '-expires' => 'now' ), header('NAS ports', menubar(
26 foreach my $nas ( sort { $a->nasnum <=> $b->nasnum } qsearch( 'nas', {} ) ) {
27 print $nas->nasnum. ": ". $nas->nas. " ".
28 $nas->nasfqdn. " (". $nas->nasip. ") ".
29 "as of ". time2str("%c",$nas->last).
30 " (". &pretty_interval($now - $nas->last). " ago)<br>".
31 &table(). "<TR><TH>Nas<BR>Port #</TH><TH>Global<BR>Port #</BR></TH>".
32 "<TH>IP address</TH><TH>User</TH><TH>Since</TH><TH>Duration</TH><TR>",
34 foreach my $port ( sort {
35 $a->nasport <=> $b->nasport || $a->portnum <=> $b->portnum
36 } qsearch( 'port' ) ) {
37 print "<TR><TD>". $port->nasport. "</TD><TD>". $port->portnum. "</TD><TD>".
38 $port->ip. "</TD><TD>". 'user'. "</TD><TD>". 'since'. "</TD><TD>".
39 'duration'. "</TD></TR>"
56 foreach my $key ( sort { $b <=> $a } keys %howlong ) {
57 my $value = int( $interval / $key );
61 ( $howlong{$key} eq 'hour' ? 'an ' : 'a ' ). $howlong{$key}. " "
63 $pretty .= $value. ' '. $howlong{$key}. 's ';
66 $interval -= $value * $key;
68 $pretty =~ /^\s*(\S.*\S)\s*$/;
72 #print &table(), <<END;