X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-pingd;fp=FS%2Fbin%2Ffreeside-pingd;h=8cfb26a5f7cd32137efff6495eb73d0a370aed6d;hp=9141e5fcb56b375a7e2128bfbfb598de7e776a3e;hb=2416fc07f8626ac8c3a1db67bb8a3560c05c2736;hpb=a5242cfab7eeb5f02e9025d79eb97e077e3d1abb

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>
+";
+}
+