<%
use HTTP::Date;
use strict;
my( $form );
if ( $Request->ServerVariables('REQUEST_METHOD') eq 'GET' ) {
$form = $Request->QueryString();
} else {
$form = $Request->Form();
};
$Response->Cookies('travelsmart_affiliate_email','email',$form->{'email'});
$Response->Cookies('travelsmart_affiliate_email','expires',time2str(time()+604800));
# $Response->Cookies('travelsmart_affiliate_email','domain','http://$ENV{HTTP_HOST}');
if ( $form->{'url'} ) {
$Response->Redirect( $form->{'url'} );
} else {
$Response->Redirect('http://www.travelsmart.net/');
};
%>