blob: 2aafbc1fd75be3a52bf3476ef7a28b9a32bc8916 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
#!/usr/bin/perl -Tw
use strict;
use vars qw( $cgi $p );
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Date::Format;
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearch); # qsearchs);
use FS::CGI qw(header menubar table popurl);
use FS::nas;
use FS::port;
use FS::session;
$cgi = new CGI;
&cgisuidsetup($cgi);
$p=popurl(2);
print $cgi->header( '-expires' => 'now' ), 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)<br>".
&table(). "<TR><TH>Nas<BR>Port #</TH><TH>Global<BR>Port #</BR></TH>".
"<TH>IP address</TH><TH>User</TH><TH>Since</TH><TH>Duration</TH><TR>",
;
foreach my $port ( sort {
$a->nasport <=> $b->nasport || $a->portnum <=> $b->portnum
} qsearch( 'port' ) ) {
print "<TR><TD>". $port->nasport. "</TD><TD>". $port->portnum. "</TD><TD>".
$port->ip. "</TD><TD>". 'user'. "</TD><TD>". 'since'. "</TD><TD>".
'duration'. "</TD></TR>"
;
}
print "</TABLE><BR>";
}
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(), <<END;
#<TR>
# <TH>#</TH>
# <TH>NAS</
|
