#!/usr/bin/perl

$DOMAINS = "/domains/a/l/allcasinoreviews.com/public_html/cgi-bin/domains3.txt";
open DOMAINS;
@urls = <DOMAINS>;
close DOMAINS;

%addresses = ();
foreach $entry (@urls) {
	@temp = split /,/, $entry;
	$addresses{$temp[0]} = $temp[1];
}

$url_handle = $ENV{QUERY_STRING};
#print @urls;
print "Content-type: text/html\n";
print "Location: $addresses{$url_handle}\n\n";