Anonym

#!/usr/bin/perl -w

use Net::LDAP;

my $listdir = "/home/julix/majord/lists";
#my $listdir = "/home/rzhome/unrz/majord/lists";
my $mlname = $ARGV[0];
my @members = ();

my @mailzero = ();
my %mailone = ();
my %ambiquous =();

my %oneRecipient = ();
my @externMembers = ();
my %noUniqRecip = ();

my %prefOriginator = ();
my %noPrefOrig = ();
my @newmembers = ();
my $arg = @ARGV;


if ($arg != 1)
{
    print "Usage:\t$0 \<mailinglist\>\n";
    exit 1;
}
if (!-e "$listdir/$mlname")
{
    print "Mailinglist \"$mlname\" not found\n";
    exit 1;
}

######### open Majordomo-MailingList && write all Members in @members #########

open(LIST,"$listdir/$mlname") || die "$!\n";
foreach my $m (<LIST>)
{ 
    chomp($m);
    push(@members,$m);
}
close(LIST);
my $membersanz = @members;

######## mailEntry LDAP Search ########################################################

my $ldap = Net::LDAP->new('lde202.rrze.uni-erlangen.de', port => 400) or die "$@";

my $mesg = $ldap->bind('o=Universitaet Erlangen-Nuernberg,c=de', password => 'samaPizda');
foreach my $j (@members)
{   
    $mesg = $ldap->search( 
			base   => 'o=Universitaet Erlangen-Nuernberg,c=de', 
			scope  => 'sub',
			filter => "(preferredRfc822Recipient=$j)"
			    );
    my @entries = $mesg->entries;
    foreach my $entry (@entries)
    {
       if (!$entry->exists('mail'))
       {
	    push (@noMailAtrMembers, $j); 
       }
    }
}

foreach my $i (@members)
{
     $mesg = $ldap->search( 
			base   => 'o=Universitaet Erlangen-Nuernberg,c=de', 
			scope  => 'sub',
			filter => "mail=$i",
			attrs  => ['dn']
			    );
    my $count = $mesg->count;
    if ($count == 0 )
    {
	push(@mailzero, $i);
    }
    elsif ($count == 1)
    {
	my $entry = $mesg->entry();
	my $dn = $entry->dn();	
	$mailone{$dn} = $i;
    }
    elsif ($count > 1)
    {
	my @doubleEntries = $mesg->entries;
	foreach my $doubleEntry (@doubleEntries)
	{
            $dnDouble = $doubleEntry->dn();
	    $ambiquous{$dnDouble} = $i;
	}
    }
}

######## RecipientEntry Ldap Search ##################################################

foreach my $r (@mailzero)
{
	$mesg = $ldap->search(
			base   => 'o=Universitaet Erlangen-Nuernberg,c=de',
			scope  => 'sub',
			filter => "(preferredRfc822Recipient=$r)",
			attrs  => ['preferredRfc822Recipient']

			    );
	$count = $mesg->count;
	if ($count == 0)
	{
	    push(@externMembers, $r);
	}
	elsif ($count == 1)
	{
	    my $entry = $mesg->entry;
	    $dn = $entry->dn();
	    $oneRecipient{$dn} = $r;
	}
	elsif ($count > 1)
	{
	    my @doubleRecipients = $mesg->entries;
	    foreach my $doubleRec (@doubleRecipients)
	    {
            	$recipientDouble = $doubleRec->dn();
	    	$noUniqRecip{$recipientDouble} = $r;
	    }
	}
    }

######### prefOriginator LDAP Search ####################################################

%prefOriginator = (%mailone, %oneRecipient);
my @base = keys(%prefOriginator);

foreach my $b (@base)
{
    my $filter = $prefOriginator{$b};
    $mesg = $ldap->search(
			base   => $b,
			scope  => 'base',
			filter => "(preferredRfc822Originator=*)",
			attrs  => ['preferredRfc822Originator']
			);
    $count = $mesg->count;
    if($count==0)
    {   
	$noPrefOrig{$b} =  $prefOriginator{$b};	
    } 
    else
    {
	push(@newmembers,$prefOriginator{$b}) 
    }
}

########  OUTPUT & Files #################################################################################################

print "Summary:\n";
print "Majorodomo-mailinglist:\t\t$mlname\n";
print "Members:\t\t\t$membersanz\n";

######## ExternMembers ###########################################################

$externmembersanz = @externMembers;
if($externmembersanz > 0)
{
    open(EXTR, ">>$mlname.externmembers") || die $!;
    	foreach my $e (@externMembers)
    	{
	    print EXTR "$e\n";
    	}
    print "ExternMembers:\t\t\t$externmembersanz check for details \"$mlname.externmembers\"\n";
}
else
{
    print "ExternMembers:\t\tnot found\n"
}

######## NewMember ###############################################################

my $newmembersanz = @newmembers;
if($newmembersanz > 0)
{
    open(NEWM,">>$mlname.newmembers") || die $!;
    foreach my $nm (@newmembers)
    {
	print NEWM "$nm\n";
    }
    print "NewMembers:\t\t\t$newmembersanz check for details \"$mlname.newmembers\"\n";
}
else
{
    print "NewMembers:\t\tnot found\n";
}

######## NoPrefOriginator #######################################################


if( %noPrefOrig ne 0 ) 
{
    my @dn = keys %noPrefOrig;
    my $anz = @dn;
    open(WARNORIG,">>$mlname.noPrefOrig") || die $!;
	
    	print WARNORIG"="x60;
    	print WARNORIG"\n"; 
    	for (my $k = 0; $k<$anz; $k++)
    	{
	    print WARNORIG "WARNING:\tno prefOriginator\nmailinglist:\t$mlname\nmember:\t\t$noPrefOrig{$dn[$k]}\ndn:\t\t$dn[$k]\n";
	    print WARNORIG "-"x60;
	    print WARNORIG "\n";
    	}
    close(WARNORIG);
    print "NoPrefOriginatorMembers:\t$anz check for details \"$mlname.noPrefOrig\"\n";
}
else
{
    print "NoPrefOriginatorMembers:\t\tnot found\n";
}
close(NEWM);

#######  AmbiquousMembes  #######################################################

if(%ambiquous ne 0)
{
####### AmbiquousMembersCount ########
    my %rev_amb = reverse(%ambiquous);
    my @amb;
    foreach my $a (sort keys(%rev_amb)) 
    {
        push(@amb, $a);
    }
    my $a = @amb;    # Anzahl von AmbiquousMembers

###### Ausgabe ########################

    my @dn = keys %ambiquous;
    my $anz = @dn;
    open (ERROR,">>$mlname.ambiquous") || die $!;
    print ERROR"="x60;
    print ERROR"\n"; 
    	for (my $k = 0; $k<$anz; $k++)
    	{
	    print ERROR "ERROR:\tambiquousmember\nmailinglist:\t$mlname\nmember:\t\t$ambiquous{$dn[$k]}\ndn:\t\t$dn[$k]\n";
	    print ERROR "-"x60;
	    print ERROR "\n";
    	}
    close(ERROR);
    print "ambiquousMembers:\t$a check for details \"$mlname.ambiquous\"\n";
}
else
{
    print "ambiquousMembers:\t\tnot found\n";
}

#######  NoUniqRecip  ###########################################################

if(%noUniqRecip ne 0)
{
    my %rev_val = reverse(%noUniqRecip);
    my @noUniq;
    foreach my $val (sort keys(%rev_val)) 
    {
        push(@noUniq, $val);
    }

    my $a = @noUniq;    # Anzahl von NoUniqueRecipientMembers

####### Ausgabe #########################

    my @dn = keys %noUniqRecip;
    my $anz = @dn;
    open (ERROR,">>$mlname.noUniqRecip") || die $!;
    print ERROR"="x60;
    print ERROR"\n"; 
    	for (my $k = 0; $k<$anz; $k++)
    	{
	    print ERROR "ERROR:\tnoUniqueRecipientMembers\nmailinglist:\t$mlname\nmember:\t\t$noUniqRecip{$dn[$k]}\ndn:\t\t$dn[$k]\n";
	    print ERROR "-"x60;
	    print ERROR "\n";
    	}
    close(ERROR);
    print "noUniqueRecipientMembers:\t$a check for details \"$mlname.noUniqRecip\"\n";
}
else
{
    print "noUniqueRecipientMembers:\tnot found\n";
}

############ No Mail Atribut for Entry ##############################################

my $noMailAtribut = @noMailAtrMembers;
if ($noMailAtribut > 0)
{
    open(WARNING,">>$mlname.NoLDAP_MailAtribut") || die $!;
    foreach my $k (@noMailAtrMembers)
    {
	print WARNING "$k\n";
    }
    close(WARNING);
    print "NoLDAP_MailAtributMembers:\t$noMailAtribut check for details \"$mlname.NoLDAP_MailAtribut\"\n";
}
else
{
    print "NoLDAP_MailAtributMembers:\tnot found\n";
}
############### End ##################################################################
print "="x30;
print "\n";
$ldap->unbind;
exit 0;