3 #false-laziness hack w freeside-logout
6 use FS::SessionClient qw( login portnum );
11 if ( scalar(@ARGV) == 1 ) {
13 if ( $arg =~ /^(\d+)$/ ) {
15 } elsif ( $arg =~ /^([\d\.]+)$/ ) {
16 $portnum = portnum( { 'ip' => $1 } ) or die "unknown ip!"
20 } elsif ( scalar(@ARGV) == 2 ) {
21 $portnum = portnum( { 'nasnum' => shift, 'nasport' => shift } )
22 or die "unknown nasnum/nasport";
28 'username' => $username,
29 'portnum' => $portnum,
32 warn $error if $error;
35 die "Usage:\n\n freeside-login username ( portnum | ip | nasnum nasport )";