salut a tous,

Je debute dans avec perl CGI.

Voici le debut de mon script :
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
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???