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