fs_selfservice/FS-SelfService/cgi/view_usage_details.html

   1 <HTML><HEAD><TITLE>MyAccount</TITLE></HEAD>
   2 <BODY BGCOLOR="#eeeeee"><FONT SIZE=5>MyAccount</FONT><BR><BR>
   3 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
   4 <%= include('myaccount_menu') %>
   5 <TD VALIGN="top">
   6
   7 <FONT SIZE=4>Service usage details</FONT><BR><BR>
   8
   9 <%= if ( $error ) {
  10   $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!;
  11 } ''; %>
  12
  13 <TABLE WIDTH="100%">
  14   <TR>
  15     <TD WIDTH="50%">
  16 <%= if ($previous < $beginning) {
  17     $OUT .= qq!<A HREF="${url}view_usage_details;svcnum=$svcnum;beginning=!;
  18     $OUT .= qq!$previous;ending=$beginning">Previous period</A>!;
  19     }else{
  20       '';
  21     } %>
  22     </TD>
  23     <TD  WIDTH="50%" ALIGN="right">
  24 <%= if ($next > $ending) {
  25     $OUT .= qq!<A HREF="${url}view_usage_details;svcnum=$svcnum;beginning=!;
  26     $OUT .= qq!$ending;ending=$next">Next period</A>!;
  27     }else{
  28       '';
  29     }%>
  30     </TD>
  31   </TR>
  32 </TABLE>
  33 <TABLE BGCOLOR="#cccccc">
  34   <TR>
  35     <TH ALIGN="left">Account</TH>
  36     <TH ALIGN="right">Start Time</TH>
  37     <TH ALIGN="right">Duration</TH>
  38     <TH ALIGN="right">Upload</TH>
  39     <TH ALIGN="right">Download</TH>
  40   </TR>
  41 <%= my $total = 0;
  42     my $utotal = 0;
  43     my $dtotal = 0;
  44     foreach my $usage ( @usage ) {
  45   $OUT .= '<TR><TD>';
  46     $OUT .= $usage->{'username'};
  47     $OUT .= '</TD><TD ALIGN="right">';
  48     $OUT .= Date::Format::time2str('%T%P %a&nbsp;%b&nbsp;%o&nbsp;%Y', $usage->{'acctstarttime'});
  49     $OUT .= '</TD><TD ALIGN="right">';
  50     my $duration =  $usage->{'acctstoptime'} - $usage->{'acctstarttime'};
  51     $total += $duration;
  52     my $h = int($duration/3600);
  53     my $m = sprintf("%02d", int(($duration % 3600) / 60));
  54     my $s = sprintf("%02d", $duration % 60);
  55     $OUT .=  "$h:$m:$s";
  56     $OUT .= '</TD><TD ALIGN="right">';
  57     $OUT .= Number::Format::format_bytes($usage->{'acctinputoctets'}, precision => 2);
  58     $utotal += $usage->{'acctinputoctets'};
  59     $OUT .= '</TD><TD ALIGN="right">';
  60     $OUT .= Number::Format::format_bytes($usage->{'acctoutputoctets'}, precision => 2);
  61     $dtotal += $usage->{'acctoutputoctets'};
  62   $OUT .= '</TD></TR>';
  63   }
  64   my $h = int($total/3600);
  65   my $m = sprintf("%02d", int(($total % 3600) / 60));
  66   my $s = sprintf("%02d", $total % 60);
  67   $OUT .=  qq!<TR><TD></TD><TD></TD>!;
  68   $OUT .=  qq!<TD ALIGN="right"><HR></TD>! x 3;
  69   $OUT .=  qq!</TR>!;
  70   $OUT .=  qq!<TR><TD></TD><TD></TD><TD ALIGN="right">$h:$m:$s</TD>!;
  71   $OUT .=  qq!<TD ALIGN="right">!;
  72   $OUT .=  Number::Format::format_bytes($utotal, precision => 2). qq!</TD>!;
  73   $OUT .=  qq!<TD ALIGN="right">!;
  74   $OUT .=  Number::Format::format_bytes($dtotal, precision => 2). qq!</TD>!;
  75   $OUT .=  qq!</TR>!; %>
  76
  77 </TABLE>
  78 <BR>
  79
  80 </TD></TR></TABLE>
  81 <HR>
  82 <FONT SIZE="-2">powered by <a href="http://www.sisd.com/freeside">freeside</a></FONT>
  83 </BODY></HTML>