Subversion Repositories camp_sysinfo_client_3

Rev

Rev 247 | Rev 256 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 247 Rev 252
Line 342... Line 342...
342 
# return hostname from hostname -f
 342 
# return hostname from hostname -f
343 
#
 343 
#
344 
#######################################################
 344 
#######################################################
345 
sub getHostName {
 345 
sub getHostName {
346 
   &logIt( 3, "Entering getHostName" );
 346 
   &logIt( 3, "Entering getHostName" );
347 
   my $hostname = `hostname -f`;
 347 
   my $hostname = lc $^O eq 'mswin32' ? `hostname` : `hostname -f`;
348 
   chomp $hostname;
 348 
   chomp $hostname;
349 
   return $hostname;
 349 
   return $hostname;
350 
}
 350 
}
351 
 
 351 
 
352 
#######################################################
 352 
#######################################################