Discussion :

[rteuteu55]

Bonjour,

je souhaite réaliser la connection à une page html grâce à LWP. Le problème et que pour envoyer les bonnes info, le serveur utilise l'adresse donné dans le paramétre 'referer' de ma requete.

je voulais donc savoir comment on peut modifier le 'referer' d'une requete LWP.

merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my $cookies = HTTP::Cookies->new(
            file           => 'cookies.txt',
            autosave       => 1,
            ignore_discard => 1,        # le cookie est en registré à la fin
        );
 
$ua = LWP::UserAgent->new(
      agent      => 'Mozilla/4.0',
      cookie_jar => $cookies );
 
 
....
....
 
$request = HTTP::Request->new( GET => "$httpOcFrame1" );
 
$ua->header( referer => 'http://localhost.test.asp?NUMFEN=0&COOKIENAME=ticketOc'); # ne marche pas ... :cry:
$r = $ua->request($request);
$resultat=$r->content;
 
....
....

[pospos]

il faut que tu recupere ton instance de HTTP::Headers dans ton HTTP::Request.

my $h = $request->headers;
$h->header(referer => "http://...");

[rteuteu55]

je ne comprends pas tout?!

j'ai rajouté le code mais ça ne marche pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
$request = HTTP::Request->new( GET => "$httpOcFrame1" );
 
$h = $request->headers;
$h->header(referer => "http://localhost.asp?LIST=ListAff1");
 
$r = $ua->request($request);
$resultat=$r->content;

[pospos]

normalement ca doit faire ce que tu veux
essay un petit print $request->headers_as_string pour voir.
a mon avis le probleme est ailleurs (le header User-Agent par exemple, sur lequel beaucoup de sites filtrent les robots)

[rteuteu55]

en effet ça marche merci bien!!