#!/usr/bin/perl
# tester.cgi - This will test the HTMLObject FrameSet object.

use HTMLObject::FrameSet;
use strict;

my $doc = HTMLObject::FrameSet->new(displayOnExit => 1);

$doc->onbeforeunload("return 'You are leaving and onbeforeunload fired!';");
$doc->onload("alert('all frames loaded!');");

$doc->setCookie(name=>'testing');

my $argString = $doc->encodeString( string => "name" ) . "=" . $doc->encodeString( string => "1" );

my $content;
my $innerContent;
$innerContent = $doc->createNoframe("This is an embedded No Frames Tag!");
$innerContent .= $doc->createFrame(src => "tester3.cgi?$argString", noresize => '', frameborder => 'no', scrolling => 'auto', marginwidth => '0', border => '1', bordercolor => 'yellow');
$argString = $doc->encodeString( string => "name" ) . "=" . $doc->encodeString(string => "2");
$innerContent .= $doc->createFrame(src => "tester3.cgi?$argString", noresize => '', frameborder => 'no', scrolling => 'auto', name => 'left_menu', marginwidth => '0', border => '0', bordercolor => 'blue');
$argString = $doc->encodeString( string => "name" ) . "=" . $doc->encodeString(string => "3");
$innerContent .= $doc->createFrame(src => "tester3.cgi?$argString", noresize => '', frameborder => 'no', scrolling => 'auto', name => 'left2_menu', marginwidth => '0', border => '0', bordercolor => 'blue');
$content = $doc->innerFrameset(rows => '30%,*,30%', content => $innerContent, border => '1');
$argString = $doc->encodeString( string => "name" ) . "=" . $doc->encodeString(string => "4");
$content .= $doc->createFrame(src => "tester3.cgi?$argString", name => 'right_menu', frameborder => 'no', noresize => '', marginwidth => '0', border => '0', bordercolor => 'blue');
$argString = $doc->encodeString( string => "name" ) . "=" . $doc->encodeString(string => "5");
$content .= $doc->createFrame(src => "tester3.cgi?$argString", name => 'right2_menu', frameborder => 'no', noresize => '', marginwidth => '0', marginheight => '0', border => '0', bordercolor => 'blue');
$content .= $doc->createNoframe("Hello World!\nYou need Frame Support enabled!");
$doc->outerFrameset(cols => '*, 3*', content => $content, border => '0');

#$doc->display();