#!/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; $to = param("id"); $toname = param("name"); $heading = param("heading"); open(DATA,"cp/conversations/gcommlist.txt") || open(DATA,"cp/conversations/gcommlist.txt") || print "Problem with reading gcommlist: $!
\n"; CHECKLOOP: while ($checkid = ) { chomp($checkid); if ($checkid eq $id) { $fromname = ; chomp($fromname); last CHECKLOOP; } else { $temp = ; $temp = ; } } close(DATA); $heading = "$fromname/$toname" unless $heading; $subg = substr($time,0,3); open(DATA,">cp/conversations/$subg/f$time.htm") || open(DATA,">cp/conversations/$subg/f$time.htm") || print "couldn't start, subg is $subg: $!
\n"; print DATA qq~\n\n\n\n

\n~; print DATA qq~$heading

Started by: $fromname

To: $toname\n~; print DATA qq~\n~; print DATA qq~

You say (or do)\n~; print DATA qq~

\n~; print DATA qq~

\n~; close(DATA); if ($to eq "all" || $to eq "some") { open(DATA,"cp/conversations/gcommlist.txt") || open(DATA,"cp/conversations/gcommlist.txt") || print "Problem with reading gcommlist: $!
\n"; while ($checkid = ) { chomp($checkid); $p = param($checkid); push @toids, $checkid if ($to eq "all" || param($checkid) eq "on"); $temp = ; $temp = ; } push @toids, $id if ($to eq "some" && ! grep $_ eq $id, @toids); foreach (@toids) { open(DATA2,">>cp/conversations/people/$_.txt") || open(DATA2,">>cp/conversations/people/$_.txt") || print "Couldn't add to id file: $!
\n"; print DATA2 "f$time\n$heading\n$fromname/$to\nnone\n$time\n"; close(DATA2); } close(DATA); } else { open(DATA,">>cp/conversations/people/$id.txt") || open(DATA,">>cp/conversations/people/$id.txt") || print "Couldn't add to id file: $!
\n"; print DATA "f$time\n$heading\n$fromname/$toname\nnone\n$time\n"; close(DATA); if ($to ne $id) { open(DATA,">>cp/conversations/people/$to.txt") || open(DATA,">>cp/conversations/people/$to.txt") || print "Couldn't add to id file: $!
\n"; print DATA "f$time\n$heading\n$fromname/$toname\nnone\n$time\n"; close(DATA); } } open(DATA,">cp/conversations/convs/f$time.txt") || open(DATA,">cp/conversations/convs/f$time.txt") || print "Couldn't write conv file: $!
\n"; #####the following if to all is added 7/10 if ($to eq "all" || $to eq "some") { foreach (@toids) { print DATA "$_\n"; } } else { print DATA "$id\n"; print DATA "$to\n" unless $to eq $id; } close(DATA); push @togo, qq~\n~; push @togo, "starting a conversation between $toname and $fromname"; push @togo, "

start message"; push @togo, "

change heading"; push @togo, "

return"; printonblankerpage(@togo); sub printonblankerpage { @toprint = @_; chdir("/home12c/sub007/sc13648-GPVH/cp"); open(DATA,"cgi-bin/shells/startshell.htm") || open(DATA,"cgi-bin/shells/startshell.htm"); @lines = ; close(DATA); $contentmarker = ""; foreach (@lines) { if (m/$contentmarker/o) { print @toprint; } else { print; } } exit; }