Samtliga lektioner är i datorsal D3, D4-D5, 24 platser. Jag har även reserverat tid i datorsalarna för självständigt arbete utan handledning, se nedan.
END $agent=$ENV{'HTTP_USER_AGENT'}; if($agent =~ m/NCSA_Mosaic/) { print "OBS: Du använder Mosaic, som tyvärr inte klarar att "; print "visa detta. "; print "Använd någon annan WWW-läsare, t.ex. lynx, netscape, arena "; print "eller hotjava.
";
}
}
sub ProcessForm {
$dator=$ENV{'REMOTE_HOST'};
$tid= time;
$nynamn1=$input{'nynamn1'};
$nynamn2=$input{'nynamn2'};
$nyproblem=$input{'nyproblem'};
$nyemail1=$input{'nyemail1'};
$nyemail2=$input{'nyemail2'};
$nykommentar=$input{'nykommentar'};
unless($dator=~m/\.chalmers\.se$/) {
print "It is only possible to join this list from inside ";
print "Chalmers. \n";
&PrintFoot;
exit;
}
if($nynamn1 eq '' || $nynamn1=~m![/\|\;]! || $nyemail1=~m![/\|\;]!
|| $nynamn2=~m![/\|\;]! || $nyemail2=~m![/\|\;]!
|| $nykommentar=~m![\|\;]! ) {
print " Namn måste anges (utan konstiga tecken), ";
print "försök igen.\n";
&PrintFoot;
exit;
}
open(FIL,"<$fikafil");
# flock(FIL,2); # Lock file exclusively
@data=( \n";
print "Försök igen. \n";
print "Tillbaka till kursens hemsida.\n";
print " Boka en tid till. \n";
}
sub PrintForm {
print "För att boka tid fyller ni i era namn (och ";
print "email-adresser) nedan, samt ";
print "klickar i rutan för den numrerade plats ni önskar. ";
print "Tryck slutligen på \"Boka\" längst ned, så registreras ";
print "er bokning. ";
print "Tyvärr kan man bara boka en tid åt gången. ";
print "Därför måste ni göra detta två gånger. ";
print "Om ni vill avboka, ";
print "eller om ni inte hittar någon tid som passar, ";
print "skicka ett brev\n";
print "till mig, så ordnar jag det.\n /stig";
print "