1 #!/usr/bin/perl -w
  2 #
  3 use Net::LDAP;
  4
  5 my $mmlist = "testimonium";
  6 my @mm_ldap = ("post", "admin", "bounces", "confirm", "join", "leave", "owner", "request", "sunscribe", "unsubscribe");
  7 my $count = @mm_ldap;
  8
  9
 10 my $ldap = Net::LDAP->new('uni-erlangen.de', port => jkk) or die "$@";
 11 my $mesg = $ldap->bind();
 12
 13 for( my $i = 0; $i < $count; $i++ )
 14 {
 15
 16   if ($i == 0)
 17   {
 18       $cn = $mmlist;
 19 #      $dn = $cn."ou=Mailman-Listen, ou=Gruppen-Mail, ou=Testeintraege, ou=Regionales Rechenzentrum, o=Universitaet Erlangen-Nuernberg, c=de";
 20       $dn = $cn."ou=ISS-Testentries, ou=Testeintraege, ou=Regionales Rechenzentrum, o=Universitaet Erlangen-Nuernberg, c=de";
 21       $mesg = $ldap->add( $dn,
 22                       attrs => [
 23                       displayName  => $cn,
 24                          ]
 25                         );
 26   }
 27   else
 28   {
 29       $cn = $mmlist."-".$mm_ldap[$i];
 30   }
 31 #      $dn = $cn."ou=Mailman-Listen, ou=Gruppen-Mail, ou=Testeintraege, ou=Regionales Rechenzentrum, o=Universitaet Erlangen-Nuernberg, c=de";
 32       $dn = $cn."ou=ISS-Testentries, ou=Testeintraege, ou=Regionales Rechenzentrum, o=Universitaet Erlangen-Nuernberg, c=de";
 33 #      $ldap->delete($dn);
 34       $mesg = $ldap->add( $dn,
 35                       attrs => [
 36                         cn  => $cn,
 37                         fauModificationInfo  => scalar(localtime),
 38                         mail  => $cn."\@rrze.uni-erlangen.de",
 39                         objectClass => [qw(fauObject fauDistributionList cdsIntraStoreDistributionList)],
 40                         preferredRfc822Originator =>$cn."\@rrze.uni-erlangen.de",
 41                         preferredRfc822Recipient => "|/mailman/rrze/mail/mailman/ $mm_ldap[$i] $cn"
 42                       ]
 43                     );
 44 }
 45
 46 $ldap->unbind || die $!;