#!/usr/local/bin/perl
require "/home/roger/lib/weblib.lib";
require "timelocal.pl";
@festtime=(0,0,0,12,9,99);
@deadline=(0,0,0,12,9,99);
$BODYENHANCE=" background=/~todd/pictures/background/grokfade.gif";
&htmlopen("1st International Virtual Todd Fest -IVTF1|");
&defuser("roger\@water.ca.gov","136.200.128.154","63.92.20.64);
&webmail("roger\@rocemabra.com","IVTF1");
print <<EOF;
<center><i>Here we are again...</center></i><p>
Watch this page for the latest information on the 1st International Virtual
Todd Fest. It's still in the earliest planning stages, but you're welcome
to pass along any suggestions to us at
<a href=mailto:toddfest\@rocemabra.com>toddfest\@rocemabra.com</a>. The organizers
are Roger Linder and Cathy Lee Brandstetter.
<p>
The plan is to put on a 2-3 day online fest, with interaction via IRC, E-mail,
web pages, CU-SeeMe and audio. And we hope to involve non-connected people
as well. All Todd Rundgren fans are welcome!
<p>
<img src=/~todd/pictures/trrl.jpg align=left>Send us your
Me 'n' Todd pictures! Address them
to <a href=mailto:roger\@rocemabra.com>roger\@rocemabra.com</a>.
<br clear=left>
<p>
<center><i>...and there's always more</i></center>
<hr>
For history buffs...
<ul>
<li><a href=/todd/toddfest95>ToddFest/West '95</a>
<li><a href=/todd/toddfest96>ToddFest/West '96</a>
</ul>
EOF
#if((time>&timelocal(@festtime)&&time<&timelocal(@deadline))||$ENV{PATH_INFO} =~ m#/news#){
	#print <<EOF;
#Drop us a line at
#<a href=mailto:toddfest\@rocemabra.com>toddfest\@rocemabra.com</a>
#and <a href=/~todd/mail/toddfest/maillist.html>see what other greetings</a>
#have arrived as well.
#EOF
#}
if(time>&timelocal(@festtime)||$ENV{PATH_INFO} =~ m#/news#){
print <<EOF;
<h2>1st International Virtual Todd Fest Live Reports</h2>
EOF
$FESTDIR="/home/todd/www/toddfest/festnews";
if($in{News}){
	$in{News}=~s/\r//g;
	($sec,$min,$hour,$day,$mon,$year)=localtime(time-7200);
	$t=sprintf("%d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$day,$hour,$min,$sec);
	open(NEWS,">$FESTDIR/news$t");
	print NEWS $in{News};
	close(NEWS);
}
if($ENV{PATH_INFO} =~ m#/news#){
print <<EOF;
<form action=$weblib::URL method=POST>
<textarea name=News wrap=hard rows=20 cols=70></textarea><br>
<input type=submit>
</form>
EOF
}
opendir(FESTNEWS,$FESTDIR);
while($f=readdir(FESTNEWS)){
next if $f =~ /^\./;
@stat=stat("$FESTDIR/$f");
($sec,$min,$hour,$day,$mon,$year)=localtime($stat[9]-7200);
$lm=sprintf("%s %d, %s %d:%02d PDT",
	(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon],$day,$year+1900,
	$hour,$min);
open(F,"$FESTDIR/$f");
print "<h5>$lm</h5>\n";
while(<F>){
print;
print "<p>\n" if /^$/;
}
print "<hr>\n";
}
print "<br>";
}
&htmlclose;