qmailadmin/delete_queue.cgi

   1 #!/usr/local/bin/perl
   2 # delete_queue.cgi
   3 # Delete a mail messsage from the queue
   4
   5 require './qmail-lib.pl';
   6 &ReadParse();
   7
   8 -r $in{'file'} || &error($text{'delete_egone'});
   9 $in{'file'} =~ /(\d+)\/(\d+)$/ || &error($text{'delete_ebogus'});
  10 $id = "$1/$2";
  11 $pid = &is_qmail_running();
  12 if ($pid) {
  13         &stop_qmail();
  14         }
  15
  16 unlink("$qmail_mess_dir/$id");
  17 unlink("$qmail_info_dir/$id");
  18 unlink("$qmail_remote_dir/$id");
  19 unlink("$qmail_local_dir/$id");
  20
  21 ($newpid) = &find_byname("qmail-send");
  22 if ($pid && !$newpid) {
  23         # Need to re-start qmail
  24         &start_qmail();
  25         }
  26
  27 &redirect("list_queue.cgi");
  28