#!/usr/bin/perl # $baseurl = "https://www.uni-due.de/zim/burkhard.wald/tectonic/index.html"; print "Content-type: text/html\n\n"; print "\n"; open(FILE,"tectonic.txt"); while () { my ($user,$datum,$parameter) = split(';'); my ($m,$n,$muster,$setting) = split(',',$parameter); if ($setting) { $art = "Spiel"; } else { $art = "Muster"; } print ""; print "\n"; } close FILE; print "

$user

$datum

$art

$m x $n

show

\n"