delete fees, RT#81713

[freeside.git] / FS / bin / freeside-sqlradius-seconds

diff --git a/FS/bin/freeside-sqlradius-seconds b/FS/bin/freeside-sqlradius-seconds
index 0539cb4..9999cbb 100644 (file)
--- a/FS/bin/freeside-sqlradius-seconds
+++ b/FS/bin/freeside-sqlradius-seconds
@@ -10,8 +10,9 @@ my $fs_user = shift or die &usage;
 adminsuidsetup( $fs_user );
 
 my $target_user = shift or die &usage;
-my $start = scalar(@_) && str2time(shift) or die &usage;
-my $stop =  scalar(@_) ?  str2time(shift) :  time;
+my $start = shift or die &usage;
+$start = str2time($start);
+my $stop =  scalar(@ARGV) ? str2time(shift) : time;
 
 my $svc_acct = qsearchs( 'svc_acct', { 'username' => $target_user } );
 die "username $target_user not found\n" unless $svc_acct;
@@ -25,7 +26,7 @@ sub usage {
 
 =head1 NAME
 
-freeside-sqlradius-seconds - Real-time radacct import daemon
+freeside-sqlradius-seconds - Command line time-online tool
 
 =head1 SYNOPSIS