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

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

chdir("/home12c/sub007/sc13648-GPVH/") || print "Couldn't change directory $!<BR>\n";
$cookie = $ENV{"HTTP_COOKIE"};
$id = $1 if $cookie =~ m/cpid\=([^;,]+)/;
$subfolder = substr($id,0,1);

$event = param("event");

open(DATA,"CPs/$subfolder/$id/girl.txt") || open(DATA,"CPs/$subfolder/$id/girl.txt") || print "problem reading" ;
@lines = <DATA>;
close(DATA);
foreach (@lines) {
	$info{$1} = $2 if m/^([^=]+)\=(.*)/;
}

$name = $info{"name"};
if ($event eq "start") {


	$file = param("file");
	$letter = param("letter");
	$number = "1";
	$fl = "cp/t/$file/$letter" . "1.htm";
	open(DATA, $fl);
	@lines = <DATA>;
	close(DATA);

	if ($store = param("store")) {
		open(DATA,"CPs/$subfolder/$id/$store.txt");
		@phrases = <DATA>;
		close(DATA);
		$r=int(rand(@phrases));
		$phrase = $phrases[$r];
		open(DATA,">CPs/$subfolder/$id/hypstore.txt");
		print DATA $phrase;
		close(DATA);
	}
	printpage(@lines);
}

elsif ($event eq "continue") {
	$file = param("fl");
	$letter = param("letter");
	$number = param("number");
	open(DATA, "cp/t/$file/$letter$number.htm") || print "Couldn't open file /cp/t/$file/$letter$number.htm : $!<BR>\n" ;
	@lines = <DATA>;
	close(DATA);
	$number++;
	printpage(@lines);
}


sub printpage {
	foreach (@lines) {
		if (m/TRIGGER/) {
			open(DATA,"CPs/$subfolder/$id/triggers.txt");
			@phrases = <DATA>;
			close(DATA);
			$r=int(rand(@phrases));
			$phrase = $phrases[$r];
			s/TRIGGER/$phrase/g;
		}
		elsif (m/DISLIKE/) {
			open(DATA,"CPs/$subfolder/$id/dislikes.txt");
			@phrases = <DATA>;
			close(DATA);
			$r=int(rand(@phrases));
			$phrase = $phrases[$r];
			s/DISLIKE/$phrase/g;
		}
		elsif (m/LIKE/) {
			open(DATA,"CPs/$subfolder/$id/likes.txt");
			@phrases = <DATA>;
			close(DATA);
			$r=int(rand(@phrases));
			$phrase = $phrases[$r];
			s/LIKE/$phrase/g;
		}
		elsif (m/LIMITATION/) {
			open(DATA,"CPs/$subfolder/$id/hypstore.txt");
			$phrase = <DATA>;
			close(DATA);
			s/LIMITATION/$phrase/g;
		}
		if (m/BADTHING/) {
			open(DATA,"CPs/$subfolder/$id/badthings.txt");
			@phrases = <DATA>;
			close(DATA);
			$r=int(rand(@phrases));
			$phrase = $phrases[$r];
			s/BADTHING/$phrase/g;
		}
		if (m/FEAR/) {
			open(DATA,"CPs/$subfolder/$id/fears.txt");
			@phrases = <DATA>;
			close(DATA);
			$r=int(rand(@phrases));
			$phrase = $phrases[$r];
			s/FEAR/$phrase/g;
		}
		if (m/^.img src..images.images.e/) {
			$hyppic = $info{"hyppic"};
			opendir(DATA,"/home12c/sub007/sc13648-GPVH/cp/images/images/$hyppic");
			@filenms = readdir(DATA);
			closedir(DATA);
			@filenms = grep m/\w\./, @filenms;
			$r = int(rand(@filenms));
			$_ = qq~<img src=/images/images/$hyppic/$filenms[$r] align=right class=picture>~;
		}
#<img src=/images/images/e2/iface2235736is.jpg align=right class=picture>
		s/NAME/$name/;
		s/\/t\/[^.]+\.htm/\/cgi-bin\/rare2\/controlhyptrigger.pl?event=continue;fl=$file;letter=$letter;number=$number/;
		print;
	}
	exit;
}