#!/usr/bin/perl -w -I..

use strict;
use Pos::Webtop::Web::IndividualSignup;
use HTML::Entities ();

sub getPageHeader
{
	my ($title) = @{{@_}}{qw/title/};
	
	my $ret = "Content-type: text/html\n\n

		<HTML>
		<HEAD>
			<TITLE>Birch: " . HTML::Entities::encode($title) . "</TITLE>
		</HEAD>
		<BODY>
			STINKY BODY
			DIFFERENT HEADER

	";
	
}

sub getPageFooter
{
	return "
		
		DIFFERENT FOOTER
		</BODY>
		</HTML>
	";
}

my $signup = Pos::Webtop::Web::IndividualSignup->new( customerId=> 130 );
$signup->setGetPageHeaderHandler( handler=> \&getPageHeader );
$signup->setGetPageFooterHandler( handler=> \&getPageFooter );

$signup->main();