Hi,

I've wrote such script:

use Authen::SASL::Authd, as suggested by Steffen.

This code-snippet should help you:

http://search.cpan.org/~sasha/Authen-SASL-Authd-0.04/lib/Authen/SASL/Authd.pm


#!/usr/bin/perl
use Authen::SASL::Authd qw(auth_cyrus auth_dovecot);

$login = "test";
$passwd = "test";

# authenticate user against Dovecot authentication daemon
auth_dovecot('login', 'passwd') or die "dovecot-auth: FAIL";

I realized a monitoring-script with this snippet, works great.


good luck!

Reply via email to