This is where all the useful Perl subroutines will be put.

1 files changed, 37 insertions, 0 deletions

diff --git a/bin/ACEutils.pm b/bin/ACEutils.pm
new file mode 100644
index 00000000000..3109aad3504
--- /dev/null
+++ b/bin/ACEutils.pm
@@ -0,0 +1,37 @@
+# $Id$
+
+# 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));
+}
+
+1;
\ No newline at end of file