summaryrefslogtreecommitdiff
path: root/bin/Uniqueid.pm
diff options
context:
space:
mode:
Diffstat (limited to 'bin/Uniqueid.pm')
-rw-r--r--bin/Uniqueid.pm28
1 files changed, 0 insertions, 28 deletions
diff --git a/bin/Uniqueid.pm b/bin/Uniqueid.pm
deleted file mode 100644
index f1367caa6e4..00000000000
--- a/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