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

print "Content-type: text/html\n\n" unless $ARGV[0] eq "bh";


chdir("/home12c/sub007/sc13648-GPVH/");

$time = time();

$cookie = $ENV{"HTTP_COOKIE"};
$id = $1 if $cookie =~ m/cpid\=([^;,]+)/;

$subfolder = substr($id,0,1);

printpage("t/start/login.htm") unless $id;


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"};
$roomid = "roomof$name";
$roomname = "roomof$name";

open(DATA,">CPs/$subfolder/$id/lasttime.txt");
print DATA "$time";
close(DATA);

$new = "yes" if substr($time,0,4) - substr($id,0,4) < 3;

#start printing things
push @togo, qq~<table width=100%><tr><td>~;

$picsource = $info{"picsource"};
$picsource = "$subfolder/$id" if $picsource eq "own";

$name = $info{"name"};
push @togo, "<p>Name: <span style=font-size:16pt>$name</span>";
($gender = $info{"gender"}) || ($gender = "unknown");
push @togo, "<br>Gender: <span style=font-size:16pt>$gender</span>";
$age = $info{"age"};


if (opendir(DATA,"/home12c/sub007/sc13648-GPVH/cp/images/cate/cpgreeter") ) {
	@filenms = readdir(DATA);
	closedir(DATA);
	@filenms = grep m/\w\./, @filenms;
	$r = int(rand(@filenms));
	push @togo, qq~<img src=/images/cate/cpgreeter/$filenms[$r] align=right>~ if @filenms;
}
push @togo, qq~<p>This page lets you personalize your training. You can say, for example, what your personality likes. Then trainings or inductions are created for those likings.~;
push @togo, qq~<p>The "Training Phrases (general)" makes a general training for you. It's a good place to start.~;

push @togo, "<p><a href=/cgi-bin/rare/editphrasesall.pl?file=gentrain.txt;event=edit style=padding-left:10px;font-size:14pt>Training Phrases (general)</a>";

push @togo, "<BR><a href=/cgi-bin/rare/editphrasesall.pl?file=triggers.txt;event=edit style=padding-left:10px;font-size:14pt>Triggers</a>";

push @togo, "<BR><a href=/cgi-bin/rare/editphrasesall.pl?file=likes.txt;event=edit style=padding-left:10px;font-size:14pt>Likes</a>";
push @togo, "<BR><a href=/cgi-bin/rare/editphrasesall.pl?file=dislikes.txt;event=edit style=padding-left:10px;font-size:14pt>Dislikes</a>";
push @togo, "<BR><a href=/cgi-bin/rare/editphrasesall.pl?file=limitations.txt;event=edit style=padding-left:10px;font-size:14pt>Limitations</a>";
push @togo, "<BR><a href=/cgi-bin/rare/editphrasesall.pl?file=badthings.txt;event=edit style=padding-left:10px;font-size:14pt>Bad Things</a>";
push @togo, "<BR><a href=/cgi-bin/rare/editphrasesall.pl?file=looks.txt;event=edit style=padding-left:10px;font-size:14pt>Describe Yourself</a>";
push @togo, "<BR><a href=/cgi-bin/rare/editphrasesall.pl?file=fears.txt;event=edit style=padding-left:10px;font-size:14pt>Fears</a>";

if ($info{"gender"} eq "female") {
	push @togo, "<BR><a href=/cgi-bin/rare/aboutyou3b.pl?file=fears.txt;event=edit style=padding-left:10px;font-size:14pt>Choices for the female general training</a>";
}

printonblankerpage(@togo);
exit;


###############################

sub gracefulend {
	$mssg = $_[0];
	print <<eND;
<BR>There was a problem: $mssg.
</body>
</html>
eND
	exit;
}

sub printpage {
	my ($fl,$insert) = @_;
	chdir("/home12c/sub007/sc13648-GPVH/cp");
	open(DATA,"$fl") || open(DATA,"$fl") || gracefulend("There was a problem reading $fl");
	@lines = <DATA>;
	close(DATA);
	foreach (@lines) {
		s/INSERT/$insert/o;
		print;
	}
	exit;
}


sub printonblankerpage {
	@toprint = @_;
	chdir("/home12c/sub007/sc13648-GPVH/cp");
	open(DATA,"cgi-bin/shells/startshell.htm") || open(DATA,"cgi-bin/shells/startshell.htm")  || print "There was a problem reading shellpage: $!";

	@lines = <DATA>;
	close(DATA);
	$contentmarker = "<!--content-->";
	foreach (@lines) {
		if (m/$contentmarker/o) {
			print @toprint;
		}
		elsif (m/^body/) {
			$bgr = $roominfo{"bgr"};
			$bgg = $roominfo{"bgg"};
			$bgb = $roominfo{"bgb"};
			s/nd\-color\:\#ffff80/nd\-color\:rgb\($bgr,$bgg,$bgb\)/ if defined($roominfo{"bgr"});
			print;
		}
		else {
			print;
		}
	}
	exit;
}