#!/usr/bin/perl -w -T use strict; use CGI; my $q = new CGI; my $laheta = $q->param('laheta'); my $err = 0; my $cookie; # esitellään muuttuja, mutta ei aseteta mitään # tarvitaan yhteenvedon tulostamisissa sub tulosta_summat { my ($cgi, $cgiparam) = @_; my $allop = 0; my $kursseja = 0; foreach my $op ($cgi->param($cgiparam)) { $allop = $allop + $op; $kursseja++; } print "

Kursseja: $kursseja

"; print "

Opintopisteitä: $allop

"; if ($kursseja) { my $ka = $allop / $kursseja; print "

Keskimäärin op per kurssi: $ka

"; } } # onko virheitä if ($laheta) { if (length($q->param('etunimi')) < 1 || length($q->param('sukunimi')) < 1) { $err++; } if (not $err) { $cookie = $q->cookie(-name=>'taytetty',-value=>'1', -expires=>'+1h',-path=>'/',-domain=>'people.cc.jyu.fi'); } } # otsikkotiedot if ($cookie) { print $q->header(-cookie=>$cookie); } else { print "Content-type: text/html\n\n"; } print < VT3 taso 3 ALKU # jos halutaan estää lomakkeen uudelleentäyttö niin # seuraavan lohkon sisään ja elsif väliin if ($q->cookie('taytetty')) { print "

Olet täyttänyt lomakkeen

"; } if ($laheta) { if ($err) { print "

Tiedoissa virheitä.

"; } else { #yhteenveto my $etunimi = $q->escapeHTML($q->param('etunimi')); my $sukunimi = $q->escapeHTML($q->param('sukunimi')); print "

$etunimi $sukunimi

"; #lasketaan summat ja opintopisteet print "

Suoritetut

"; &tulosta_summat($q,'suor'); print "

Aion suorittaa

"; &tulosta_summat($q,'aion'); } } else { print <
Henkilötiedot
Suoritetut
Mitä kursseja aiot suorittaa?
LOMAKE } print < LOPPU