diff options
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/view_usage_details.html')
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/view_usage_details.html | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/view_usage_details.html b/fs_selfservice/FS-SelfService/cgi/view_usage_details.html deleted file mode 100644 index c4cc177..0000000 --- a/fs_selfservice/FS-SelfService/cgi/view_usage_details.html +++ /dev/null @@ -1,80 +0,0 @@ -<%= $url = "$selfurl?session=$session_id;action="; ''; %> -<%= include('header', 'Service usage details for '. - Date::Format::time2str('%b %o %Y', $beginning). - ' - '. - Date::Format::time2str('%b %o %Y', $ending) - ) -%> - -<%= if ( $error ) { - $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!; -} ''; %> - -<TABLE WIDTH="100%"> - <TR> - <TD WIDTH="50%"> -<%= if ($previous < $beginning) { - $OUT .= qq!<A HREF="${url}view_usage_details;svcnum=$svcnum;beginning=!; - $OUT .= qq!$previous;ending=$beginning">Previous period</A>!; - }else{ - ''; - } %> - </TD> - <TD WIDTH="50%" ALIGN="right"> -<%= if ($next > $ending) { - $OUT .= qq!<A HREF="${url}view_usage_details;svcnum=$svcnum;beginning=!; - $OUT .= qq!$ending;ending=$next">Next period</A>!; - }else{ - ''; - }%> - </TD> - </TR> -</TABLE> -<TABLE BGCOLOR="#cccccc"> - <TR> - <TH ALIGN="left">Account</TH> - <TH ALIGN="right">Start Time</TH> - <TH ALIGN="right">Duration</TH> - <TH ALIGN="right">Upload</TH> - <TH ALIGN="right">Download</TH> - </TR> -<%= my $total = 0; - my $utotal = 0; - my $dtotal = 0; - foreach my $usage ( @usage ) { - $OUT .= '<TR><TD>'; - $OUT .= $usage->{'username'}; - $OUT .= '</TD><TD ALIGN="right">'; - $OUT .= Date::Format::time2str('%T%P %a %b %o %Y', $usage->{'acctstarttime'}); - $OUT .= '</TD><TD ALIGN="right">'; - my $duration = $usage->{'acctstoptime'} - $usage->{'acctstarttime'}; - $total += $duration; - my $h = int($duration/3600); - my $m = sprintf("%02d", int(($duration % 3600) / 60)); - my $s = sprintf("%02d", $duration % 60); - $OUT .= "$h:$m:$s"; - $OUT .= '</TD><TD ALIGN="right">'; - $OUT .= Number::Format::format_bytes($usage->{'acctinputoctets'}, precision => 2); - $utotal += $usage->{'acctinputoctets'}; - $OUT .= '</TD><TD ALIGN="right">'; - $OUT .= Number::Format::format_bytes($usage->{'acctoutputoctets'}, precision => 2); - $dtotal += $usage->{'acctoutputoctets'}; - $OUT .= '</TD></TR>'; - } - my $h = int($total/3600); - my $m = sprintf("%02d", int(($total % 3600) / 60)); - my $s = sprintf("%02d", $total % 60); - $OUT .= qq!<TR><TD></TD><TD></TD>!; - $OUT .= qq!<TD ALIGN="right"><HR></TD>! x 3; - $OUT .= qq!</TR>!; - $OUT .= qq!<TR><TD></TD><TD></TD><TD ALIGN="right">$h:$m:$s</TD>!; - $OUT .= qq!<TD ALIGN="right">!; - $OUT .= Number::Format::format_bytes($utotal, precision => 2). qq!</TD>!; - $OUT .= qq!<TD ALIGN="right">!; - $OUT .= Number::Format::format_bytes($dtotal, precision => 2). qq!</TD>!; - $OUT .= qq!</TR>!; %> - -</TABLE> -<BR> - -<%= include('footer') %> |