ssh dans un script perl en cgi

**mitchreward** · 14/05/2014, 22h59

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>};
}

**Jedai** · 18/05/2014, 11h23

Je te conseille de regarder du côté de Net::OpenSSH ou Net::SSH::Perl pour utiliser SSH en Perl.

Attention : Utiliser SSH à partir d'un script CGI est dangereux (en général, quelque soit le langage), part du principe que ton script va être exposé (donc pas de password, utilise des clés) et que les données provenant de tes utilisateurs sont malfaisantes. Idéalement, ton script ne devrait accéder qu'à un compte aux droits très restreints au cas où.

ssh dans un script perl en cgi

Programmation et administration système Perl

Discussions similaires

Partager

Partager