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