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

[scaleo]

Pour le tag refresh je te conseille de ne pas modifié LWP::UserAgent mais de le faire dans ton script comme sa tu n'aura pas de problème quand tu mettra a jour Perl ou LWP

[Jedai]

Le plus propre en dehors de fournir un patch au mainteneur de LWP::UserAgent (mais ça m'étonnerait qu'il l'accepte, parce que le tag refresh ne fait pas partie du header de la réponse), c'est sans doute d'hériter de LWP::UserAgent et de faire le nécessaire dans cette classe dérivée.

--
Jedaï