FS/bin/freeside-sqlradius-seconds

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use Date::Parse;
   5 use FS::UID qw(adminsuidsetup);
   6 use FS::Record qw(qsearchs);
   7 use FS::svc_acct;
   8
   9 my $fs_user = shift or die &usage;
  10 adminsuidsetup( $fs_user );
  11
  12 my $target_user = shift or die &usage;
  13 my $start = shift or die &usage;
  14 my $stop = shift || time;
  15
  16 my $svc_acct = qsearchs( 'svc_acct', { 'username' => $target_user } );
  17 die "username $target_user not found\n" unless $svc_acct;
  18
  19 print $svc_acct->seconds_since_sqlradacct(
  20                                            str2time($start),
  21                                            $stop ? str2time($stop) : time  ).
  22       "\n";
  23
  24 sub usage {
  25   die "Usage:\n\n  freeside-sqlradius-seconds freeside_username target_username start_date stop_date\n";
  26 }
  27
  28
  29 =head1 NAME
  30
  31 freeside-sqlradius-seconds - Real-time radacct import daemon
  32
  33 =head1 SYNOPSIS
  34
  35   freeside-sqlradius-seconds freeside_username target_username start_date [ stop_date ]
  36
  37 =head1 DESCRIPTION
  38
  39 Returns the number of seconds the specified username has been online between
  40 start_date (inclusive) and stop_date (exclusive).
  41 See L<FS::svc_acct/seconds_since_sqlradacct>
  42
  43 B<freeside_username> is a username added by freeside-adduser.
  44 B<target_username> is the username of the user account to query.
  45 B<start_date> and B<stop_date> are in any format Date::Parse is happy with.
  46 B<stop_date> defaults to now if not specified.
  47
  48 =head1 BUGS
  49
  50 Selection of the account in question is rather simplistic in that
  51 B<target_username> doesn't necessarily identify a unique account (and wouldn't
  52 even if a domain was specified), and no sqlradius export is checked for.
  53
  54 =head1 SEE ALSO
  55
  56 L<FS::svc_acct/seconds_since_sqlradacct>
  57
  58 =cut
  59
  60 1;