To: Christopher Cavnor <chris@enthusiasm.com>
cc: info-www-search@ISI.EDU, Martin Thurn <mthurn@tasc.com>
Subject: Re: AltaVista reformat? 
In-Reply-To: Message from Christopher Cavnor <chris@enthusiasm.com> 
   of "Tue, 01 Aug 2000 14:00:42 PDT." <39873A7A.1FF58863@enthusiasm.com> 
Date: Tue, 01 Aug 2000 16:15:05 -0700
From: John Heidemann <johnh@ISI.EDU>
Sender: owner-info-www-search@ISI.EDU
Precedence: bulk

>AltaVista.pm (Version 2.5) is failing to retrieve results. I checked the
>AV site, looks like a format change.
>
>Just wanted to make sure that you were aware of it (in case you had
>nothing else on your plate ;-)
>
>Thanks;
>
>Chris Cavnor

The current CPAN release of WWW::Search::AltaVista (2.14) is broken
(possibly because URL::URI changed?).  This patch to AV.pm fixes it.
Martin, can you add this to the next release?

   -John Heidemann


--- /usr/lib/perl5/site_perl/5.005/WWW/Search/AltaVista.pm-     Tue Aug  1 16:10:45 2000
+++ /usr/lib/perl5/site_perl/5.005/WWW/Search/AltaVista.pm      Tue Aug  1 16:12:16 2000
@@ -326,8 +326,9 @@
            my($relative_url) = $1;
            # hack:  make sure fmt=d stays on news URLs
            $relative_url =~ s/what=news/what=news\&fmt=d/ if ($relative_url !~ /fmt=d/);
-           $self->{_next_url} = new URI::URL($relative_url, $self->{_base_url});
-           my($n) = $self->{_next_url};
+           my($n) = new URI::URL($relative_url, $self->{_base_url});
+           $n = $n->abs;
+           $self->{_next_url} = $n;
            $state = $POST_NEXT;
            print STDERR "PARSE(15:->POST_NEXT): found next, $n.\n" if ($self->{_debug} >= 2);