#!/usr/bin/perl -w

use XML::Simple;
use Net::LDAP::LDIF;
use Net::LDAP::Entry;
use Data::Dumper;
use Unicode::String;
use Getopt::Long;

&GetOptions("verbose=i",\$verbose);
$verbose=1 if (not defined $verbose);

$base="ou=films,ou=mediatheque,ou=choses,dc=gab.net";
Unicode::String->stringify_as( 'utf8' );
$file=XMLin('divx.xml',KeepRoot => 1);
$out=Net::LDAP::LDIF->new("divx.ldif","w");
foreach $movie (@{ $file->{'AntMovieCatalog'}->{'Catalog'}->{'Contents'}->{'Movie'} }) {
	$titre=${ $movie }{'OriginalTitle'};
	$desc=${ $movie }{'Description'};
	$entry=Net::LDAP::Entry->new;
	$cn=Unicode::String::latin1( $titre );
	$cn=~s/\,//;
	$entry->dn( "cn=$cn,$base" );
	$entry->add('cn' => "$cn");
	$entry->add('objectClass' => 'divx');
	if (defined $desc ){
		$descutf8=Unicode::String::latin1( $desc );
		$entry->add( 'description' => "$descutf8" );
	} else {
		print "plop\n";
	}
	$out->write_entry($entry);
}