blob: e2253a34afacf4bc9e39641dbcc4d712f082c369 (
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
76
77
|
% if ( $part_svc->part_export_usage ) {
%
% my $last_bill;
% my %plandata;
% if ( $cust_pkg ) {
% #false laziness w/httemplate/edit/part_pkg... this stuff doesn't really
% #belong in plan data
% %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
% split("\n", $cust_pkg->part_pkg->plandata );
%
% $last_bill = $cust_pkg->last_bill;
% } else {
% $last_bill = 0;
% %plandata = ();
% }
%
% my $seconds = $svc_acct->seconds_since_sqlradacct( $last_bill, time );
% my $hour = int($seconds/3600);
% my $min = int( ($seconds%3600) / 60 );
% my $sec = $seconds%60;
%
% my $input = $svc_acct->attribute_since_sqlradacct(
% $last_bill, time, 'AcctInputOctets'
% ) / 1048576;
% my $output = $svc_acct->attribute_since_sqlradacct(
% $last_bill, time, 'AcctOutputOctets'
% ) / 1048576;
%
%
RADIUS session information<BR>
<% ntable('#cccccc',2) %>
<TR><TD BGCOLOR="#ffffff">
% if ( $seconds ) {
Online <B><% $hour %></B>h <B><% $min %></B>m <B><% $sec %></B>s
% } else {
Has not logged on
% }
% if ( $cust_pkg ) {
since last bill (<% time2str('%a %b %o %Y', $last_bill) %>)
% if ( length($plandata{recur_included_hours}) ) {
- <% $plandata{recur_included_hours} %> total hours in plan
% }
<BR>
% } else {
(no billing cycle available for unaudited account)<BR>
% }
Upload: <B><% sprintf("%.3f", $input) %></B> megabytes<BR>
Download: <B><% sprintf("%.3f", $output) %></B> megabytes<BR>
Last Login: <B><% $svc_acct->last_login_text %></B><BR>
% my $href = qq!<A HREF="${p}search/sqlradius.cgi?svcnum=!. $svc_acct->svcnum;
View session detail:
<% $href %>;begin=<% $last_bill %>">this billing cycle</A>
| <% $href %>;begin=<% time-15552000 %>">past six months</A>
| <% $href %>">all sessions</A>
</TD></TR></TABLE><BR>
% }
<%init>
my %opt = @_;
my $svc_acct = $opt{'svc_acct'};
my $part_svc = $opt{'part_svc'};
my $cust_pkg = $opt{'cust_pkg'};
</%init>
|