Picketing with packets enhanced version

[Cynthia Brown]

On Fri, 22 Aug 1997, Patrick Oonk wrote:

> There were several problems. One of it still remains, 
> it does not resolve FDQN's, so you have to use IP-numbers in
> the hosts file.

Suggested mod:

---snip---
# diff -e picket.orig.pl picket.pl
55,57d
50c
     if ($host =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
       $ipaddr = inet_aton( $host ) ||
         die "inet_aton: invalid IP address $host";
       }
     else {
       $ipaddr = (gethostbyname($host))[4] ||
         die "gethostbyname: hostname $host not found";
       }