#!/usr/bin/perl
$url="";
if($ENV{'HTTP_HOST'} eq 'www.audioexchange.org')
{$url = "http://www.audioexchange.org/weblog/index.php"}
if($ENV{'HTTP_HOST'} eq 'audioexchange.org')
{$url = "http://www.audioexchange.org/weblog/index.php"}
if($ENV{'HTTP_HOST'} eq 'www.fundraisingstore.org')
{$url = "http://www.fundraisingstore.org/store/index.html"}
if($ENV{'HTTP_HOST'} eq 'fundraisingstore.org')
{$url = "http://www.fundraisingstore.org/store/index.html"}
if($url eq "") {$url="http://www.beconnected.org/index.html"}
#################################################################
print "Location: $url\n";
print "Content-Type: text/html\n\n";
print "$ENV{'HTTP_HOST'}\n";
print "Click here to enter\n";
print "";