| Server IP : 195.201.23.43 / Your IP : 18.218.26.136 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 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_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/status/ |
Upload File : |
# Check if a mail queue is too long
sub get_mailq_status
{
local $m = $_[0]->{'mod'};
return { 'up' => -1 } if (!&foreign_installed($m));
local @qfiles;
if ($m eq "sendmail") {
&foreign_require("sendmail", "sendmail-lib.pl");
@qfiles = &sendmail::list_mail_queue();
}
elsif ($m eq "qmailadmin") {
&foreign_require("qmailadmin", "qmail-lib.pl");
@qfiles = &qmailadmin::list_queue();
}
elsif ($m eq "postfix") {
&foreign_require("postfix", "postfix-lib.pl");
eval {
local $main::error_must_die = 1;
@qfiles = &postfix::list_queue();
};
if ($@) {
return { 'up' => -1,
'desc' => $@ };
}
}
if (@qfiles > $_[0]->{'size'}) {
return { 'up' => 0,
'value' => scalar(@qfiles),
'desc' => &text('mailq_toomany', scalar(@qfiles)) };
}
else {
return { 'up' => 1,
'value' => scalar(@qfiles),
'desc' => &text('mailq_ok', scalar(@qfiles)) };
}
}
sub show_mailq_dialog
{
# Mail system to check
print &ui_table_row($text{'mailq_system'},
&ui_select("mod", $_[0]->{'mod'},
[ map { [ $_, $text{'mailq_'.$_} ] }
("sendmail", "qmailadmin", "postfix") ]));
# Max queue size
print &ui_table_row($text{'mailq_size'},
&ui_textbox("size", $_[0]->{'size'}, 10));
}
sub parse_mailq_dialog
{
$_[0]->{'mod'} = $in{'mod'};
$in{'size'} =~ /^\d+$/ || &error($text{'mailq_esize'});
$_[0]->{'size'} = $in{'size'};
}
Private