<% 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/'); }; %>