#!/usr/bin/perl -W

use strict;
use Net::LDAP;

#print "Content-type: text/html\n\n";

my ($mail,$uid);

if (defined $ENV{QUERY_STRING}) {
	my @query = split(/=/, $ENV{QUERY_STRING});
	if (defined $query[1]) {
		$query[1] =~ s/%40/@/;
		$mail = $query[1];

		my $ldap = Net::LDAP->new( 'ldapserveur.mondomaine.fr' ) or die "$@";
		my $mesg = $ldap->bind ;

		$mesg = $ldap->search( base   => "ou=personnels dc=mondomaine, dc=fr",
				filter => "(|(mail=$mail)(mailalternateaddress=$mail)(mailequivalentaddress=$mail))",
				attrs  => ['uid']
				);

		if ($mesg->code) {
			$uid = $mesg->error;
		} 
		else {
			if (defined $mesg->entry) {
				$uid = $mesg->entry->get_value('uid');
			} 
			else {
				$uid='Verifiez votre adresse email';
			}
		}
		$mesg = $ldap->unbind;
	}
	else { $uid = 'Verifiez votre adresse email'; }
}





print "Content-type: application/xml\n\n";

print '<?xml version="1.0"?>';
print '<clientConfig version="1.1">';

print '    <emailProvider id="mondomaine.fr">';
print '      <domain>mondomaine.fr</domain>';
print '      <displayName>Messagerie de Mon Domaine</displayName>';
print '      <displayShortName>Mondomaine</displayShortName>';

print '      <incomingServer type="imap">';
print '         <hostname>imaps.mondomaine.fr</hostname>';
print '         <port>993</port>';
print '         <socketType>SSL</socketType>';
print "         <username>$uid</username>";
print '         <authentication>password-cleartext</authentication>';
print '      </incomingServer>';

print '      <outgoingServer type="smtp">';
print '         <hostname>smtps.mondomaine.fr</hostname>';
print '         <port>465</port>';
print '         <socketType>SSL</socketType>';
print "         <username>$uid</username>";
print '         <authentication>password-cleartext</authentication>';
print '         <addThisServer>true</addThisServer>';
print '         <useGlobalPreferredServer>true</useGlobalPreferredServer>';
print '      </outgoingServer>';

print '    </emailProvider>';
print '</clientConfig>';