#!/usr/local/bin/perl # del_mailq.cgi # Delete some mail message from the queue require './sendmail-lib.pl'; require './boxes-lib.pl'; &ReadParse(); if ($in{'flush'}) { # Just go to flushing page &redirect("del_mailqs.cgi?flush=1&file=".&urlize($in{'file'})); exit; } &error_setup($text{'delq_err'}); $access{'mailq'} == 2 || &error($text{'delq_ecannot'}); $in{'file'} =~ /\.\./ && &error($text{'delq_ecannot'}); $conf = &get_sendmailcf(); foreach $mqueue (&mailq_dir($conf)) { $ok++ if ($in{'file'} =~ /^$mqueue\//); } $ok || &error($text{'mailq_ecannot'}); $qfile = $in{'file'}; $mail = &mail_from_queue($qfile, "auto"); &can_view_qfile($mail) || &error($text{'delq_ecannot'}); if (-r $mail->{'lfile'} && !$in{'force'}) { &ui_print_header(undef, $text{'delq_title'}, ""); print "