#!/usr/local/bin/perl

%vreason = ("official" , 1,
	"sipb", 1,
	"studhp", 1,
	"linkmithp", 1,
	"linksipbhp", 1,
	"link", 1,
	"service", 1,
	"bookmark", 1
	);

require 'parseform.pl';

$pi = $ENV{'PATH_INFO'};
if($pi eq "/other"){
	%form = &parseform($ENV{'QUERY_STRING'});
}

$reason = substr($pi, 1);

if($vreason{$reason}){
	$f = $reason;
	$v = $ENV{'REMOTE_HOST'};
}
elsif($reason eq "other"){
	$f = "other";
	$v = "$ENV{'REMOTE_HOST'} $form{'reason'}";
}

open(F, ">>/var/local/www/data/survey/$f");
print F "$v\n";
close(F);


print <<EOHTML;
Content-type: text/html

<title>Thank You</title> 
<meta http-equiv="Refresh" content="3;url=http://www.mit.edu/">
<h1>Thank You</h1> 

Your feedback has been
recorded. You will now be returned to <a
href="http://www.mit.edu/">www.mit.edu</a>
EOHTML