forum.lissyara.su

Код: Выделить всё

cat /home/vpopmail/domains/mail.mydomain.ru/vpasswd | grep vvvv
vvvv:$1$m0XHFrhz$z5PslteukfKkTYR776Y11/:1:0:vvvv:/usr/local/vpopmail/domains/mail.mydomain.ru/vvvv:NOQUOTA

Код: Выделить всё

sub smtpauth
{
        $username       = Exim::expand_string('$1');
        $password       = Exim::expand_string('$2');
        $extra          = Exim::expand_string('$3');
        $domain         = "";
        $unixuser       = 1;

        #check for netscape that offsets the login/pass by one
        if ($username eq "" && length($extra) > 0)
        {
                $username = $password;
                $password = $extra;
        }

        if ($username =~ /\@/)
        {
                $unixuser = 0;
                ($username,$domain) = split(/\@/, $username);
                if ($domain eq "") { return "no"; }
        }

        if ($unixuser == 1)
        {
                #the username passed doesn't have a domain, so its a system account
                $homepath = (getpwnam($username))[7];
                if ($homepath eq "") { return 0; }
                open(PASSFILE, "< $homepath/.shadow") || return "no";
                $crypted_pass = <PASSFILE>;
                close PASSFILE;

                if ($crypted_pass eq crypt($password, $crypted_pass)) { return "yes"; }
                else { return "no"; }
        }
        else
        {
                #the username contain a domain, which is now in $domain.
                #this is a pure virtual pop account.

                open(PASSFILE, "< /etc/virtual/$domain/passwd") || return "no";
                while (<PASSFILE>)
                {
                        ($test_user,$test_pass) = split(/:/,$_);
                        $test_pass =~ s/\n//g; #snip out the newline at the end
                        if ($test_user eq $username)
                        {
                                if ($test_pass eq crypt($password, $test_pass))
                                {
                                        close PASSFILE;
                                        return "yes";
                                }
                        }
                }
                close PASSFILE;
                return "no";
        }

        return "no";
}

Код: Выделить всё

begin authenticators

plain:
    driver = plaintext
    public_name = PLAIN
    server_condition = "${perl{smtpauth}}"
    server_set_id = $2

login:
    driver = plaintext
    public_name = LOGIN
    server_prompts = "Username:: : Password::"
    server_condition = "${perl{smtpauth}}"
    server_set_id = $1