| # | Line 169 | Line 169 | sub send_udp_packet() { | |
|---|---|---|
| 169 | $disk_info .= "</disk>"; | |
| 170 | ||
| 171 | my($hostname) = hostname(); | |
| 172 | < | ($hostname = $hostname) =~ /^([^\.]*?)/; |
| 173 | < | print $hostname; |
| 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 |