#!/usr/athena/bin/perl # Mozilla sends "GET /home?isindex=" if (substr($ENV{'QUERY_STRING'}, 0, 8) eq "isindex="){ $who = substr($ENV{'QUERY_STRING'}, 8); $who =~ s/\+/ /g; $who =~ s/%27/'/g; } else { $query = join(' ', @ARGV) if $ARGV[0]; $who = $query; } # traditionally http://stuff.mit.edu/home has redirected to # http://stuff.mit.edu if ($who eq ""){ print("Location: http://stuff.mit.edu/\n\n"); exit; } open(HOME, "/afs/sipb.mit.edu/project/www/root-stuff/Home-byUser.html"); while(){ if(//i){ $name = $1; $url = $2; } if($name eq $who){ if($url !~ /^http/){ $url = ("http://stuff.mit.edu" . $url); } print("Location: $url\n\n"); exit; } } close(HOME); open(HOME, "/afs/sipb.mit.edu/project/www/root-stuff/Home-byUser.html"); while(){ @entry = grep(/$who/i, ); if ($entry[1]) { print < MIT Community Home Pages: Multiple Matches

[fireplace]

Multiple Matches

There were multiple matches to your query. Please choose one of the following: