[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 59) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 60) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 61) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 62) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 63) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 64) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 65) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 66) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] Bareword found where operator expected at (eval 67) line 1, near "//www"
[Tue Sep 21 06:38:05 2010] [error] [client 61.942.17.87] \t(Missing operator before www?)

##</code><code>##

#!/usr/bin/perl -a

##</code><code>##

# First location with www in it
my $_tdomain = $ENV{SERVER_NAME};
my @_tdom = split(/\./, $_tdomain);
if(length($_tdom[2]) > 1 && $_tdom[0] ne "www") {
	$_username = $_tdom[0];
	$_username = $dbh->selectrow_array(qq{select `username` from `reg_members` where `subName` = ? and `subNameStatus` = "1"}, undef, $_username);
	if($_username && $ENV{SCRIPT_URL} eq '/') {
		window_redirect("http://www.domain.net/index.cgi?page=home&username=$_username&rdf=sub$sess_id");
	}
}

##</code><code>##

# Second location with www in it:

if (!$in{page}) {# Path or page was NOT defined so now go redirect them to the home page, carry the member username... add &l=0 so if it is us, we know what happened.
	window_redirect("http://www.$_co_domain/index.cgi?page=home&username=$regmem->{username}&l=0$sess_id");
	exit;
} else {
	$_page = $in{page};
}