Re^2: Faking referer with LWP::UserAgent

I'm confused and have this now. Am I closer to getting it right? Not it says it cannot find header via package UserAgent

#!/usr/bin/perl

use warnings;
use strict;

use CGI qw/:standard/;
use LWP::UserAgent;
use CGI::Carp qw/fatalsToBrowser/;

print header, start_html();

my $ua = LWP::UserAgent->new;
$ua->agent("google.com");
$ua->header('Referer', 'http://www.google.com');
$ua->agent('testing');
$ua->get('http://dragcave.ath.cx/viewdragon/Vjwf');

print $ua->content;
[download]

Comment on Re^2: Faking referer with LWP::UserAgent Download Code

Replies are listed 'Best First'.
Re^3: Faking referer with LWP::UserAgent by erroneousBollock (Curate) on Oct 06, 2007 at 03:57 UTC
Something like this should work: `use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->agent("google.com"); my $response = $ua->get('http://dragcave.ath.cx/viewdragon/Vjwf', Refe +rer => 'http://www.google.com'); print $response->content;` [download] However, I really doubt thats the kind of security they'd be using. Usually, the referring URL would be a URL on their own site. If they discriminate at all, it'll be purely on user-agent string. -David	[reply] [d/l]
Re^3: Faking referer with LWP::UserAgent by ikegami (Patriarch) on Oct 06, 2007 at 03:57 UTC
`my $ua = LWP::UserAgent->new(); $ua->agent("google.com"); my $req = HTTP::Request->new(GET => $uri); $req->header('Referer', 'http://www.google.com'); $ua->request($req);` [download]	[reply] [d/l]