Bug #28168 for WWW-Myspace: diff against svn HEAD

Fri Jul 13 17:52:00 2007 admin [...] captchakiller.com - Ticket created

Subject:	diff against svn HEAD
Date:	Fri, 13 Jul 2007 17:48:07 -0400
To:	"Grant Grueninger" <grantg [...] spamarrest.com>
From:	"CAPTCHA Killer" <admin [...] captchakiller.com>

Index: Myspace.pm =================================================================== --- Myspace.pm (revision 408) +++ Myspace.pm (working copy) @@ -6123,11 +6123,12 @@ sub _use_captcha_killer { my $api_key = $self->captcha_killer_api_key; - + our $VERSION; my $captcha_url = shift @_; my $upload_filename = shift @_; my $ua = LWP::UserAgent->new; + $ua->default_headers->push_header('CAPTCHA-Client' => "WWW- Myspace-$VERSION"); push @{ $ua->requests_redirectable }, "POST"; my $captcha_id = ""; @@ -6143,13 +6144,16 @@ $captcha_id = $1; print "GOT CAPTCHA ID: $captcha_id\n"; } + else { + return ""; # can't upload captcha ? + } } else { - die $response->status_line; + return ""; # can't upload captcha ? } $captcha_result = ""; - for ( my $cnt = 1; $cnt < 500; $cnt++ ) { + for ( my $cnt = 1; $cnt < 20; $cnt++ ) { print "ATTEMPT $cnt\n"; my $response = $ua->post( " http://www.captchakiller.com/ api.php ", Content => [ api_key => $api_key, method => "get_result", captcha_id => $captcha_id ] ); @@ -6162,15 +6166,12 @@ last; } } - else { - die $response->status_line; - } } - return $captcha_result; + return $captcha_result; } sub _handle_captcha { - return "" if ( $self->captcha_killer_api_key eq "" ); + return "" if ( $self->captcha_killer_api_key eq "" ); # not handling CAPTCHAs my $url = shift; print "GOT CAPTCHA URL: $url\n"; my $file = ""; @@ -6178,7 +6179,8 @@ print "SAVING INTO FILE: $file\n"; my $solution = ""; my $res = $self->mech->get( $url, ':content_file' => $file ); - $solution = $self->_use_captcha_killer( $url, $file ); + $solution = $self->_use_captcha_killer( $url, $file ); + unlink( $file ); return $solution; }

Mon Jul 16 17:15:32 2007 grantg [...] spamarrest.com - Correspondence added

Subject:	Re: [rt.cpan.org #28168] diff against svn HEAD
Date:	Mon, 16 Jul 2007 14:14:54 -0700
To:	bug-WWW-Myspace [...] rt.cpan.org
From:	Grant Grueninger <grantg [...] spamarrest.com>

I'm getting an error when I run patch on the patch below: grant% patch Myspace.pm < p patching file Myspace.pm patch: **** malformed patch at line 6: sub _use_captcha_killer { On Jul 13, 2007, at 2:52 PM, CAPTCHA Killer via RT wrote: Show quoted text

> > Fri Jul 13 17:52:00 2007: Request 28168 was acted upon. > Transaction: Ticket created by admin@captchakiller.com > Queue: WWW-Myspace > Subject: diff against svn HEAD > Broken in: (no value) > Severity: (no value) > Owner: Nobody > Requestors: admin@captchakiller.com > Status: new > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=28168 > > > > > > Index: Myspace.pm > =================================================================== > --- Myspace.pm (revision 408) > +++ Myspace.pm (working copy) > @@ -6123,11 +6123,12 @@ > sub _use_captcha_killer { > > my $api_key = $self->captcha_killer_api_key; > - > + our $VERSION; > my $captcha_url = shift @_; > my $upload_filename = shift @_; > > my $ua = LWP::UserAgent->new; > + $ua->default_headers->push_header('CAPTCHA-Client' => "WWW- > Myspace-$VERSION"); > push @{ $ua->requests_redirectable }, "POST"; > > my $captcha_id = ""; > @@ -6143,13 +6144,16 @@ > $captcha_id = $1; > print "GOT CAPTCHA ID: $captcha_id\n"; > } > + else { > + return ""; # can't upload captcha ? > + } > } > else { > - die $response->status_line; > + return ""; # can't upload captcha ? > } > > $captcha_result = ""; > - for ( my $cnt = 1; $cnt < 500; $cnt++ ) { > + for ( my $cnt = 1; $cnt < 20; $cnt++ ) { > print "ATTEMPT $cnt\n"; > my $response = $ua->post( " http://www.captchakiller.com/ > api.php ", > Content => [ api_key => $api_key, method => > "get_result", captcha_id => $captcha_id ] ); > @@ -6162,15 +6166,12 @@ > last; > } > } > - else { > - die $response->status_line; > - } > } > - return $captcha_result; > + return $captcha_result; > } > > sub _handle_captcha { > - return "" if ( $self->captcha_killer_api_key eq "" ); > + return "" if ( $self->captcha_killer_api_key eq "" ); # not > handling CAPTCHAs > my $url = shift; > print "GOT CAPTCHA URL: $url\n"; > my $file = ""; > @@ -6178,7 +6179,8 @@ > print "SAVING INTO FILE: $file\n"; > my $solution = ""; > my $res = $self->mech->get( $url, ':content_file' => $file ); > - $solution = $self->_use_captcha_killer( $url, $file ); > + $solution = $self->_use_captcha_killer( $url, $file ); > + unlink( $file ); > return $solution; > } > >

Mon Jul 16 17:15:34 2007 The RT System itself - Status changed from 'new' to 'open'

Mon Jul 16 17:41:35 2007 admin [...] captchakiller.com - Correspondence added

Subject:	Re: [rt.cpan.org #28168] diff against svn HEAD
Date:	Mon, 16 Jul 2007 17:41:13 -0400
To:	bug-WWW-Myspace [...] rt.cpan.org
From:	"CAPTCHA Killer" <admin [...] captchakiller.com>

K I just tried emailing u another one On 7/16/07, grantg@spamarrest.com via RT <bug-WWW-Myspace@rt.cpan.org> wrote: Show quoted text

> > > <URL: http://rt.cpan.org/Ticket/Display.html?id=28168 > > > I'm getting an error when I run patch on the patch below: > > grant% patch Myspace.pm < p > patching file Myspace.pm > patch: **** malformed patch at line 6: sub _use_captcha_killer { > > > > On Jul 13, 2007, at 2:52 PM, CAPTCHA Killer via RT wrote: >

> > > > Fri Jul 13 17:52:00 2007: Request 28168 was acted upon. > > Transaction: Ticket created by admin@captchakiller.com > > Queue: WWW-Myspace > > Subject: diff against svn HEAD > > Broken in: (no value) > > Severity: (no value) > > Owner: Nobody > > Requestors: admin@captchakiller.com > > Status: new > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=28168 > > > > > > > > > > > Index: Myspace.pm > > =================================================================== > > --- Myspace.pm (revision 408) > > +++ Myspace.pm (working copy) > > @@ -6123,11 +6123,12 @@ > > sub _use_captcha_killer { > > > > my $api_key = $self->captcha_killer_api_key; > > - > > + our $VERSION; > > my $captcha_url = shift @_; > > my $upload_filename = shift @_; > > > > my $ua = LWP::UserAgent->new; > > + $ua->default_headers->push_header('CAPTCHA-Client' => "WWW- > > Myspace-$VERSION"); > > push @{ $ua->requests_redirectable }, "POST"; > > > > my $captcha_id = ""; > > @@ -6143,13 +6144,16 @@ > > $captcha_id = $1; > > print "GOT CAPTCHA ID: $captcha_id\n"; > > } > > + else { > > + return ""; # can't upload captcha ? > > + } > > } > > else { > > - die $response->status_line; > > + return ""; # can't upload captcha ? > > } > > > > $captcha_result = ""; > > - for ( my $cnt = 1; $cnt < 500; $cnt++ ) { > > + for ( my $cnt = 1; $cnt < 20; $cnt++ ) { > > print "ATTEMPT $cnt\n"; > > my $response = $ua->post( " http://www.captchakiller.com/ > > api.php ", > > Content => [ api_key => $api_key, method => > > "get_result", captcha_id => $captcha_id ] ); > > @@ -6162,15 +6166,12 @@ > > last; > > } > > } > > - else { > > - die $response->status_line; > > - } > > } > > - return $captcha_result; > > + return $captcha_result; > > } > > > > sub _handle_captcha { > > - return "" if ( $self->captcha_killer_api_key eq "" ); > > + return "" if ( $self->captcha_killer_api_key eq "" ); # not > > handling CAPTCHAs > > my $url = shift; > > print "GOT CAPTCHA URL: $url\n"; > > my $file = ""; > > @@ -6178,7 +6179,8 @@ > > print "SAVING INTO FILE: $file\n"; > > my $solution = ""; > > my $res = $self->mech->get( $url, ':content_file' => $file ); > > - $solution = $self->_use_captcha_killer( $url, $file ); > > + $solution = $self->_use_captcha_killer( $url, $file ); > > + unlink( $file ); > > return $solution; > > } > > > >

> > >

Fri Nov 16 17:45:50 2007 GRANTG [...] cpan.org - Correspondence added

Closing old ticket. Patch applied in July.

Fri Nov 16 17:45:52 2007 GRANTG [...] cpan.org - Status changed from 'open' to 'resolved'