| # | Line 170 | Line 170 | sub send_udp_packet() { | |
|---|---|---|
| 170 | ||
| 171 | my($hostname) = hostname(); | |
| 172 | $hostname =~ s/\..*$//g; | |
| 173 | – | print $hostname; |
| 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 |