summaryrefslogtreecommitdiff
path: root/fs_selfservice/FS-SelfService/cgi/view_usage_details.html
diff options
context:
space:
mode:
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/view_usage_details.html')
-rw-r--r--fs_selfservice/FS-SelfService/cgi/view_usage_details.html80
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&nbsp;%o&nbsp;%Y', $beginning).
- ' - '.
- Date::Format::time2str('%b&nbsp;%o&nbsp;%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&nbsp;%b&nbsp;%o&nbsp;%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') %>