| # | Line 1 | Line 1 | |
|---|---|---|
| 1 | < | #!/usr/local/bin/perl -w |
| 1 | > | #!/usr/bin/perl -w |
| 2 | ||
| 3 | # ----------------------------------------------------------- | |
| 4 | # Perl i-scream Host. | |
| # | Line 169 | Line 169 | sub send_udp_packet() { | |
| 169 | $disk_info .= "</disk>"; | |
| 170 | ||
| 171 | my($hostname) = hostname(); | |
| 172 | < | $hostname =~ s/^([^\.]*?)/$1/; |
| 172 | > | $hostname =~ s/\..*$//g; |
| 173 | my($domainname) = `cat /etc/resolv.conf`; | |
| 174 | $domainname =~ s/domain\s*([^\s]*?)/$1/; | |
| 175 | my($machine_name) = "$hostname.$domainname"; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |