mirror of
https://github.com/mangosfour/server.git
synced 2025-12-15 10:37:02 +00:00
571f510ee4
(based on cipherCOM's repo commit d3d8934) Signed-off-by: VladimirMangos <vladimir@getmangos.com>
29 lines
420 B
Perl
29 lines
420 B
Perl
#! /usr/bin/perl
|
|
# $Id: Uniqueid.pm 82648 2008-08-21 06:55:54Z johnnyw $
|
|
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;
|