diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-31 23:14:57 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-31 23:14:57 +0000 |
| commit | 560da44a91e9eb0d22f7ca11b7941b724a418aea (patch) | |
| tree | d40ab0cf072d881d2f259c9744c9535e3621939a /bin | |
| parent | 03f470baa8028c66a148d644ff0782b48c68f179 (diff) | |
| download | ATCD-560da44a91e9eb0d22f7ca11b7941b724a418aea.tar.gz | |
Extra generic utils
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/ACEutils.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/bin/ACEutils.pm b/bin/ACEutils.pm index 3109aad3504..a053e25457c 100644 --- a/bin/ACEutils.pm +++ b/bin/ACEutils.pm @@ -1,4 +1,7 @@ # $Id$ +package ACE; + +require Process; # Returns a unique id, uid for unix, last digit of IP for NT sub uniqueid @@ -11,7 +14,7 @@ sub uniqueid while (<IPNUM>) { - if (/Address/) + if (/Address/) { $uid = (split (/: (\d+)\.(\d+)\.(\d+)\.(\d+)/))[4]; } @@ -34,4 +37,6 @@ sub waitforfile sleep 1 while (!(-e $file)); } +$sleeptime = 5; + 1;
\ No newline at end of file |