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;