MyAccount

MyAccount

<%= $url = "$selfurl?session=$session_id;action="; ''; %> <%= include('myaccount_menu') %> Service usage details for <%= Date::Format::time2str('%b %o %Y', $beginning) %> - <%= Date::Format::time2str('%b %o %Y', $ending) %>

<%= if ( $error ) { $OUT .= qq!$error

!; } ''; %>

<%= if ($previous < $beginning) { $OUT .= qq!Previous period!; }else{ ''; } %>

<%= if ($next > $ending) { $OUT .= qq!Next period!; }else{ ''; }%>

<%= my $total = 0; my $utotal = 0; my $dtotal = 0; foreach my $usage ( @usage ) { $OUT .= ''; } my $h = int($total/3600); my $m = sprintf("%02d", int(($total % 3600) / 60)); my $s = sprintf("%02d", $total % 60); $OUT .= qq!!; $OUT .= qq!! x 3; $OUT .= qq!!; $OUT .= qq!!; $OUT .= qq!!; $OUT .= qq!!; $OUT .= qq!!; %>

Account	Start Time	Duration	Upload	Download
'; $OUT .= $usage->{'username'}; $OUT .= '	'; $OUT .= Date::Format::time2str('%T%P %a %b %o %Y', $usage->{'acctstarttime'}); $OUT .= '	'; 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 .= '	'; $OUT .= Number::Format::format_bytes($usage->{'acctinputoctets'}, precision => 2); $utotal += $usage->{'acctinputoctets'}; $OUT .= '	'; $OUT .= Number::Format::format_bytes($usage->{'acctoutputoctets'}, precision => 2); $dtotal += $usage->{'acctoutputoctets'}; $OUT .= '

		$h:$m:$s	!; $OUT .= Number::Format::format_bytes($utotal, precision => 2). qq!	!; $OUT .= Number::Format::format_bytes($dtotal, precision => 2). qq!