Skip Menu |

This queue is for tickets about the Net-Google CPAN distribution.

Report information
The Basics
Id: 2737
Status: resolved
Priority: 0/
Queue: Net-Google
People
Owner: Nobody in particular
Requestors: vw99z [...] hotmail.com
Cc:
AdminCc:
Bug Information
Severity: Critical
Broken in: 0.60
Fixed in: (no value)

History Show all quoted text
  Tue Jun 03 15:24:48 2003 Guest - Ticket created
Subject: Error passing safesearch flag
Net::Google will return only SafeSearch returns. Easy to duplicate - just use the example code and pick a "really bad" word that is filtered using google search with safesearch active and execute the demo code with that word and it will return 0 returns regardless of the SafeSearch flag or lack thereof. Google api-support reports no restriction to this effect. Consistant across versions of Perl. I would fix it before passing it on, however, I've gone forwards and backward thru Net::Google modules and just don't find the problem.
  Thu Dec 04 23:14:29 2003 Guest - Correspondence added
From: andrew [...] scoop.co.nz
[guest - Tue Jun 3 15:24:48 2003]: Show quoted text
> Net::Google will return only SafeSearch returns. Easy to duplicate - > just use the example code and pick a "really bad" word that is > filtered using google search with safesearch active and execute the > demo code with that word and it will return 0 returns regardless of > the SafeSearch flag or lack thereof. Google api-support reports no > restriction to this effect. Consistant across versions of Perl. I > would fix it before passing it on, however, I've gone forwards and > backward thru Net::Google modules and just don't find the problem.
I've found and fixed this problem. The same thing affects both the 'safe' and 'filter' mechanisms. Patch against Net-Google-0.60.tar.gz follows. --- Net/Google/Search.pm.orig Thu Dec 4 19:57:29 2003 +++ Net/Google/Search.pm Thu Dec 4 19:58:03 2003 @@ -580,10 +580,10 @@ $first, $count, SOAP::Data->type(boolean=>($self->filter() - ? "true" : "false")), + ? 1 : 0)), $self->restrict(), SOAP::Data->type(boolean=>($self->safe() - ? "true" : "false")), + ? 1 : 0)), $self->lr(), $self->ie(), $self->oe(),
  Mon Feb 09 22:35:15 2004 ascope [...] cpan.org - Correspondence added
Applied in 0.61 - thanks! [guest - Thu Dec 4 23:14:29 2003]: Show quoted text
> [guest - Tue Jun 3 15:24:48 2003]: >
> > Net::Google will return only SafeSearch returns. Easy to duplicate
> -
> > just use the example code and pick a "really bad" word that is > > filtered using google search with safesearch active and execute
> the
> > demo code with that word and it will return 0 returns regardless
> of
> > the SafeSearch flag or lack thereof. Google api-support reports
> no
> > restriction to this effect. Consistant across versions of Perl.
> I
> > would fix it before passing it on, however, I've gone forwards
> and
> > backward thru Net::Google modules and just don't find the
> problem. > > I've found and fixed this problem. The same thing affects both the > 'safe' and 'filter' mechanisms. > > Patch against Net-Google-0.60.tar.gz follows. > > > --- Net/Google/Search.pm.orig Thu Dec 4 19:57:29 2003 > +++ Net/Google/Search.pm Thu Dec 4 19:58:03 2003 > @@ -580,10 +580,10 @@ > $first, > $count, > SOAP::Data->type(boolean=>($self->filter() > - ? "true" : > "false")), > + ? 1 : 0)), > $self->restrict(), > SOAP::Data->type(boolean=>($self->safe() > - ? "true" : > "false")), > + ? 1 : 0)), > $self->lr(), > $self->ie(), > $self->oe(), > >
  Mon Feb 09 22:35:15 2004 ascope [...] cpan.org - Status changed from 'new' to 'resolved'