ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/ihost-perl/ihost.pl
(Generate patch)

Comparing projects/cms/source/host/ihost-perl/ihost.pl (file contents):
Revision 1.2 by pjm2, Fri Jan 26 17:26:11 2001 UTC vs.
Revision 1.3 by pjm2, Fri Jan 26 17:32:32 2001 UTC

# Line 169 | Line 169 | sub send_udp_packet() {
169      $disk_info .= "</disk>";
170  
171      my($hostname) = hostname();
172 <    $hostname =~ s/^([^\.]*?).*$/$1/;
172 >    ($hostname = $hostname) =~ /^([^\.]*?)/;
173 >    print $hostname;
174      my($domainname) = `cat /etc/resolv.conf`;
175      $domainname =~ s/domain\s*([^\s]*?)/$1/;
176      my($machine_name) = "$hostname.$domainname";

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines