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.13 by pjm2, Mon Feb 5 17:14:41 2001 UTC vs.
Revision 1.14 by pjm2, Mon Feb 5 17:20:07 2001 UTC

# Line 201 | Line 201 | sub send_udp_packet() {
201      }
202      $disk_info .= "</disk>";
203  
204 –    print "$disk_info\n";
205 –
204      my($hostname) = hostname();
205      $hostname =~ s/\..*$//g;
206      `cat /etc/resolv.conf` =~ /domain\s+([^\s]+)/;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines