#!/usr/bin/perl use CGI qw(:standard); print "Content-type: text/html\n\n" unless $ARGV[0] eq "bh"; $cookie = $ENV{"HTTP_COOKIE"}; $id = $1 if $cookie =~ m/cpid\=([^;,]+)/; $subfolder = substr($id,0,1); $time = time; chdir("/home12c/sub007/sc13648-GPVH/") || print "Couldn't change directory $!
\n"; #system "/home12c/sub007/sc13648-GPVH/cp/cgi-bin/rare/recordactivity.pl", $id, "Visiting Christina"; ($event = $ARGV[0]) || ($event = param("event")); open(DATA,"CPs/$subfolder/$id/chr.txt") || open(DATA,"CPs/$subfolder/$id/chr.txt"); while ($_ = ) { $info{$1} = $2 if m/^([^=]+)\=(.*)/; } close(DATA); $hl = $info{"hl"}; open(DATA,"CPs/$subfolder/$id/girl.txt") || open(DATA,"CPs/$subfolder/$id/girl.txt"); while ($_ = ) { $girlinfo{$1} = $2 if m/^([^=]+)\=(.*)/; } close(DATA); $name = $girlinfo{"name"}; push @togo, qq~Welcome, $name
\n~; $hyppic = $girlinfo{"hyppic"}; if ($hyppic=$girlinfo{"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)); push @togo, qq~~; } push @togo, qq~Decide on pictures for the hypnotist. Do this first~ unless $hyppic; push @togo, qq~

Explanation. Read this next.~; push @togo, qq~

First Induction. Includes safety cop.~; push @togo, qq~

General Inductions

~; if ($girlinfo{"doll"} eq "yes" || $name =~ m/doll/i) { push @togo, qq~

Being a Doll

~; } if ($girlinfo{"gender"} eq "female") { push @togo, qq~

Being Female

~; } if ($girlinfo{"age"} < 5) { push @togo, qq~

Age Play


Lose your ability to use long words.~; push @togo, qq~
Losing years and experience.~; push @togo, qq~
Clean and dry~; push @togo, qq~
relaxing (diaper)~; push @togo, qq~
eating safe foods~; push @togo, qq~
thumb sucking~; push @togo, qq~
being good~; push @togo, qq~
Learning. Transferring Youth Skills to other realities.~; push @togo, qq~
wearing a diaper when you are here.~; push @togo, qq~
trust. Being more trusting when you wear a diaper~; } if ($name eq "mai") { push @togo, qq~

Just mai

\n~; push @togo, qq~
Memory. Two stories for you to experience.~; push @togo, qq~
Memory. Story for you to experience.~; push @togo, qq~
English English as a second language.~; push @togo, qq~
Identity Pretty heavy suggestion about losing your old identity.~; push @togo, qq~
Identity Even heavier. Allows some "negotiation".~; push @togo, qq~
Body Image Discusses the male disguise you might have to wear sometimes.~; push @togo, qq~
Trigger See trigger~; push @togo, qq~
PleasureConnects your sexual pleasure to the harem girls~; push @togo, qq~
Write Write a hypnosis.~; push @togo, qq~
Making things right Finding happiness. Includes following rules and accepting punishments.~; push @togo, qq~
Night Visit Suggests I might give you a hypnoimagery while you are about to sleep or sleeping. Probably you should be experienced with my hypnoimageries before doing this one.~; push @togo, qq~
Imagine Jack in you~; push @togo, qq~
Harmony~; push @togo, qq~
Harmony & improving induction~; push @togo, qq~
Memory and body image (requires Harmony & improving induction)~; push @togo, qq~
An example of effects without hypnosis (but vicious)~; push @togo, qq~
Energy/Willpower Better energy, willpower, and happiness when you are an obedient harem girl.~; push @togo, qq~
Memories of outside the Harem If memories outside the harem are causing you pain, this helps you not have those memories only when you are in the harem.~; push @togo, qq~
Concentration Same as above -- good concentration if you have been obedient.~; push @togo, qq~
Happiness Same as the two above.~; push @togo, qq~
Sleep Practice your body awareness as you fall asleep in bed.~; push @togo, qq~
Energy/Willpower Better energy, willpower, and happiness when you are an obedient harem girl.~; push @togo, qq~
Crying II Suggests a crying episode.~; push @togo, qq~
Training Suggests that your unconscious will help you with training (outside of training) for the next few days.~; push @togo, qq~
Obedience Suggests that your unconscious will help train you to be obedient for the next few days.~; push @togo, qq~
emails Imagining emailing~; push @togo, qq~
Suggests writing a fantasy~; push @togo, qq~
Fantasy I Experience a story~; push @togo, qq~
Systematic Desensitization I to Jack's touch~ if $id eq "1171642486374"; push @togo, qq~
Systematic Desensitization II to Jack's touch~ if $id eq "1171642486374"; push @togo, qq~
Systematic Desensitization III going slower than II~ if $id eq "1171642486374"; push @togo, qq~
Systematic Desensitization IV continuing to go slow~ if $id eq "1171642486374"; } push @togo, qq~

Change pictures for the hypnotist. Not recommended.~ if $hyppic; printonblankerpage(@togo); exit; ################ sub printonblankerpage { @toprint = @_; chdir("/home12c/sub007/sc13648-GPVH/cp"); open(DATA,"cgi-bin/shells/chrvshell.htm") || open(DATA,"cgi-bin/shells/chrvshell.htm") || gracefulend("There was a problem reading body: $!"); @lines = ; close(DATA); $contentmarker = ""; 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 = ; close(DATA); foreach (@lines) { s/INSERT/$in/go; print; } exit; } sub savechangestochr { open(DATA,">CPs/$subfolder/$id/chr.txt") || open(DATA,">CPs/$subfolder/$id/chr.txt") || print "Problem writing to chr for some reason: $!"; @keys = keys(%info); foreach (@keys) { $i = $info{$_}; print DATA "$_=$i\n"; } close(DATA); return; }