#!/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
";
print "You are releasing: $id
";
system("/bin/echo > /tmp/releaseme");
system("sudo /bin/chmod 777 /tmp/releaseme");
system("sudo /usr/bin/amavisd-release $id 2> /tmp/releaseme");
if (system("less /tmp/releaseme |grep Ok > /dev/null") == 0) {
print "Your Mail ID $id was released.\n
";
print "
";
}
else {
print "Error!!! Wrong Mail ID, Pls Input the Right Mail ID.\n
";
print "
";
}
print "";