diff options
| author | Mark Wells <mark@freeside.biz> | 2016-09-26 15:34:42 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2016-09-27 10:18:19 -0700 |
| commit | 2416fc07f8626ac8c3a1db67bb8a3560c05c2736 (patch) | |
| tree | a88f1421a77df1ae9e3c5387c30f8edf5ac0446d /FS | |
| parent | a5242cfab7eeb5f02e9025d79eb97e077e3d1abb (diff) | |
cleanup
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/bin/freeside-pingd | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/FS/bin/freeside-pingd b/FS/bin/freeside-pingd index 9141e5fcb..8cfb26a5f 100644 --- a/FS/bin/freeside-pingd +++ b/FS/bin/freeside-pingd @@ -2,10 +2,10 @@ use strict; use FS::Daemon ':all'; -use FS::Misc::Getopt; use FS::UID qw(dbh adminsuidsetup); use FS::Record qw( dbh qsearch qsearchs ); use FS::addr_status; +use Getopt::Std; use Net::Ping; my @TARGETS = ( @@ -21,7 +21,8 @@ my $timeout = 5.0; # seconds # maybe useful opts: interface, protocol, packet size, no-fork our %opt; -getopts('vxi:'); +getopts('vxi:', \%opt); +my $user = shift or die usage(); if (!$opt{x}) { daemonize1('freeside-pingd'); @@ -33,7 +34,11 @@ if ($opt{i}) { $interval = $opt{i}; } -adminsuidsetup($opt{user}); +sub debug { + warn(@_, "\n") if $opt{v}; +} + +adminsuidsetup($user); $FS::UID::AutoCommit = 1; while(1) { @@ -111,3 +116,9 @@ sub scan { } } +sub usage { + "Usage: + freeside-pingd [ -i INTERVAL ] [ -v ] [ -x ] <username> +"; +} + |