OLD | NEW |
1 #!/usr/bin/perl | 1 #!/usr/bin/perl |
2 # Simple script to generate a frameset, where the main frame is | 2 # Simple script to generate a frameset, where the main frame is |
3 # determined by a URL query parameter. | 3 # determined by a URL query parameter. |
4 # | 4 # |
5 # Note we depend on the "main" frame being on top, so mouse coords | 5 # Note we depend on the "main" frame being on top, so mouse coords |
6 # are the same for that view whether it is in a frame or on its | 6 # are the same for that view whether it is in a frame or on its |
7 # own, which makes the other tests that generate events work within | 7 # own, which makes the other tests that generate events work within |
8 # this frameset wrapper. | 8 # this frameset wrapper. |
9 | 9 |
10 use CGI; | 10 use CGI; |
11 $query = new CGI; | 11 $query = new CGI; |
12 $frameURL = $query->param('frameURL'); | 12 $frameURL = $query->param('frameURL'); |
13 | 13 |
14 print "Content-type: text/html\r\n"; | 14 print "Content-type: text/html\r\n"; |
15 print "\r\n"; | 15 print "\r\n"; |
16 | 16 |
17 print <<HERE_DOC_END | 17 print <<HERE_DOC_END |
18 <html> | 18 <html> |
19 <script type="text/javascript" src="testcode.js"></script> | 19 <script type="text/javascript" src="testcode.js"></script> |
20 <frameset rows="90%,10%"> | 20 <frameset rows="90%,10%"> |
21 <frame src="$frameURL" name="main"> | 21 <frame src="$frameURL" name="main"> |
22 <frame src="otherpage.html" name="footer"> | 22 <frame src="otherpage.html" name="footer"> |
23 </frameset> | 23 </frameset> |
24 </html> | 24 </html> |
25 HERE_DOC_END | 25 HERE_DOC_END |
26 | 26 |
OLD | NEW |