#!/usr/bin/perl
use CGI qw(:standard);
$ENV{"PATH"} = "/usr/sbin:/usr/bin:/sbin:/bin";
$release = param('release') || '(No input)';
print "Content-type: text/html\n\n";
print "";
print "You are releasing: $release
";
system("/bin/echo > /tmp/releaseme");
system("sudo /bin/chmod 777 /tmp/releaseme");
system("sudo /usr/bin/amavisd-release $release 2> /tmp/releaseme");
if (system("less /tmp/releaseme |grep Ok > /dev/null") == 0) {
print "Your Mail ID $release was released.\n
";
print "
";
}
else {
print "Error!!! Wrong Mail ID, Pls Input the Right Mail ID.\n
";
print "
";
}
print "";