Discussion :

[bluecurve]

j'ai une question concernant LWP::UserAgent a laquelle je ne trouve pas de réponse. Il est dit dans la documentation que la méthode request suit de façon transparente les redirections cela veut il dire que la méthode is_redirect devient caduc ? car j'aimerais savoir si une redirection a effectivement eu lieu ou non.

merci a tous

[Jedai]

Et bien is_redirect() indique si l'objet HTTP::Response demande une redirection, donc effectivement si tu fais request() et que tu n'atteins pas la limite de redirection (max_redirect()), tu n'obtiendras pas une redirection en tant que réponse puisque request() suit les redirections tout seul.

Si tu veux savoir s'il y a eu redirection, tu peux simplement comparer la requête initiale avec le résultat de HTTP::Response::request() sur la réponse obtenue, si elles sont différentes, c'est qu'il y a eu redirection ou autre requête intermédiaire durant l'appel de request().

(NB : Si tu veux simplement éviter de suivre les redirections, tu peux utiliser simple_request() de LWP::UserAgent plutôt que request())

--
Jedaï

[bluecurve]

Je ne veut pas les éviter mais en avoir le control , je vais regarder comment marche HTTP::Response pour utiliser request()

[Jedai]

Si tu veux avoir le contrôle, il suffit d'utiliser simple_request(), comme le fait request().

--
Jedaï

[bluecurve]

J'ai effectuer sur mon pc une redirection de type 301 et afficher les données renvoyé par lwp::useragent grace a data::dumper ont peut effectivement savoir si une redirection a eu lieu ou non car l'adresse d'origine est gardé comment ont peut le voir :

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
23
24
25
26
27
 
$foo = bless( {
                '_previous' => bless( {
                                        '_protocol' => 'HTTP/1.1',
                                        '_content' => '',
                                     ...
                                        '_headers' => bless( {
                                                               'client-response-num' => 1,
                                                               'cache-control' => 'private',
                                                               'set-cookie' => 'ASPSESSIONIDSQCRRBRD=JCEDHNDCGIBFHHBNLKGADIHF; path=/',
                                                               'location' => '<a href="http://www.developpez.com/&#39;," target="_blank">http://www.developpez.com/',</a>
                                                               'date' => 'Wed, 24 May 2006 15:34:15 GMT',
                                                               'client-peer' => '127.0.0.1:80',
                                                               'content-length' => '0',
                                                               'client-date' => 'Wed, 24 May 2006 15:34:15 GMT',
                                                               'content-type' => 'text/html',
                                                               'server' => 'Microsoft-IIS/5.1'
                                                             }, 'HTTP::Headers' ),
                                        '_msg' => 'Moved Permanently',
                                        '_request' => bless( {
                                                               '_content' => '',
                                                               '_uri' => bless( do{\(my $o = 'http://127.0.0.1/')}, 'URI::http' ),
                                                               '_headers' => bless( {
                                                                                      'user-agent' => 'libwww-perl/5.805'
                                                                                    }, 'HTTP::Headers' ),
                                                               '_method' => 'GET'
                                                             }, 'HTTP::Request' )

donc c good par contre lwp:useragent ne gère pas les redirections par meta tag refresh je vais arranger sa de suite

[bluecurve]

Pour récupérer le lien d'origine il suffit de faire

Code :

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

1
2
 
$res->{'_previous'}{'_request'}{'_uri'};

voila

merci pour ton aide Jedai