#!/usr/local/bin/perl
require "/home/roger/lib/weblib.lib";
use POSIX "strftime";
$timestamp=strftime("%A %B %d, %Y %X GMT",gmtime(time));
&htmlopen("Get Well Jesse!|","author=Roger Linder");
$private=&getcookie(JesseGress);
$private="" unless $private eq "that's me!";
if(!$private){
&ReadParse;
if($in{Message}){
	$in{Name}=~s/</&lt;/g;
	$in{Message}=~s/</&lt;/g;
	$value="<b>$timestamp</b><br>\n<i>";
	$value.=$in{Name}?$in{Name}:"Anonymous";
	$value.="</i><br>\n$in{Message}\n<hr>\n";
	open(FILE,">>/home/todd/jesse/public");
	open(FILE2,">>/home/todd/jesse/private");
	print FILE $value if $in{Visibility} == 1;
	print FILE2 $value;
	close(FILE);
	close(FILE2);
}
}
print <<EOF;
<center>
<table>
<caption><h1>Get Well Jesse!</h1></caption>
<tr>
<td width=150>Todd's fans want to let you know that we are thinking of you -- and wishing you a speedy recovery so we can hear more of your amazing guitar work very soon!</td>
<td align="center">
<table border=10 bordercolor=gold>
<tr><td>
<IMG SRC="/~todd/pictures/getwelljesse.jpg"
 ALT="Get Well Jesse!" WIDTH="320" HEIGHT="240"><br>
Photo by "Chef" Norm Stevens, The Edge, Palo Alto, CA<br>
<center><i>Used by permission</i></center>
</td></tr></table>
</td></tr></table>
</center>
EOF
print <<EOF unless $private;
<form action=$weblib::URL method=POST>
<table>
<tr><td colspan=2 bgcolor="gold">
<b>March 15, 1999</b><p>
Send your get well wishes to Jesse Gress! He
recently fell and broke his hip, and is expected to be laid up for several
weeks. Check back frequently to see other well-wishers' messages and updates
on his condition.<hr>
<b>March 19, 1999</b><p>
Jesse's surgeon took more x-rays of his hip the other day. It looked good 
- everything was in place. They took the staples out of his incision. So 
far so good!  He should be off his crutches in four more weeks!  Sounds 
like he really appreciates all the Get Well wishes and sentiments 
& sends his heartfelt thanks!!<hr>
<b>April 15, 1999</b><p>
Jesse asked that I get a message out to all of you.  He went back to 
his surgeon yesterday - more xrays - everything looked great! He's off 
the crutches and can now put some weight on his leg and walk around with 
one crutch. He'll get a more personal message out to everyone soon but he 
wanted you to have an update. He appreciates everyone's well wishes and 
cards (a lot). Thanks so much!
<P>
Personally, I have no doubt that the page on Roger's site with everyone's 
greetings and well wishes have no doubt speeded Jesse's recovery -- 
thanks (from me) for all the support too!
<hr>
<b>May 25, 1999</b><p>
This is a special note from Jesse to all who posted messages on Roger 
L.'s site (and to Roger himself for creating it!!).
<p>
<blockquote>My heartfelt thanks for all of your get well wished and messages. See 
yez 
in June.  Peace and Love, Jesse</blockquote>
<p>
He's doing much better & pumped for the 'mini-tour'!!
</td></tr>
<tr>
<th>Your name</th>
<td><input name=Name size=40><td>
</tr>
<tr>
<th>Your message to Jesse</th>
<td><textarea name=Message cols=40 rows=5 wrap=hard></textarea></td>
<tr><td colspan=2>
<input type=radio name=Visibility value=1 checked>Let my greetings be visible to the world!<br>
<input type=radio name=Visibility value=2>I'd prefer that only Jesse sees my message<p>
<input type=submit value="Get Well Soon!">
</td></tr>
</table>
</form>
<hr>
EOF
if($private){open(FILE,"/home/todd/jesse/private");}
else{open(FILE,"/home/todd/jesse/public");}
print <FILE>;
close(FILE);
print <<EOF;
<img src=/~todd/pictures/linderlogotiny.gif align=left>
Brought to you by
<a href=http://www.rocemabra.com/roger>Roger D. Linder</a>
(<a href=mailto:roger\@rocemabra.com>roger\@rocemabra.com</a>)
& <a href=http://www.rocemabra.com/roger/demos/rcmb.html>Rocemabra Web Design Services</a>
EOF
&htmlclose;