#!/usr/bin/perl
# Exim's embedded perl for Mandriva Linux
# In "MAIN CONFIGURATION SETTINGS" load the Perl script as follows:
#	perl_startup = do '/etc/exim/exim_perl.pl'
#	perl_at_start

# The Perl routine "auth_perl" attempts the IMAP/POP3  login
# and returns the result to Exim.
sub auth_perl {
   my $host = shift;
   my $user = shift;
   my $password = shift;
   my $auth_type = shift;
   # Ouverture de connection sur le serveur IMAP ou POP3:
   if ($auth_type eq "imap") {
      use Net::IMAP::Simple;
      if (! ($server = new Net::IMAP::Simple($host))) {return 1;}
   } else {
      use Net::POP3;
      if (! ($server = new Net::POP3($host))) {return 1;}
   }
   # login, si ok renvoie 1 (true) ou 0 (false)
   if ($server->login( $user, $password )) {
      return 1;
   } else {
      return 0;
   }
   $server->close();
}