#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser' ; # only for test

my $id = param('release');
my $cmd = "sudo /usr/bin/amavisd-release $id 2";

my $result;
if ($id =~ /^spam-[a-zA-Z0-9-]+\.gz$/) {
  $result = qx/ $cmd /;
} else {
  $result = "ERROR : Invalid id '$id'";
}

print "Content-type: text/plain\n\n";
print "$cmd\n\n$result";