#!/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";
Name | Uni | Übernachtungen | Anmelde-Datum | |||
---|---|---|---|---|---|---|
E-Mail
open (LISTE,'",$vorname;
print " | ",$name;
print " | ",$uni;
# print " | ",$email;
print " | ",$tage;
print " | ",@date," | |
print_tag