Utiliser le resultat d'une <FORM> avec CGI
salut a tous,
Je debute dans avec perl CGI.
Voici le debut de mon script :
Code:
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
| #!/usr/local/bin/perl5.6
use CGI;
$query = new CGI;
$root = "/remote/";
print <<"EOF";
Content-type: text/html
<html>
<head>
Congestion Map
<head/>
<body>
<form action="/remote/test.cgi" method="post">
Small:
<input type="radio" checked="checked"
name="size" value="200">
<br>
Medium:
<input type="radio"
name="size" value="400">
<br>
Large:
<input type="radio"
name="size" value="600">
</form>
</body>
</html>
EOF
$size=$query->param('size');
print <<"EOF";
<html>
<body>
<img src=$root/Congestion.png
width="$size"
height="200"
alt="CONG MAP">
</img>
EOF |
Le but est donc de recuperer par le biais de bouton radio la taille d'affichage d'une image, et la passer en parametre a l'attribut width de cette image.
Pour cela j'ai utilise $query = new CGI;
Mais j'ai pas l'impression que ca marche, car la variable size definie ensuite par :
$size=$query->param('size');
ne donne rien.
Ou se trouve mon erreur???
