if (@names > 1) {
print_header("Gefundene E-Mail-Adressen");
print "Folgende E-Mail-Adressen wurden gefunden:\n<P>\n";
print "<TABLE BORDER=3>\n";
foreach my $name (sort byLastName @names) {
my $address = $fullname{$name} . $domain;
print "<TR><TD>$name</TD><TD>";
print qq(<A HREF="mailto:$address">$address</A>);
print "</TD></TR>\n";
}
print "</TABLE>\n<HR>\n";
} elsif (@names > 0) {
print_header("Gefundene E-Mail-Adresse");
print "Folgende E-Mail-Adresse wurde gefunden:\n<P>\n";
my $name = $names[0];
my $address = $fullname{$name} . $domain;
print "<TABLE>\n";
print "<TR><TD>Name:</TD><TD>$name</TD></TR>\n";
print "<TR><TD>Adresse:</TD>";
print qq(<TD><A HREF="mailto:$address">$address</A></TD>);
print "</TR></TABLE><HR>\n";
} else {
print_header("Leider nichts gefunden");
print "Bitte probieren Sie es erneut:\n<P>\n";
}
|