| Server IP : 14.207.165.8 / Your IP : 216.73.216.101 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 : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/usr/share/webmin/status/ |
Upload File : |
# Connect to an IMAP server and login
sub get_imap_status
{
my ($serv) = @_;
my $folder = { 'server' => $serv->{'host'},
'port' => $serv->{'port'},
'ssl' => $serv->{'ssl'},
'user' => $serv->{'user'},
'pass' => $serv->{'pass'},
'mailbox' => $serv->{'mailbox'} || "INBOX" };
&foreign_require("mailboxes");
my ($st, $h, $count);
eval {
local $main::error_must_die = 1;
($st, $h, $count) = &mailboxes::imap_login($folder);
};
if ($@) {
# Perl error
$err = &entities_to_ascii("$@");
$err =~ s/at\s+\S+\s+line\s+\d+.*//;
return { 'up' => 0, 'desc' => $err };
}
elsif ($st == 0) {
return { 'up' => 0, 'desc' => "Connection failed : $h" };
}
elsif ($st == 2) {
return { 'up' => 0, 'desc' => "Login failed : $h" };
exit(3);
}
elsif ($st == 3) {
return { 'up' => 0, 'desc' => "Folder selection failed : $h" };
}
else {
return { 'up' => 1, 'desc' => "Login OK, found $count messages" };
}
}
sub show_imap_dialog
{
my ($serv) = @_;
print &ui_table_row($text{'imap_host'},
&ui_textbox("host", $serv->{'host'}, 143));
print &ui_table_row($text{'imap_port'},
&ui_textbox("port", $serv->{'port'} || 25, 5));
print &ui_table_row($text{'imap_ssl'},
&ui_yesno_radio("ssl", $serv->{'ssl'} || 0));
print &ui_table_row($text{'imap_user'},
&ui_textbox("user", $serv->{'user'}, 25));
print &ui_table_row($text{'imap_pass'},
&ui_textbox("pass", $serv->{'pass'}, 25));
}
sub parse_imap_dialog
{
my ($serv) = @_;
&to_ipaddress($in{'host'}) || &to_ip6address($in{'host'}) ||
&error($text{'imap_ehost'});
$serv->{'host'} = $in{'host'};
$in{'port'} =~ /^\d+$/ || &error($text{'imap_eport'});
$serv->{'port'} = $in{'port'};
$serv->{'ssl'} = $in{'ssl'};
$in{'user'} =~ /\S/ || &error($text{'imap_euser'});
$serv->{'user'} = $in{'user'};
$serv->{'pass'} = $in{'pass'};
}
1;