| ';
$OUT .= $usage->{'username'};
$OUT .= ' | ';
$OUT .= Date::Format::time2str('%T%P %a %b %o %Y', $usage->{'acctstarttime'});
$OUT .= ' | ';
my $duration = ( $usage->{'acctstoptime'} && $usage->{'acctstarttime'} )
? ( $usage->{'acctstoptime'} - $usage->{'acctstarttime'} )
: 0;
$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 .= ' |
';
}
my $h = int($total/3600);
my $m = sprintf("%02d", int(($total % 3600) / 60));
my $s = sprintf("%02d", $total % 60);
$OUT .= qq!