diff options
| author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-09-23 07:40:53 +0000 |
|---|---|---|
| committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-09-23 07:40:53 +0000 |
| commit | f7fc0a325de3ed035ba49b57bce59f40e3e47334 (patch) | |
| tree | 0ee9b34bda3d7c4e6edb2a849b7e8fb249aba464 /bin/ACEutils.pm | |
| parent | ad435afda0158f2154ae04cb764766f17f5f24bd (diff) | |
| download | ATCD-TAO-0_2_14.tar.gz | |
This commit was manufactured by cvs2svn to create tag 'TAO-0_2_14'.TAO-0_2_14
Diffstat (limited to 'bin/ACEutils.pm')
| -rw-r--r-- | bin/ACEutils.pm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/bin/ACEutils.pm b/bin/ACEutils.pm deleted file mode 100644 index 9b5781b954c..00000000000 --- a/bin/ACEutils.pm +++ /dev/null @@ -1,43 +0,0 @@ -# $Id$ - -require Process; - -package ACE; - -# Returns a unique id, uid for unix, last digit of IP for NT -sub uniqueid -{ - if ($^O eq "MSWin32") - { - my $uid = 1; - - open (IPNUM, "ipconfig|") || die "Can't run ipconfig: $!\n"; - - while (<IPNUM>) - { - if (/Address/) - { - $uid = (split (/: (\d+)\.(\d+)\.(\d+)\.(\d+)/))[4]; - } - } - - close IPNUM; - - return $uid; - } - else - { - return getpwnam (getlogin ()); - } -} - -# Waits until a file exists -sub waitforfile -{ - local($file) = @_; - sleep 1 while (!(-e $file)); -} - -$sleeptime = 5; - -1;
\ No newline at end of file |