[MacPerl] Net::Whois patches

[Chris Nandor <pudge@pobox.com>]

For those who want it now, here is a patch for Net::Whois 0.23.  This weekend I 
will try to put a patched version online, until Chip gets a new one out
(sometime next year ;-).

*** Bird:src:Pudge:pudgeprogs:perl:cpan:build:Net-Whois-0.23:Whois.pm	Sun Jan 31 11:24:06 1999
--- Bird:src:Pudge:pudgeprogs:perl:site_specific:Net:Whois.pm	Sun Jan 31 11:32:59 1999
***************
*** 194,216 ****
      my $text;
  
      my $sock = Net::Whois::_connect();
!     print $sock "dom $domain\r\n";
      { local $/; $text = <$sock> }
      undef $sock;
      $text || return;
  
      if ($text =~ /single out one record/) {
! 	return unless $text =~ /\((.+?)\)[ \t]+\Q$domain\E\r?\n/i;
  	my $newdomain = $1;
  	$sock = Net::Whois::_connect();
! 	print $sock "dom $newdomain\r\n";
  	{ local $/; $text = <$sock> }
  	undef $sock;
  	$text || return;
      }
  
!     $text =~ s/^ +//gm;
!     my @text = split / *\r?\n/, $text;
      my (@t, $t, $c);
  
      my %info;
--- 194,216 ----
      my $text;
  
      my $sock = Net::Whois::_connect();
!     print $sock "dom $domain\015\012";
      { local $/; $text = <$sock> }
      undef $sock;
      $text || return;
  
      if ($text =~ /single out one record/) {
! 	return unless $text =~ /\((.+?)\)[ \t]+\Q$domain\E\\015?\012/i;
  	my $newdomain = $1;
  	$sock = Net::Whois::_connect();
! 	print $sock "dom $newdomain\015\012";
  	{ local $/; $text = <$sock> }
  	undef $sock;
  	$text || return;
      }
  
!     my @text = split(/ *\015?\012/, $text);
!     for (@text) {s/^ +//}
      my (@t, $t, $c);
  
      my %info;

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch