Public feed
#891106
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 $!;