summaryrefslogtreecommitdiff
path: root/bin/ACEutils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'bin/ACEutils.pm')
-rw-r--r--bin/ACEutils.pm43
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