#!/usr/local/bin/perl # This script has to be written to overcome some of the bugs in javascript. # It will be called from a replace call from the preceeding page, that will # place the width and height of the screen in the query string. # It will also check to see that the refer property so that if it is not # called from the index page, then it will reset to the index page to get # the current height and width. # Now we'll import get all the cgi-routines require 'Your generic cgi-lib.pl module'; # parse the data &parse_cgi_get; $redir = $in{redir}; $cols = $in{cols}; $rows = $in{rows}; if ($redir =~ /Yes/) { &printpage; } else { &redirect; } sub redirect { print "Location: taylor.demo.html\r\n\r\n"; } sub printpage { # let's print out the content typefirst off print "Content-Type: text/html\r\n\r\n"; print< metasyntactic variable
                       
MAINSCRIPTSPEW }