%PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY
Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/sendmail/ |
Upload File : |
#!/usr/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 "<center><form action=del_mailq.cgi>\n"; print "<b>$main::whatfailed : $text{'delq_locked'}</b><p>\n"; print "<input type=hidden name=file value='$in{'file'}'>\n"; print "<input type=submit name=force value='$text{'delq_force'}'>\n"; print "</form></center>\n"; &ui_print_footer("list_mailq.cgi", $text{'mailq_return'}); exit; } unlink($mail->{'file'}, $mail->{'dfile'}, $mail->{'lfile'}); &webmin_log("delmailq", undef, undef, { 'to' => $mail->{'header'}->{'to'}, 'from' => $mail->{'header'}->{'from'} }); &redirect("list_mailq.cgi");