del_mailq.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# del_mailq.cgi
# Delete some mail messages from the queue

require './sendmail-lib.pl';
&ReadParse();
&error_setup($text{'delq_err'});
$access{'mailq'} == 2 || &error($text{'delq_ecannot'});
$in{'file'} =~ /\.\./ && &error($text{'delq_ecannot'});

$qfile = $in{'file'};
($dfile = $qfile) =~ s/^qf/df/;
($lfile = $qfile) =~ s/^qf/xf/;
$mqueue = &mailq_dir(&get_sendmailcf());

if (-r "$mqueue/$lfile") {
	&error($text{'delq_locked'});
	}

unlink("$mqueue/$qfile");
unlink("$mqueue/$dfile");
&redirect("list_mailq.cgi");