Re: Re: Re: LWP, SSL, 302


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: Re: Re: LWP, SSL, 302

by seanbo (Chaplain)

on Aug 08, 2001 at 22:08 UTC ( [id://103140]=note: print w/replies, xml )

Need Help??

in reply to Re: Re: LWP, SSL, 302
in thread LWP, SSL, 302

OK. Here is what I did to force the redirect on the POST.

package LWP::UserAgent::ForceRedirects;

use LWP::UserAgent;

use base qw(LWP::UserAgent);

sub new {
  my ($class, $base) = @_;
  
  my $parser = new LWP::UserAgent;
  $parser->{base} = $base;

  bless $parser, $class;
}

sub redirect_ok {
  my ($self, $request) = @_;
  print "Redirecting to: " . $request->url() . "...\n";
  return 1;
}

1;
[download]

here is the output

C:\TEMP>perl -w bcbs.pl
Redirecting to: https://XXX.XXX.XXX.XXX/?&STCO=1O3F9cqwYA2QAAB6EH0k&ST
+COEND...
Redirecting to: https://XXX.XXX.XXX.XXX/?&STCO=2O3F9cqwYA2QAAB6EH0k&ST
+COEND...
[download]

seanbo