#!/usr/bin/perl
@browser=split(/\//,$ENV{'HTTP_USER_AGENT'});
$string="" if ($browser[0] ne Mozilla);
print "Content-type: text/html\n\n";
print<<"print_tag";
Teilnehmer an der Tagung in Jena
Teilnehmer an der Tagung in Jena
| Name
| Uni
| Übernachtungen
| Anmelde-Datum |
print_tag
# E-Mail
open (LISTE,') {
chop;
($vorname,$name,$uni,$email,$tage,@date)=split(/:/);
print "| ",$vorname;
print " | ",$name;
print " | ",$uni;
# print " | ",$email;
print " | ",$tage;
print " | ",@date," | ";
}
print<<"print_tag"
|
print_tag