Methode POST perl

Version imprimable

Methode POST perl

Bonjour tout le monde,

Je débute 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:

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 #!/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/../"; etc... my $si_view = Vim::get_view(mo_ref => $si_moref); Util::trace(0, "Server Time : ". $si_view->CurrentTime()."\n"); } __END__ =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
=========================================================

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:

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... ;)

Ca y est j ai reussi a faire passer les parametres avec ce code pour l interface HTML

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Page de commentaire</title>
</head>
<body bgcolor="#E0E0E0">
<h1>Votre commentaire</h1>
<form action="/cgi-bin/essai.pl" method="post">
<p>Server:<br><input size="40" maxlength="40" name="server"></p>
<p>User:<br><input size="40" maxlength="40" name="user"></p>
<p>Password:<br><input size="40" maxlength="40" name="password"></p>
<p><input type="submit" value="envoyer"></p>
 
</form>
</body>
</html>

Voici le script. Au debut je fait apparaitre les parametres mais je ne sais pas comment faire pour les integrer a la suite du 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
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
72
73
74
75
76
77
 
#!/usr/bin/perl -w
#
# Copyright (c) 2007 VMware, Inc.  All rights reserved.
 
 
use strict;
use CGI::Carp qw(fatalsToBrowser);
use warnings;
 
read(STDIN, my $donnees, $ENV{'CONTENT_LENGTH'});
my @champs_formulaire = split(/&/, $donnees);
my ($champ, $nom, $valeur);
my %formulaire;
foreach $champ (@champs_formulaire) {
  (my $nom, my $valeur) = split(/=/, $champ);
  $valeur =~ tr/+/ /;
  $valeur =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $valeur =~ s/</&lt;/g;
  $valeur =~ s/>/&gt;/g;
  $formulaire{$nom} = $valeur;
 }
 
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>avis CGI du programme <i>essai.pl</i></h1>\n";
print "<p><b>server:</b> $formulaire{server}</p>\n";
print "<p><b>user:</b> $formulaire{user}</p>\n";
print "<p><b>password:</b> $formulaire{password}</p>\n";
print "</body></html>\n";
 
use warnings;
 
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

Bonne journee a tous... J attends avec impatience votre aide.

30/11/2007, 12h03
Pierrot2612
J ai laisse tomber la solution d integrer les parametres dans le script lui meme.
Je fais un appel au script connect.pl de la maniere suivante :
Code:

1 2 3 4 $R = `/vmware/MyProject/Myvidiscovery.pl --server $VI_SERVER --username $VI_USERNAME --password $VI_PASSWORD --managedentity folder --entityname $VI_FOLDER`; print $R;
Bonne journee a tous...

Bye