#!/usr/local/bin/perl

$query = join(' ', @ARGV) if $ARGV[0];
local($who) = $query;

open(HOME, "/var/local/www/root/home-pages.html");	

while(<HOME>){
	if(/<a name=\"([^\"]+)\" href=\"([^\"]+)\">/i){
		$name = $1;
		$url = $2;
		if($url !~ /^http/){
			$url = ("http://www.mit.edu:8001" . $url);
		}
	}
	
	if($name eq $who){
	    print("Location: $url\n\n");
	    exit;
	}
}
print("Location: http://www.mit.edu:8001/home-pages.html\n\n");
