#!/usr/bin/perl
require "../cgi-lib.pl";
ReadParse(*in);
if($in{bounce}) {
    print "Content-Type: text/html\n\n";
    print "FOOBAR!\n";
    
    print "<script language=javascript>\n";
    print "document.location=\"http://www.suave.net$ENV{SCRIPT_NAME}\?test=foo\";\n";
    print "</script>\n";
} else {
    print "Content-Type: text/html\n\n";
    print "<HTML><BODY>\n";
    print "Referer = \"$ENV{HTTP_REFERER}\"<br>\n";
    
    print "<A HREF=\"$ENV{SCRIPT_NAME}\">No Window</A><BR>\n";
    
    print "<A HREF=\"$ENV{SCRIPT_NAME}\"";
    print " onClick=\"window.open('$ENV{SCRIPT_NAME}', 'PeeronPic','width=96,height=82,resizable=1,scrollbars=1,toolbar=0,location=0,directories=0,status=0,menubar=0\');return false;\">Window</A><br>\n";
    
    print "<A HREF=\"$ENV{SCRIPT_NAME}\" onclick=\"open('$ENV{SCRIPT_NAME}','displayWindow','width=96,height=82,resizable=1,scrollbars=1,toolbar=0,status=0,menubar=0');return false;\">Window 2</A><br>\n";
    
    print "<A HREF=\"javascript:open('$ENV{SCRIPT_NAME}','displayWindow','width=96,height=82,resizable=1,scrollbars=1,toolbar=0,status=0,menubar=0')\">Window 3</A><br>\n";
    
    print "<A HREF=\"javascript:open1()\">Window 4</A><br>\n";
    
    print "<script language=javascript>\n";
    print "function open1() {\n";
print "  mywin=open(\"$ENV{SCRIPT_NAME}\",\"displayWindow\",\"width=96,height=82,resizeable=1,scrollbars=1,toolbar=0,status=0,menubar=0\");\n";
    print "}\n";
    print "</script>\n";
    print "</BODY></HTML>\n";
}

