#!/usr/bin/perl # Copyright 1994 David C. Kaplowitz All Rights Reserved # Permission is given to freely distribute and modify this product so long # as it is done without charge and so long as this Copyright text remains in # place. # Certain designs inherent may be copyrighted elsewhere. # David C. Kaplowitz 1994 # # This perl script does two fairly different things. First # if it is invoked with the environment variable PATH_INFO set # to "display" it prints itself. Otherwise it will return with this month # and year submitted to the cal program. #require "ctime.pl"; require "timelocal.pl"; &arraysetup; #for if zone is reported by ctime. #(($wday, $month_name, $mday, $time, $year) = split(/\s+/,&ctime(time))); #(($wday, $month_name, $mday, $time, $zone, $year) = split(/\s+/,&ctime(time))); #moved to localtime/timelocal ($sec, $min, $hours, $mday, $unixmonth, $unixyear, $wday, $yday, $isdst) = localtime(time); $month=$unixmonth + 1; if ($month < 10) {$month = "0" . $month;} if ($mday < 10) {$mday = "0" . $mday;} $year=$unixyear + 1900; $rtoday=$year . $month . $mday; $today=$rtoday; #Check to see if it is changed $gn_arg = $ENV{PATH_INFO}; # Get the argument from the URL if ($ENV{QUERY_STRING} =~ /^([0-9]?[0-9]?[0-9][0-9])([0-9][0-9])([0-9][0-9])/) { $nyear=$1; $nmonth=$2; $nmday=$3; if ($nyear > 1900) {$nyear-=1900;} $nmonth--; ($sec, $min, $hours, $mday, $unixmonth, $unixyear, $wday, $yday, $isdst) = localtime(timelocal($sec, $min, $hours, $nmday, $nmonth, $nyear,)); $month=$unixmonth + 1; if ($month < 10) {$month = "0" . $month;} if ($mday < 10) {$mday = "0" . $mday;} $year=$unixyear + 1900; $today=$year . $month . $mday; } #Set the week number if ($mday < 8) {$wnum="1st";} elsif ($mday < 15) {$wnum="2nd";} elsif ($mday < 22) {$wnum="3rd";} elsif ($mday < 28) {$wnum="4th";} else {$wnum="5th";} $where=`/bin/pwd`; chomp $where; @pathname=split(/\//,$where); if (-e "$where/BODY") { open (BODYFILE, "$where/BODY"); while () {$htmlbody = $_;} close(BODYFILE); } else {$htmlbody = "";} if (-e "$where/TITLE") { open (TITLEFILE, "$where/TITLE"); while () {$title = $_;} close(TITLEFILE); } else {$title=$pathname[$#pathname];} # Switch the following lines for static, as opposed to dynamic pages #open (INDEXFILE, "> index.html") || die "Can't open index.html: $!\n"; *INDEXFILE=*STDOUT; print INDEXFILE "Content-type: text/html\n\n"; print INDEXFILE < $title EOH print INDEXFILE "$htmlbody\n"; if ($title) {print INDEXFILE "

$title

\n";} # read in and get rid of the files that we don't normally serve: opendir(HERE, $where) || warn "Can't open $where: $!\n"; @files = grep(!/^\./, readdir HERE); closedir(HERE); @files = grep(!/~$/, @files); @files = grep(!/#$/, @files); @files = grep(!/^RCS/, @files); @files = grep(!/^CVS/, @files); @files = grep(!/^index/i, @files); @files = grep(!/^HEADER/, @files); @files = grep(!/^README/, @files); @files = grep(!/^BODY/, @files); @files = grep(!/^TITLE/, @files); @files = grep(!/^core/, @files); if (-e "$where/HEADER.html") { open (HEADER, "$where/HEADER.html"); while (

) {print INDEXFILE;} close(HEADER); } if (-e "$where/HEADER.shtml") { open (HEADER, "$where/HEADER.shtml"); while (

) { if ($_ =~ /^/) { open (INCLUDE, "$where/$1"); while () {print INDEXFILE ;} close(INCLUDE); } elsif ($_ =~ /^/) { open (INCLUDE, "$where/$1"); while () {print INDEXFILE ;} close(INCLUDE); } else {print INDEXFILE ;} } close(HEADER); } #seperate by type foreach $file (@files) { if ($file =~ /^(\d\d\d\d\d\d\d\d)/) { if ($1 < $today) {push(@past,$file);} else {push(@future,$file);} if ($file =~ /^$today/) {push(@today,$file);} } elsif ($file =~ /^X?X?XXXXXX-([^_]*)/) { if ($1 =~ /^$wnum-$wname[$wday]/) {push(@today,$file);} if ($1 =~ /^$wname[$wday]/) {push(@today,$file);} push(@regular,$file); } elsif ($file =~ /^X?X?XX[X\d][X\d]\d\d_/) { push(@regular,$file); } elsif ($file =~ /\d\d\d\d_Events$/) { push(@oldyear,$file); } else {push(@general,$file);} } print INDEXFILE "

\nTo set this page for a particular day, enter it below in the form of YYYYMMDD. \n"; print INDEXFILE "
"; if (defined @today) {print INDEXFILE " Today's Unique Events";} if (defined @general) {print INDEXFILE " General Information";} if (defined @regular) {print INDEXFILE " Regular Events";} if (defined @future) {print INDEXFILE " Upcoming Events";} if (defined @past) {print INDEXFILE " Past Events";} if (defined @oldyear) {print INDEXFILE " Years ago Event calendars";} print INDEXFILE "
\n"; if (defined @today) { if ($rtoday == $today) { print INDEXFILE "

Today's Scheduled Events:

\n"; } else { print INDEXFILE "

Events Scheduled for $today:

\n"; } &s_and_p("forward",@today); } if (defined @general) { print INDEXFILE "

General Information:

\n"; &s_and_p("forward",@general); } if (defined @regular) { print INDEXFILE "

Regular Events:"; if ($rtoday == $today) { print INDEXFILE " (Hint: Today is the $wnum $wname[$wday])

\n"; } else { print INDEXFILE "\n"; } &s_and_p("forward",@regular); } if (defined @future) { if ($rtoday == $today) { print INDEXFILE "

Upcoming Events: (Hint: Today is $today)

\n"; } else { print INDEXFILE "

Events after: $today

\n"; } &s_and_p("forward",@future); } if (defined @past) { if ($rtoday == $today) { print INDEXFILE "

Past Events: (Hint: Today is $today)

\n"; } else { print INDEXFILE "

Events before: $today

\n"; } &s_and_p("reverse",@past); } if (defined @oldyear) { print INDEXFILE "

Years ago Event calendars:

\n"; &s_and_p("reverse",@oldyear); } if (-e "$where/README.html") { print INDEXFILE "

\n"; open (README, "$where/README.html"); while () {print INDEXFILE ;} close(README); } if (-e "$where/README.shtml") { print INDEXFILE "

\n"; open (README, "$where/README.shtml"); while () { if ($_ =~ /^/) { open (INCLUDE, "$where/$1"); while () {print INDEXFILE ;} close(INCLUDE); } else {print INDEXFILE ;} } close(README); } print INDEXFILE "\n\n"; sub s_and_p { my($order,@filelist)=@_; my($file); print INDEXFILE "\n

$file\n"; } } else { foreach $file (sort @filelist) { print INDEXFILE "
$file\n"; } } print INDEXFILE "

\n"; } sub s_and_p_full { my($order,@filelist)=@_; my($file); print INDEXFILE "\n

$file\n"; } } else { foreach $file (sort @filelist) { print INDEXFILE "

$file\n"; if ($file !~ /html$/) {print INDEXFILE "

\n";}
         open(LISTFULL, "$where/$file") || warn "Can't open $where/$file: $!\n";
         while(){print INDEXFILE $_;}
         close(LISTFULL);
         if ($file !~ /html$/) {print INDEXFILE "

\n";} } } print INDEXFILE "

\n"; } sub arraysetup { my($i); $mo[0] ="Jan"; $mo[1] ="Feb"; $mo[2] ="Mar"; $mo[3] ="Apr"; $mo[4] ="May"; $mo[5] ="Jun"; $mo[6] ="Jul"; $mo[7] ="Aug"; $mo[8] ="Sep"; $mo[9] ="Oct"; $mo[10] ="Nov"; $mo[11] ="Dec"; $wname[0] ="Sunday"; $wname[1] ="Monday"; $wname[2] ="Tuesday"; $wname[3] ="Wednesday"; $wname[4] ="Thursday"; $wname[5] ="Friday"; $wname[6] ="Saturday"; for ($i=0;$i<=$#mo;$i++) { $om{$mo[$i]} = $i; if ($om{$mo[$i]} < 10) { $om{$mo[$i]}="0" . $om{$mo[$i]}; } } }