use strict;
use Apache2::Request;
use Apache2::Const qw(:common);

my $r = shift;
$r = Apache2::Request->new($r);
my $uri = $r->uri;

my $emailaddress = $r->param('emailaddress');
my $password = $r->param('password');

my $qs = qq[emailaddress=$emailaddress;password=$password];

my $location;
if ($My::servername eq 'dev') {
	$location = q[http://10.10.81.142/];
}
else {
	$location = q[http://www.understandingyouth.com/];
}

$r->headers_out->add( Location => $location . qq[2009/roundtables.html?$qs] );
$r->status(302);