#!/usr/bin/perl -T # driver program for Web-Learning-Project # supports these types of arguments - # Q-filename quoted file filename # W-codename refer to wirefile for file assoc. w/ codename # # (c) burt rosenberg 1995, free to distribute # $error = 1 ; $command = $ENV{'QUERY_STRING'} ; print "Content-type: text/html\n\n"; if ( $command =~ /^Q-(.*)/ ) { # a Quote type of command $file = "docs/$1.html" ; open( DOCUMENT, $file ) || die "
driver.pl: $file not found\n" ; while (
driver.pl: wire-file not found\n" ; while (
driver.pl: translation of $Stim failed.\n" ; } else { $file = "docs/$Resp.html" ; open( DOCUMENT, $file ) || die "
driver.pl: $file not found\n" ; while (
driver.pl: $command not understood.\n" ; }