#!/usr/bin/perl

use CGI ':standard';
use HTML::Template;


#$homepath="/var/www/stage.btvshalom.org/mem/";
$homepath="/var/www/btvshalom.org/newmem/";
my $refer = param('refer');
my $debug = param('debug');
my $nextpage = param('nextpage');
my $firstpage = param('firstpage') ||  "britjoin.htm";
$firstpage="$homepath/$firstpage";

my $tmpl = new HTML::Template( filename => $firstpage );

my %taglist = ( 
join => '<b>Yes, I\'d like to stay in touch...</b><br>  with other American Jews who a negotiated settlement of the Israeli-Palestinian conflict leading to a secure Israel alongside a viable Palestinian state.',

act => 'Yes, I want to write a letter to my senator supporting peace.',
donate => 'Yes, I want to donate to Brit Tzedek to support its goals.',
read => 'Please tell me more about what this organization does.',
sign => 'Yes, I want to sign the petition to bring the settlers home.');

my $tag= $taglist{param('tag') || 'join'};


$tmpl->param( refer => $refer );
$tmpl->param( debug => $debug );
$tmpl->param( nextpage => $nextpage );
$tmpl->param( tag => $tag );
$tmpl->param( tag => $email );


print "Content-type: text/html\n\n",
      $tmpl->output;