chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Remove e-mail text and add Depends: line.
[bin.git]
/
get-with-referrer
1
#! /usr/bin/perl -w
2
use strict;
3
use LWP::UserAgent;
4
5
my $url = <>;
6
my $referrer = <>;
7
my $target = <>;
8
9
my $ua = new LWP::UserAgent;
10
11
my $req = new HTTP::Request(GET => $url);
12
$req->header(Referer => $referrer);
13
my $res = $ua->request($req, $target);
14