michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add monitor for IMAP

Browse Source
This commit is contained in:
Jamie Cameron
2024-03-11 22:21:08 -07:00
parent c762d41fa1
commit 0c0b04ffe0
2 changed files with 89 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
status/imap-monitor.pl Normal file
View File

@@ -0,0 +1,79 @@
# 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;

11
status/lang/en
View File

@@ -586,7 +586,7 @@ info_title=System and Server Status
smtp_host=SMTP server host
smtp_port=SMTP server port
smtp_ssl=Use SSL?
smtp_ssl=Use SSL connection?
smtp_ssl0=Plaintext only
smtp_ssl1=Always SSL
smtp_ssl2=Switch to SSL with STARTTLS
@@ -608,4 +608,13 @@ smtp_user0=Login as user
smtp_pass=with password
smtp_euser=Missing SMTP login
imap_host=IMAP server host
imap_port=IMAP server port
imap_ssl=Use SSL connection?
imap_user=IMAP login
imap_pass=IMAP password
imap_ehost=Missing or unresolvable IMAP server host
imap_eport=Missing or non-numeric IMAP server port
imap_euser=Missing IMAP login
__norefs=1