diff options
Diffstat (limited to 'ACE/bin/Uniqueid.pm')
-rw-r--r-- | ACE/bin/Uniqueid.pm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/ACE/bin/Uniqueid.pm b/ACE/bin/Uniqueid.pm deleted file mode 100644 index f1367caa6e4..00000000000 --- a/ACE/bin/Uniqueid.pm +++ /dev/null @@ -1,28 +0,0 @@ -# $Id$ -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 ()); - } -} - -1;
\ No newline at end of file |