#!/usr/bin/perl
# Simple script to generate a frameset, where the main frame is 
# determined by a URL query parameter.
#
# Note we depend on the "main" frame being on top, so mouse coords
# are the same for that view whether it is in a frame or on its
# own, which makes the other tests that generate events work within
# this frameset wrapper.

use CGI;
$query = new CGI;
$frameURL = $query->param('frameURL');

print "Content-type: text/html\r\n";
print "\r\n";

print <<HERE_DOC_END
<html>
<script type="text/javascript" src="testcode.js"></script>
<frameset rows="90%,10%">
<frame src="$frameURL" name="main">
<frame src="otherpage.html" name="footer">
</frameset>
</html>
HERE_DOC_END