#!/usr/bin/perl -Tw -I. -I/usr/local/positive/Perl

use strict;
use Pos::Webtop::Web::ModuleLoader;

my $tb = Pos::Webtop::Toolbox->new();
my $client = $tb->getClient();
my $cgi = $tb->getCgi();

#$client->checkSession();

my $p = $tb->getPage( title=> "Blah and stuff" );

print $p->getHeaderHtml();

my $box1 = $tb->createBox( title=> "Doh, a box" );

print $box1->getHeaderHtml();

my @animals = qw(
	cat
	dog
	bird
);

my @persistedAnimals = $client->getPersistedValue( name=> "animals" );
$client->setPersistedValue( name=> "animals", value=> [@animals] );

print "Animals: " . join(", ", @animals ) . "<br/>\n";
print "Persisted Animals: " . join(", ", @persistedAnimals ) . "<br/>\n";
	

print $client->getFormGetCode( text=> "test persisted" );

print "<br/><br/>";

print $box1->getFooterHtml();

print $p->getFooterHtml();