#!/usr/common/bin/perl -wT use CGI; use CGI::Carp qw(fatalsToBrowser); require './symbify.pl'; @verbs=(); require "./verbs_out.pl"; $query=new CGI; @params=$query->param; @tenses=(); @persons=(); foreach $param (@params) { $num=$query->param($param); if ($param eq "present" || $param eq "preterite" || $param eq "imperfect" || $param eq "perfect") { foreach $p (1..$num) { push @tenses,$param; } } elsif ($param =~ m/^[123]p[sp]$/) { foreach $p (1..$num) { push @persons,$param; } } } $numqs=$query->param('num_questions'); srand; print $query->header; print "\n"; print "
\n"; print "