summaryrefslogtreecommitdiff
path: root/fs_sesmon/FS-SessionClient/bin/freeside-logout
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2006-08-23 22:25:40 +0000
committercvs2git <cvs2git>2006-08-23 22:25:40 +0000
commit58d093219cf60264550b8c34649d9f3190eda042 (patch)
tree10418dd70b52416a5f52da8e17d8e282d914595d /fs_sesmon/FS-SessionClient/bin/freeside-logout
parent3ce7691203a7737406bf2d4442f7fd84b81f847e (diff)
This commit was manufactured by cvs2svn to create tagAFTER_FINAL_MASONIZE
'AFTER_FINAL_MASONIZE'.
Diffstat (limited to 'fs_sesmon/FS-SessionClient/bin/freeside-logout')
-rw-r--r--fs_sesmon/FS-SessionClient/bin/freeside-logout36
1 files changed, 0 insertions, 36 deletions
diff --git a/fs_sesmon/FS-SessionClient/bin/freeside-logout b/fs_sesmon/FS-SessionClient/bin/freeside-logout
deleted file mode 100644
index 9b4ecfe23..000000000
--- a/fs_sesmon/FS-SessionClient/bin/freeside-logout
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl -Tw
-
-#false-laziness hack w freeside-login
-
-use strict;
-use FS::SessionClient qw( logout portnum );
-
-my $username = shift;
-
-my $portnum;
-if ( scalar(@ARGV) == 1 ) {
- my $arg = shift;
- if ( $arg =~ /^(\d+)$/ ) {
- $portnum = $1;
- } elsif ( $arg =~ /^([\d\.]+)$/ ) {
- $portnum = portnum( { 'ip' => $1 } ) or die "unknown ip!"
- } else {
- &usage;
- }
-} elsif ( scalar(@ARGV) == 2 ) {
- $portnum = portnum( { 'nasnum' => shift, 'nasport' => shift } )
- or die "unknown nasnum/nasport";
-} else {
- &usage;
-}
-
-my $error = logout ( {
- 'username' => $username,
- 'portnum' => $portnum,
-} );
-
-warn $error if $error;
-
-sub usage {
- die "Usage:\n\n freeside-logout username ( portnum | ip | nasnum nasport )";
-}