#!/usr/local/bin/perl
#membership_closed.html

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
require "cgi-lib.pl";
print h1("Spring Jubilee Online Registration");

print header(), start_html(-title =>'Peninsula Skating Club Membership Registration',
		-background=>'../htdocs/_themes/psc-theme/grayice.jpg'
		
		);

$go = param("go");
$page = param("page");

#line below is for diagnostic testing
#print p("page is $page and go is $go");

print_page1() if $go eq "Return to Form" || $page eq "" || ($go eq "Previous Page" && $page == 2);
print_page1() if $go eq "Lookup Info" && $page == 1;

print end_html;



################
#     Page1    #
################

sub print_page1
{
$match="no";
print h1("Peninsula Skating Club Membership Registration");
print p("Thank you for your interest in online membership renewal for the Peninsula Skating Club");
print p("The new skating year starts on July 1st. We'll have the 2008-2009 on-line renewal/registration form back on
the website in early June. If you want to join Peninsula Skating Club for the current skating year (2007-2008) please
contact Laura Lomazzi at lllomazzi59\@aol.com"); 

print p("Thank you for your interest in the Peninsula Skating Club");
}