#!/usr/bin/perl

require("cgi-lib.cgi");
&ReadParse;

open(FILEHANDLE,"<jump.list");
while($line = <FILEHANDLE>)
{
	$line =~ s/\n//g;

	($product,$goto) = split(/\|/, $line);
	if($product eq $in{'jump'})
	{
		close FILEHANDLE;
		print "Location: $goto\n\n";
		exit;
	}

}