|
|
@@ -21,7 +21,7 @@ my $myip = $ENV{'SERVER_ADDR'};
|
|
21
|
21
|
my $myport = $ENV{'SERVER_PORT'};
|
|
22
|
22
|
my $myhostname = hostname;
|
|
23
|
23
|
my $mylocaltime = &mygetstrtime;
|
|
24
|
|
-my $username = getpwuid( $< );
|
|
|
24
|
+my $username = ( $^O eq "MSWin32" ? '' : getpwuid( $< ));
|
|
25
|
25
|
|
|
26
|
26
|
print "Client:\n";
|
|
27
|
27
|
print " $ip:$port\n";
|