salut tout le monde,

Je suis nouveau en perl, et je dois développer un outil en cgi qui établit une connexion ssh pour exécuter un script bash. J'ai écris le début du script, mais maintenant je sèche. J'ai consulter pas mal de doc, mais je ne m'en sors pas. Quelqu'un pourrait me mettre sur la piste ?7

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
 
#!/usr/bin/perl
 
use CGI qw(:standard);
use strict;
 
print header();
 
 
if (param("email")) {
    my $email = param("email");
    my $date = param("date");
    print <<ENDHTML;
<html>
<head>
<title>purge big account</title>
</head>
<body>
    <h1> Purge a big account </h1>
    <br><br>
    <font color="red"> please type the date in English format, i.e : 12-Apr-2014
 </font><br><br>
    <form action="index.cgi" method="post">
        <INPUT type="text" name="date" id="date"><BR><BR>
        <INPUT type="hidden" name="email" value="$email">
        <INPUT type="submit" value="Send">
    </form>
ENDHTML
 
print "deleting all messages in inbox, for : <br> ";
print "$email";
print "older than : <br>";
print "$date";
 
###
#ici quelque chose du genre ssh@host / script.sh <arg1> <arg2>
# puis récuprer le stdout et stderr
#puis close de la connextion
###
 
print qq{</body></html>};
}