#!/usr/bin/perl require "cgi-lib.pl"; MAIN: { $namnfil="INTRO.txt"; # &PrintHead; # if (&ReadParse(*input)) { &ProcessForm; sleep 3; &PrintList; } else { &PrintForm; &PrintList; } # &PrintFoot; } sub PrintHead { print &PrintHeader; print < projekt INTRO 2002

INTRO project 2002

Fyll i grupptillhörighet (K12, K34, K56, Kf123, Bt12, Bt34 eller Bt56), namn och projekttitel.

END $agent=$ENV{'HTTP_USER_AGENT'}; } sub PrintForm { print "

\n"; print "

\n"; print "\n"; print ""; print "\n"; print "\n"; for ($i = 1; $i <= 4; $i++) { print "\n"; print ""; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "
Grupp:
Namn $i:
Projekttitel:

\n

\n"; print "\n"; print "

\n"; print "

\n"; } sub ProcessForm { $nygrupp = $input{'grupp'}; $nynamn1 = $input{'namn1'}; $nynamn2 = $input{'namn2'}; $nynamn3 = $input{'namn3'}; $nynamn4 = $input{'namn4'}; $nytitel = $input{'titel'}; if($nygrupp eq '') { print "Ej angett grupptillhörighet. "; print ""; print "Försök igen!\n

\n"; &PrintFoot; exit; } if($nynamn1 eq '') { print "Ange era namn. "; print ""; print "Försök igen!\n

\n"; &PrintFoot; exit; } if($nytitel eq '') { print "Ange en projekttitel. "; print ""; print "Försök igen!\n

\n"; &PrintFoot; exit; } open(FIL,"<$namnfil"); @data=(); $count = 0; for(@data) { if($count == 0) { $count += s!^\|\|!|$nygrupp|$nynamn1|$nynamn2|$nynamn3|$nynamn4|$nytitel!o; } } unless($count == 1) { print "Något gick fel. :(\n"; print ""; print "Försök igen!\n

\n"; &PrintFoot; exit; } close(FIL); open(FIL,">$namnfil"); print FIL @data; close(FIL); print "Er projektanmälan är nu registrerad.\n"; print "OBS! Kontrollera nedan att ni kom med.\n"; print "\n

\n"; print "Tillbaka till \n"; print "kursens "; print "hemsida.\n

\n"; } sub PrintList { open(FIL,"<$namnfil"); print "


\n"; print "

Lista över projekt:

\n"; print "
"; $enrad = ; ($slask, $grupp, $namn1, $namn2, $namn3, $namn4, $titel) = split(/\|/, $enrad); until ($grupp eq "") { print "$grupp  \n"; print "$namn1"; unless ($namn2 eq "") { print ",  $namn2"; } unless ($namn3 eq "") { print ",  $namn3"; } unless ($namn4 eq "") { print ",  $namn4"; } print "
\n"; print "$titel"; print "
\n"; $enrad = ; ($slask, $grupp, $namn1, $namn2, $namn3, $namn4, $titel) = split(/\|/, $enrad); } close(FIL); } sub PrintFoot { print <

Denna sida är automatiskt genererad för Niklas Ericsson och Kenneth Eriksson.
ENDFOOT }