<%= $url = "$selfurl?action="; %by_pkg_label = (); # not used yet, but I'm sure it will be... @svc_acct = (); @svc_phone = (); @svc_port = (); foreach (@svcs) { $by_pkg_label{ $_->{pkg_label} } ||= []; push @{ $by_pkg_label{ $_->{pkg_label} } }, $_; if ( $_->{svcdb} eq 'svc_acct' ) { push @svc_acct, $_; } elsif ( $_->{svcdb} eq 'svc_phone' ) { push @svc_phone, $_; } elsif ( $_->{svcdb} eq 'svc_port' ) { push @svc_port, $_; } } ''; %> <%= include('header', 'Account usage') %> <%= if( $hide_usage ){ $OUT .= '<' . '!--' } %> <%= if ( $error ) { $OUT .= qq!$error

!; } ''; %> <%= if ( @svc_acct ) { $OUT.= ''; } else { $OUT .= ''; } %> <%= foreach my $svc ( @svc_acct ) { my $link = "${url}view_usage_details;". "svcnum=$svc->{'svcnum'};beginning=0;ending=0"; my $username = $svc->{'value'}; $username =~ s/@.*?$//g if $view_usage_nodomain; $OUT .= ''; if ( $svc->{'recharge_amount'} ) { my $link = "${url}process_order_recharge;". "svcnum=$svc->{'svcnum'}"; $OUT .= ''; } } %> <%= scalar(@svc_acct) ? '

Account	Time remaining	Upload remaining	Download remaining	Total remaining
'; $OUT .= qq!!. $svc->{'label'}. ': '. $username .''; $OUT .= '	'; $OUT .= $svc->{'seconds'}; $OUT .= '	'; $OUT .= $svc->{'upbytes'}; $OUT .= '	'; $OUT .= $svc->{'downbytes'}; $OUT .= '	'; $OUT .= $svc->{'totalbytes'}; $OUT .= '
'; $OUT .= qq!!.'Recharge for $'; $OUT .= $svc->{'recharge_amount'} . ' with'; $OUT .= '	'; $OUT .= $svc->{'recharge_seconds'} if $svc->{'recharge_seconds'}; $OUT .= '	'; $OUT .= $svc->{'recharge_upbytes'} if $svc->{'recharge_upbytes'}; $OUT .= '	'; $OUT .= $svc->{'recharge_downbytes'} if $svc->{'recharge_downbytes'}; $OUT .= '	'; $OUT .= $svc->{'recharge_totalbytes'} if $svc->{'recharge_totalbytes'}; $OUT .= '

' : '' %> <%= if ( @svc_phone ) { %any = (); for my $dir (qw(outbound inbound)) { $any{$dir} = grep { $_->{$dir} } @svc_phone; } $OUT.= 'Call usage

'; if ( $any{outbound} ) { $OUT .= ' '; } if ( $any{inbound} ) { $OUT .= ' '; } $OUT .= ''; } else { $OUT .= ''; } %> <%= foreach my $svc_phone ( @svc_phone ) { my $link = "${url}view_cdr_details;". "svcnum=$svc_phone->{'svcnum'};beginning=0;ending=0"; $OUT .= ''; # usage summary w/ links for my $dir (qw(outbound inbound)) { if ( $dir eq 'inbound' ) { $link .= ';inbound=1'; } if ( $svc_phone->{$dir} ) { $OUT .= ''; } elsif ( $any{$dir} ) { $OUT .= ''; } } $OUT .= ''; } ''; %> <%= if ( @usage_pools ) { $OUT .= '

Number	Dialed	Received
'. $svc_phone->{'label'}. ': '. $svc_phone->{'value'}; $OUT .= '	'.qq!! . sprintf('%d calls (%.0f minutes)', $svc_phone->{$dir}->{'count'}, $svc_phone->{$dir}->{'duration'} / 60 ) . '

'; my $any_shared = 0; foreach my $usage (@usage_pools) { # false laziness with the back office side my ($description, $remain, $total, $shared) = @$usage; if ( $shared ) { $any_shared = 1; $description .= '*'; } my $ratio = 255 * ($remain/$total); $ratio = 255 if $color > 255; my $color = sprintf('STYLE="font-weight: bold; color: #%02x%02x00"', 255 - $ratio, $ratio); $OUT .= qq!!; } if ( $any_shared ) { $OUT .= ''. ''; } } if ( scalar(@svc_phone) or scalar(@usage_pools) ) { $OUT .= '

Remaining minutes
$description	$remain	/	$total
* shared among all your phone plans

'; } ''; %> <%= if ( @svc_port ) { $OUT.= 'Bandwidth Graphs

'; } $OUT .= ''; %> <%= sub preset_range { my($start,$end,$label,$date_format,$prefix) = (shift,shift,shift,shift,shift); $start = Date::Format::time2str($date_format,$start); $end = Date::Format::time2str($date_format,$end); return ''.$label.''; } foreach my $svc_port ( @svc_port ) { $svcnum = $svc_port->{'svcnum'}; $default_end = time; $default_start = $default_end-86400; $OUT .= ''; $OUT .= qq! '; } %> <%= scalar(@svc_port) ? '

Service
'. $svc_port->{'label'}. ': '. $svc_port->{'value'}.'	!; $OUT .= preset_range($default_start,$default_end,'Last Day',$date_format,$svcnum) .' | '.preset_range($default_end-86400*7,$default_end,'Last Week',$date_format,$svcnum) .' | '.preset_range($default_end-86400*30,$default_end,'Last Month',$date_format,$svcnum) .' | '.preset_range($default_end-86400*365,$default_end,'Last Year',$date_format,$svcnum); $OUT .= qq! Start Date End Date !; $OUT .= '

' : '' %> <%= if( $hide_usage ){ $OUT .= '--'. '>' } %> <%= include('footer') %>