#!/usr/bin/perl -w $tiedosto = "tennis2001.txt"; use CGI qw(:standard); if (param()) { $p = new CGI; if ($p->param('salasana') = "pallo" ) { open(NFILE, "> $tiedosto") or print "Virhe: $!"; flock(NFILE, 2); $p->save(NFILE); flock(NFILE, 8); close(NFILE); } } open (IFILE, $tiedosto) or print "Virhe: $!"; $q = new CGI(IFILE); print STDOUT < Tennisvuorot - kesä 2001 - Tyhjä Joukko RY

Tennisvuorot - kesä 2001

Salasana: OMAA @pvm= $q->param('pvm'); @varaajat = $q->param('varaajat'); $i = 0; while ($i < $#pvm+1) { print ""; print "\t\n"; $i = $i + 1; } ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($tiedosto); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mtime); $year = $year + 1900; print STDOUT <

http://www.cc.jyu.fi/yhd/tj/tennis/

OMAA

Päivä	Varaajat
" . $pvm[$i]; print "	"; print "