Bonjour tout le monde,

Je débute complètement en Perl. J'ai lu quelques tutoriaux et j'ai vu qu'il était possible de passer des paramètres avec CGI.
J'ai une fonction nommée "connect.pl" fournie lorsque l'on telecharge le package VI perl toolkit qui me permet de me connecter a un serveur ESX (Vmware) voici son contenu (J ai ajoute une partie CGI mais qui ne marche pas):
=========================================================

code:
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
 
#!/usr/bin/perl -w
#
# Copyright (c) 2007 VMware, Inc.  All rights reserved.
 
use strict;
use CGI::Carp qw(fatalsToBrowser)
use warnings;
 
my $cgi = new CGI;
 
read(STDIN, my $donnees, $ENV{'CONTENT-LENGTH'});
my @champs_formulaire = split(/&/,$donnees);
my ($server,$user,$password);
   foreach my $champ (@champs_formulaire){
       $server =$cgi->param('server');
       $user =$cgi->param('user');
       $password = $cgi->param('password');
}
 
 
use FindBin;
use lib "$FindBin::Bin/../";
 
use VMware::VIM2Runtime;
use VMware::VILib;
 
$Util::script_version = "1.0";
 
Opts::parse();
Opts::validate();
 
Util::connect();
display_servertime();
Util::disconnect();
 
sub display_servertime {
   Util::trace(0, "\nConnection Sucessful\n");
 
   my $si_moref = ManagedObjectReference->new(type => 'ServiceInstance',
                                              value => 'ServiceInstance');
   my $si_view = Vim::get_view(mo_ref => $si_moref);
   Util::trace(0, "Server Time : ". $si_view->CurrentTime()."\n");
}
 
__END__
 
=head1 NAME
 
connect.pl - connects and disconnects to a host.
 
=head1 SYNOPSIS
 
 connect.pl [options]
 
=head1 DESCRIPTION
 
This VI Perl command-line utility connects to a host, retrieves the server
time and disconnects.
 
=head1 EXAMPLES
 
 connect.pl --url https://<host>:<port>/sdk/vimService
                --username myuser --password mypassword
 
=head1 SUPPORTED PLATFORMS
 
All operations work with VMware VirtualCenter 2.0.1 or later.
 
All operations work with VMware ESX Server 3.0.1 or later.
=========================================================

Pour me connecter au serveur ESX il faut que je tape sur ma console :
perl connect.pl --server (adresse IP) --username (anonymous) --password (anonymous)

J'aimerai lancer ce script a partir d'une interface html ou je rentrerai ces parametres, mais le probleme c'est que je ne sais pas du tout comment m'y prendre... J'ai besoin de votre aide s'il vous plait...


Voici un debut de mon interface html...

code
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
 
<form action="/cgi-bin/connect.pl" method="post">
	<select name="server">
 
		<option value="val_1">10.48.xxx.xxx</option>
		<option value="val_2">Val affichée 2</option>
		<option value="val_3">Val affichée 3</option>
	</select>
	<br /><br />
	<select name="user">
 
		<option value="val_1">administrator</option>
		<option value="val_2">Val affichée 2</option>
		<option value="val_3">Val affichée 3</option>
	</select>
	<br /><br />
	<select name="password">
 
		<option value="val_1">xxxxx</option>
		<option value="val_2">Val affichée 2</option>
	</select>
	<br /><br />
	<input type="submit" value="OK" />
 
</form
J'aimerai savoir ce que je dois changer dans connect.pl pour qu'il recupere les parametres...

Merci d'avance,

PS:Je m'excuse a l'avance des accents manquants, mon clavier ne me permet pas de les faire, j ai pu juste corriger les 100 premieres fautes grace a ma barre de recherches...