[web] passage d'arguments à un CGI

Bonjour,

J'ai l'impression de poser une question idiote mais je ne trouve pas la solution sur google... :oops: Je dois être un bien mauvais googler :D

J'ai un cgi A dans lequel j'ai un lien vers un cgi B:

Code:

---

1 2 3

... $html->h4('<a href="http://serveur/pageB.cgi?ip='.$ip.'">ici</a>'), ...

---

Mais je n'arrive pas à récupérer dans ma page B, l'argument passé (ip).
J'ai déjà réussi à passer des arguments dans un autre cas en utilisant les formulaires (en méthode POST) mais avec ce cas simple, je n'y arrive pas.

Comment faut-il faire?

Merci pour votre aide!

Matthieu

Tout d'abord il faut voir la source HTML générée par votre script et y trouver ce lien. Il me semble qu'il est

Citation:

---

<a href="http://serveur/pageB.cgi?ip=">

---

parce que $ip est indéfini ou vide. Et pourquoi ça... Il faut voir. Mais en tout cas le premier pas est voir la source HTML.

Merci dmitry_ovsianko!

Non, le lien a l'air bon. J'ai bien un lien vers:

Code:

---

<a href="http://serveur/pageB.cgi?ip=10.10.10.10">

---

D'ailleurs pour être plus sur je tape cette adresse dans mon navigateur et je ne récupère pas l'adresse IP.

J'ai essayé de faire:

Code:

---

1 2 3 4

if($ENV{'REQUEST_METHODE'} eq 'GET') { $arg=<STDIN>; }

---

et aussi

Code:

---

1 2 3 4

foreach(@ARGV) { $arg.=$_; }

---

Mais ca ne marche pas :cry:

Merci pour ton aide!

Matthieu

Premièrement, il est un petit typo: 'REQUEST_METHOD' n'a pas de 'E' à la fin.

Tâche de faire comme ça:

Code:

---

1 2 3 4 5 6 7

use CGI; use Data::Dumper;   my $q = new CGI; my $params = $q -> Vars;   print Dumper ($params);

---

Le résultat doit être pareil à

Citation:

---

$VAR1 = {
'ip' => '10.10.10.10'
}

---

Merci beaucoup!!
C'est très bien! :ccool:

Matthieu