#!/usr/bin/perl use CGI qw(:standard); print <\n"; $time = time; $cookieid = "cpid"; $cookie = $ENV{"HTTP_COOKIE"}; $cookie =~ m/$cookieid\=([^;]+)/; $id = $1; exit unless $id; open(DATA,"cp/conversations/gcommlist.txt") || open(DATA,"conversations/gcommlist.txt") || print "Problem with geading gcommlist: $!
\n"; $i = 0; while ($id[$i] = ) { chomp($id[$i]); $found = "yes" if $id[$i] eq $id; $name[$i] = ; chomp($name[$i]); $house[$i] = ; $i++; } close(DATA); unless ($found eq "yes") { push @togo, qq~
Enroll in New HouseMail~; printonblankerpage(@togo); } if (param("event") eq "some") { push @togo, qq~

~; push @togo, qq~Click on the people you want to include in your housemail.~; PUBLISHLOOP2: for ($i=0;$i < @house;$i++) { $name = $name[$i]; push @togo, qq~ $name
~; } push @togo, qq~~; printonblankerpage(@togo); } push @togo, qq~Click on a name to start a conversation.~; push @togo, qq~
all (everyone)~; push @togo, qq~
some (more than one person but not everyone)
~; PUBLISHLOOP: for ($i=0;$i < @house;$i++) { $name = $name[$i]; push @togo, qq~
$name~; } push @togo, qq~

\n\n~; 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 = ; close(DATA); $contentmarker = ""; foreach (@lines) { if (m/$contentmarker/o) { print @toprint; } else { print; } } exit; }