#!/usr/bin/perl
use CGI qw(:standard);

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

eND

$dirlocation = "/home12c/sub007/sc13648-GPVH/";
chdir($dirlocation) || print "Couldn't change directory $!<BR>\n";

$time = time;

$cookieid = "cpid";

$cookie = $ENV{"HTTP_COOKIE"};
$cookie =~ m/$cookieid\=([^;]+)/;
$id = $1;
exit unless $id;
$subfolder = substr($id,0,1);
if (open(DATA,"CPs/$subfolder/$id/girl.txt") || open(DATA,"CPs/$subfolder/$id/girl.txt")) {
	while ($_ = <DATA>) {
		$info{$1} = $2 if m/^([^=]+)\=(.*)/;
	}
	close(DATA);
}

$name = $info{"name"};
$house = "make";

unless (open(DATA,"cp/conversations/people/$id.txt")) {

	open(DATA,">cp/conversations/people/$id.txt") || open(DATA,">cp/conversations/people/$id.txt") || print "Couldn't start id file: $!<BR>\n";
close(DATA);
}

open(DATA,">>cp/conversations/gcommlist.txt") || open(DATA,">>cp/conversations/gcommlist.txt") || print "Problem with adding to gcommlist: $!<BR>\n";
print DATA "$id\n$name\n$house\n";
close(DATA);

print "<a href=http://makeapersonality.com/cgi-bin/rare2/mail.pl>return</a><BR>\n";

exit;