% if ( $part_svc->part_export_usage ) {
%
% my $last_bill;
% my %plandata;
% if ( $cust_pkg ) {
% #false laziness w/httemplate/edit/part_pkg... this stuff doesn't really
% #belong in plan data
% %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
% split("\n", $cust_pkg->part_pkg->plandata );
%
% $last_bill = $cust_pkg->last_bill;
% } else {
% $last_bill = 0;
% %plandata = ();
% }
%
% my $seconds = $svc->seconds_since_sqlradacct( $last_bill, time );
% my $hour = int($seconds/3600);
% my $min = int( ($seconds%3600) / 60 );
% my $sec = $seconds%60;
%
% my $input = $svc->attribute_since_sqlradacct(
% $last_bill, time, 'AcctInputOctets'
% ) / 1048576;
% my $output = $svc->attribute_since_sqlradacct(
% $last_bill, time, 'AcctOutputOctets'
% ) / 1048576;
%
% my $last_mac = $svc->attribute_last_sqlradacct( 'CallingStationId' );
% if ( $last_mac =~ /^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i
% && my $vendor = Net::MAC::Vendor::lookup($1)
% )
% {
% $last_mac .= ' ('. $vendor->[0]. ')';
% }
RADIUS session information
<% ntable('#cccccc',2) %>