#!/usr/bin/perl
use CGI qw(:standard);
print "Content-type: text/html\n\n" unless $ARGV[0] eq "bh";

$time = time;
chdir("/home12c/sub007/sc13648-GPVH/");

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

($event = $ARGV[0]) || ($event = param("event"));

open(DATA,"CPs/$subfolder/$id/girl.txt") || open(DATA,"CPs/$subfolder/$id/girl.txt");
while ($_ = <DATA>) {
	$girlinfo{$1} = $2 if m/^([^=]+)\=(.*)/;
}

close(DATA);
$name = $girlinfo{"name"};
$gender = $girlinfo{"gender"};


push @togo, qq~<p><a href=/cgi-bin/veryrare/creatorqsg.pl?fl=trainsg.txt;start=startaf;cat=gentrain;target=$name>Your Basic Training</a>~ if (open(DATA,"CPs/$subfolder/$id/gentrain.txt") && close(DATA));
push @togo, qq~<br><a href=/cgi-bin/veryrare/creatorqsg.pl?fl=trainsg.txt;start=startaf;phr=shaping;target=$name>Training to like training & hypnosis</a>~;
push @togo, qq~<br><a href=/cgi-bin/creatorh.pl?fl=hyp13.txt;start=d1 target=_top>Body Image V (hypnoimagery)</a>~ if $info{"haspics"} eq "yes";

if ($girlinfo{"sfbrole"} eq "cow") {
	push @togo, qq~<br><a href=/cgi-bin/creatorh.pl?fl=newhyps.txt;start=z1 target=_top>cow (hypnoimagery)</a>~;
	push @togo, qq~<br><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=cow>cow training</a>~;
	push @togo, qq~<br><a href=/cgi-bin/creatorh.pl?fl=newhyps.txt;start=z1 target=_top>cow memory (hypnoimagery)</a>~;
}
elsif ($girlinfo{"sfbrole"} eq "master") {
	push @togo, qq~<br><a href=/cgi-bin/creatorh.pl?fl=newhyps.txt;start=b1 target=_top>getting power (hypnoimagery)</a>~;
	push @togo, qq~<br><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=master>training for Master or Mistress</a>~;
}
elsif ($girlinfo{"sfbrole"} eq "care") {
	push @togo, qq~<br><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=master>training for caretaker</a>~;
}

elsif ($girlinfo{"sfbrole"} eq "femslave") {
	push @togo, qq~<h3>Training for Females</h3><ul>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=needself>Typical Female Needs</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=female>Interacting with Males</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=SL$name;fl=trainsg.txt;start=startaf;phr=patriarch>Interacting with Males II (SL)</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=sharefeelings>Sharing Feelings</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatoraf.pl?target=$name;fl=trainsg.txt;start=startaf;phr=affirmation>Attractiveness training</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=ofwomen>old-fashioned woman</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=feelings>showing emotions</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=noconflict>avoiding conflict</a></li>~;
	push @togo, qq~</ul>~;
}

push @togo, qq~<h3>Things based on lists you have made</h3><ul>~;
push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?fl=trainsg.txt;start=startaf;cat=likes;target=$name>Training (likes)</a></li>~ if (open(DATA,"CPs/$subfolder/$id/likes.txt") && close(DATA));

push @togo, qq~<li><a href=/cgi-bin/rare2/controlhyptrigger.pl?file=newhyp1;letter=a;event=start>Hypnosis (trigger)</a></li>~ if open(DATA,"CPs/$subfolder/$id/trigger.txt") && close(DATA);
push @togo, qq~<li><a href=/cgi-bin/rare2/controlhyptrigger.pl?file=newhyp1;letter=c;event=start>Hypnosis (likes)</a></li>~ if open(DATA,"CPs/$subfolder/$id/likes.txt") && close(DATA);
push @togo, qq~<li><a href=/cgi-bin/rare2/controlhyptrigger.pl?file=newhyp1;letter=b;event=start>Hypnosis (dislikes)</a></li>~ if open(DATA,"CPs/$subfolder/$id/dislikes.txt") && close(DATA);
push @togo, qq~<li><a href=/cgi-bin/rare2/controlhyptrigger.pl?file=newhyp1;letter=d;event=start;store=limitations>Hypnosis (limits)</a></li>~ if (open(DATA,"CPs/$subfolder/$id/limitations.txt") && close(DATA) );
push @togo, qq~<li><a href=/cgi-bin/rare2/controlhyptrigger.pl?file=newhyp1;letter=e;event=start;store=limitations>Hypnosis (limits II)</a></li>~ if open(DATA,"CPs/$subfolder/$id/limitations.txt") && close(DATA) && open(DATA,"CPs/$subfolder/$id/badthings.txt") && close(DATA);
push @togo, qq~<li><a href=/cgi-bin/rare2/controlhyptrigger.pl?file=newhyp1;letter=g;event=start>Hypnosis (your body)</a></li>~ if open(DATA,"CPs/$subfolder/$id/limitations.txt") && close(DATA) && open(DATA,"CPs/$subfolder/$id/looks.txt") && close(DATA);
push @togo, qq~<li><a href=/cgi-bin/rare2/controlhyptrigger.pl?file=newhyp1;letter=f;event=start;store=fears>Hypnosis (fears)</a></li>~ if open(DATA,"CPs/$subfolder/$id/limitations.txt") && close(DATA) && open(DATA,"CPs/$subfolder/$id/looks.txt") && close(DATA);
push @togo, qq~</ul>~;

if ($name eq "mai") {
	push @togo, qq~<h3>Just for mai</h3><ul>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?fl=trainsg.txt;start=startaf;phr=self2;target=$name>self-identity (mai)</a></li>~ if $name eq "mai";
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?fl=trainsg.txt;start=startaf;phr=self3;target=$name>more self-identity (mai)</a></li>~ if $name eq "mai";
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=mai1>basic training for mai</a></li>~ if $name eq "mai";
	push @togo, qq~</ul>~;
}

if ($gender eq "female") {
	push @togo, qq~<h3>Training for Females</h3><ul>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;ty=allfemale>General (all topics)</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=needself>Typical Female Needs</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=female>Interacting with Males</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=patriarch>Interacting with Males II (SL)</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=getbf>Needing Males</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=sharefeelings>Sharing Feelings</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatoraf.pl?target=$name;fl=trainsg.txt;start=startaf;phr=affirmation>Being attractive</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatoraf.pl?target=$name;fl=trainsg.txt;start=startaf;phr=affirmationmale>Being attractive to males</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=ofwomen>old-fashioned woman</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=feelings>showing emotions</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=guy1>Being with Men</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=guy2>A Little Physical with Men</a></li>~;
	push @togo, qq~<li><a href=/cgi-bin/veryrare/creatorqsg.pl?target=$name;fl=trainsg.txt;start=startaf;phr=noconflict>avoiding conflict</a></li>~;
	push @togo, qq~</ul>~;
}


		
printonblankerpage(@togo);
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;
		}
		else {
			print;
		}
	}
	exit;
}

sub printpage {
	my ($fl, $in) = @_;
	chdir("/home12c/sub007/sc13648-GPVH/cp");
	exec "cgi-bin/main.pl" if $fl eq "page" || $fl eq "ownpage";
	open(DATA,"$fl") || open(DATA,"$fl") || gracefulend("There was a problem reading $fl");
	@lines = <DATA>;
	close(DATA);
	foreach (@lines) {
		s/INSERT/$in/go;
		print;
	}
	exit;
}