my $target_user = shift or die &usage;
my $start = shift or die &usage;
$start = str2time($start);
my $target_user = shift or die &usage;
my $start = shift or die &usage;
$start = str2time($start);
my $svc_acct = qsearchs( 'svc_acct', { 'username' => $target_user } );
die "username $target_user not found\n" unless $svc_acct;
my $svc_acct = qsearchs( 'svc_acct', { 'username' => $target_user } );
die "username $target_user not found\n" unless $svc_acct;