From 47f5c7fa70bbf0381bbd06319ba34b71256f41bf Mon Sep 17 00:00:00 2001 From: seanbright Date: Sat, 20 Sep 2008 00:50:10 +0000 Subject: Make vmail.cgi work with mailboxes defined in users.conf, too. (closes issue #13187) Reported by: netvoice Patches: 20080911__bug13187.diff.txt uploaded by Corydon76 (license 14) (Slightly modified to take alchamist's comments on mantis into account) Tested by: msales, alchamist, seanbright git-svn-id: http://svn.digium.com/svn/asterisk/branches/1.4@143736 f38db490-d61c-443f-a65b-d21fe96a405b --- contrib/scripts/vmail.cgi | 35 ++++++++++++++++++++++++++++++++++- 1 file changed, 34 insertions(+), 1 deletion(-) (limited to 'contrib') diff --git a/contrib/scripts/vmail.cgi b/contrib/scripts/vmail.cgi index 95bb9bb77..de51a4dc7 100644 --- a/contrib/scripts/vmail.cgi +++ b/contrib/scripts/vmail.cgi @@ -193,7 +193,40 @@ sub check_login($$) } } close(VMAIL); - return ("", $category); + return check_login_users(); +} + +sub check_login_users { + my ($mbox, $context) = split(/\@/, param('mailbox')); + my $pass = param('password'); + my ($found, $fullname) = (0, ""); + open VMAIL, ") { + chomp; + if (m/\[(.*)\]/) { + if ($1 eq $mbox) { + $found = 1; + } elsif ($found == 2) { + close VMAIL; + return (($fullname ? $fullname : "Extension $mbox in $context"), $context); + } else { + $found = 0; + } + } elsif ($found) { + my ($var, $value) = split /\s*=\s*/, $_, 2; + if ($var eq 'vmsecret' and $value eq $pass) { + $found = 2; + } elsif ($var eq 'fullname') { + $fullname = $value; + if ($found == 2) { + close VMAIL; + return ($fullname, $context); + } + } + } + } + close VMAIL; + return ("", ""); } sub validmailbox($$$$) -- cgit v1.2.3