#!/usr/bin/perl -wT
open (INFILE,"$ARGV[0]");
open (INFILE2,"$ARGV[0]");
open (INFILE3,"help.mitglieder");
@namen=<INFILE3>;
close (INFILE3);
$i=0;
while (<INFILE>)
{
	if (/^<li><a href=\"..\/options\/lug-dd\//)
	{
	    $i++;	
	}
}
print "<TABLE><TR><TD BGCOLOR=\$(TH_BGCOLOR) VALIGN=BOTTOM WIDTH=600><B><FONT SIZE=\"+1\">Die Mitglieder</FONT></B></TD></TR><TR><TD><P>Zu den Treffen kamen bisher maximal 20-25 Leute.<BR>Zur Zeit haben ca. $i Personen unsere <A HREF=\"Mailto:lug-dd\@schlittermann.de\">Mailingliste</A> abonniert.</P><P>";
while (<INFILE2>)
{
    if (/^(<li><a href=\"..\/options\/lug-dd\/)([!-~]+)\">/)
    {
        $str = $2;
        $str =~ s/__at__/@/;
		$str2="<A HREF=\"Mailto:$str\">$str</A><BR>\n";
		for ($i=0;$i<$#namen;$i++){
			if ($namen[$i] =~ /^$str \/\/ ([!-~]+) ([!-~]+)/ ){
				$str2="<A HREF=\"Mailto:$str\">$1 $2</A><BR>\n";
			}
        }
		print $str2;
    }
}
print "</P></TD></TR></TABLE>";
close (INFILE2);
close (INFILE);