#!/usr/bin/perl $color{F}="ff4444"; $color{R}="00aa88"; $color{C}="eeee00"; $color{E}="0000ff"; $mon{JANUARY}="01"; $mon{FEBRUARY}="02"; $mon{MARCH}="03"; $mon{APRIL}="04"; $mon{MAY}="05"; $mon{JUNE}="06"; $mon{JULY}="07"; $mon{AUGUST}="08"; $mon{SEPTEMBER}="09"; $mon{OCTOBER}="10"; $mon{NOVEMBER}="11"; $mon{DECEMBER}="12"; @mon=("", "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPEMBER","OCTOBER","NOVEMBER","DECEMBER"); @datetime=localtime(time); $monimplant=''; $dayimplant=''; if($datetime[4]+1 < 10) { $monimplant='0'; } if($datetime[3]<10) { $dayimplant='0'; } $today=join('', ($datetime[5]+1900),$monimplant,($datetime[4]+1),$dayimplant,($datetime[3])); $thisyear=substr $today,0,4; $thismonth=substr $today,4,2; $thisday=substr $today,6,2; #get the query string if($ENV{REQUEST_METHOD} eq 'GET') { $query=$ENV{QUERY_STRING}; } if($ENV{REQUEST_METHOD} eq 'POST') { read(STDIN,$query,$ENV{CONTENT_LENGTH}); } ##### set defalt values ##### $var{year}=$thisyear; ##### decode query ######### if (defined($query)) { @list=split('&', $query); foreach (@list) { my ($key,$value) = split /=/; $var{$key}=$value; $var{$key}=~s/\+/ /g; $var{$key}=~ s/%(..)/chr(hex($1))/ge ; } } if(defined($var{edit})) { $var{whichcalendar}=$var{edit}; } sub dayofweek { ######################################################### ## This program takes a year month and day and returns ## ## the day of the week ## ######################################################### ($year,$month,$day)=@_; # ie. 1990 or 2008 # ie. JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC # ie. 29 or 1 if($month eq "JAN" or $month eq "FEB") { $year--; } $y=substr $year, -2; $c=substr $year, 0,2; #### c=century $m{MAR}=1; ## thats the way uhhu uhhu i like it! $m{APR}=2; $m{MAY}=3; $m{JUN}=4; $m{JUL}=5; $m{AUG}=6; $m{SEP}=7; $m{OCT}=8; $m{NOV}=9; $m{DEC}=10; $m{JAN}=11; $m{FEB}=12; $w=($day + int(2.6*$m{uc $month} -.2) -2*$c +$y + int($y/4) +int($c/4)); $w=$w%7; $wday{1}="MONDAY"; $wday{2}="TEUSDAY"; $wday{3}="WEDNESDAY"; $wday{4}="THURSDAY"; $wday{5}="FRIDAY"; $wday{6}="SATURDAY"; $wday{0}="SUNDAY"; return($wday{$w}); } ############## make web page ################ print("Content-type: text/html\n\n"); print'HiRes CALENDAR'; print ''; ################ Help Bar ######################### open(HELP, ") { chomp; if(!($_=~m/calendar/)or !($_=~m/href/)) { print"$_"; } elsif($_ =~m/calendar/)#make calendar link red { ($first,$second)=split('>',$_); print"$first >$second >"; } } close(HELP); ################################# HINTS print"

Did you know? You can add a comment to multiple calendar dates

"; print'
'; print''; print"\n"; if(defined($var{whichcalendar})) { my $month=substr $var{whichcalendar}, -6,2; my $year=substr $var{whichcalendar},0,4; if($month>1) { $premonth=$month-1; $preyear=$year; if($premonth<10) { $premonth="0$premonth"; } } else { $premonth=12; $preyear=$year-1; } if($month <12) { $postmonth=$month+1; if($postmonth<10) { $postmonth="0$postmonth"; } $postyear=$year; } else { $postmonth="01"; $postyear=$year+1; }########## all that crazy stuff was to makek a month++ and a month-- button print"

previous month<--- --->"; print"next month

"; } if(!defined($var{function})) { print''; system"ls calendar/*.cal > junk"; open(CAL, ") { chomp; $_=substr $_, 9; #($date, $junk)=split('.',$_); ($y, $m)=split('-', $_); $m=substr $m, 0,-4; #$month--; if($y == $var{year}) { print"$months[$m] $y
"; } } close(CAL); print"\n"; print"
\n"; $preyear=$var{year}-1; $postyear=$var{year}+1; print"The selected year is $var{year}. To change the year, see below.
\n"; print"<-$var{year}->\n"; print"
"; } if($var{function} eq "SAVE") { if(defined($var{calinfo})) { $found=0; open(CAL, "junk"); foreach() { if(($_ =~ m/calday=$var{calday}/) and ($_ =~ m/ALIGN=BOTTOM/) and !$found) { $found=1; print TMP $_; $end=substr $var{calinfo}, -2; if($end !~ "\n") ## this adds a carriage return if none found { $var{calinfo}="$var{calinfo}\n"; } print TMP "$var{calinfo}"; } elsif(($_ =~ m/calday=$var{calday}/) and $found) { $found=0; print TMP $_; } elsif(!$found) { print TMP "$_"; } } close(CAL); close(TPM); system"cp junk calendar/$var{edit}"; } $var{function}="view"; $var{whichcalendar}=$var{edit}; } if($var{function} eq "view") { open(CALND, ") #and print it out { print"$_"; } close(CALND); } if($var{function} eq "multiple") { print"Space is limited - keep notes short, concise, and brief.

Avoid repeats, redundancies, repetitions, or excess, unnecessary wording. Thank you.

"; print""; print""; print"

This function allows you to add a message to multiple dates:

"; print"Begin date(inclusive):"; print""; print""; print"End date(inclusive):"; print""; print""; print"
"; print" to the calendar."; print" phrase from the calendar."; print""; } if($var{function} eq "ADD") { @calendars=split("\n",`ls calendar/*.cal`); foreach(@calendars) { $y=substr $_, 9,4; $m=substr $_, 14,2; if($y<=$var{endyear} and $y>=$var{begyear} and $m<=$var{endmonth} and $m>=$var{begmonth}) { open(CALN, "<$_"); open(TMP, ">junk"); foreach() { $thiscalday=substr $_,-5,3; if($_ =~ m/TOP/ and $_ !~ m/calday/) { print"$_"; print TMP "$_"; @junk=split(">",$_); $calday=substr $junk[0],-3; #this stuff will help in a minute $DATE=$junk[3]; #to figure out where we are in the ($DATE,$junk)=split("<", $DATE); #calendar ($dt,$dy)=split(" ", $DATE); # $day{$calday}=$dy; # $date{$calday}=$dt; # } elsif($_ =~ m/ALIGN=BOTTOM/ and $date{$thiscalday} ne "") { if( ($m == $var{begmonth} and $date{$thiscalday}<$var{begdate}) or ($m == $var{endmonth} and $date{$thiscalday}>$var{enddate}) ) ### places where we dont want multical info { print"$_"; print TMP "$_"; } else #### places where we do want multical info { print"$_"; print"$var{multical}\n"; print TMP "$_"; print TMP "$var{multical}\n"; (@junk,$end)=split("calday",$_); $calday=substr $end, 0,3; } } else { print"$_"; print TMP "$_"; } } ##### need to do more stuff here close(CALN); close(TMP); system "cp junk $_"; } } } if($var{function} eq "DELETE") { @calendars=split("\n",`ls calendar/*.cal`); foreach(@calendars) { $y=substr $_, 9,4; $m=substr $_, 14,2; if($y<=$var{endyear} and $y>=$var{begyear} and $m<=$var{endmonth} and $m>=$var{begmonth}) { $found=0; open(CALN, "<$_"); open(TMP, ">junk"); foreach() { $thiscalday=substr $_,-5,3; if($_ =~ m/ALIGN=TOP/ and $_ !~ m/calday/) { print"$_"; print TMP "$_"; @junk=split(">",$_); $calday=substr $junk[0],-3; #this stuff will help in a minute $DATE=$junk[3]; #to figure out where we are in the ($DATE,$junk)=split("<", $DATE); #calendar ($dt,$dy)=split(" ", $DATE); # $day{$calday}=$dy; # $date{$calday}=$dt; # } elsif($_ =~ m/ALIGN=BOTTOM/ and $date{$thiscalday} ne "") { if( ($m == $var{begmonth} and $date{$thiscalday}<$var{begdate}) or ($m == $var{endmonth} and $date{$thiscalday}>$var{enddate}) ) ### places where we dont want multical info { print"$_"; print TMP "$_"; } else #### places where we do want multical info { $found=1; print"$_"; print TMP "$_"; (@junk,$end)=split("calday",$_); $calday=substr $end, 0,3; } } elsif($_=~ m/calday=/) { print"$_"; print TMP "$_"; $found=0; } elsif($found) { if($_ !~ m//) { $_ =~ s/$var{multical}//; } print"$_"; print TMP "$_"; } else { print"$_"; print TMP "$_"; } } ##### need to do more stuff here close(CALN); close(TMP); system "cp junk $_"; } } } if($var{function} eq "edit") { $found=0; open(CALN, ") { if( ($_ !~ /INPUT/) and ($_ !~ /FORM/) ) { if($found and ($_ !~m/calday=$var{calday}/)) { print"$_"; } elsif( ($_ =~m/calday=$var{calday}/) and !$found ) { $found=1; print"$_"; print"
\n"; print"\n"; print"\n"; print"\n"; print""; print"\n"; ############# } else { print"$_"; } } } close(CALN); } if(defined($var{whichcalendar})) #### at the end { my $month=substr $var{whichcalendar}, -6,2; my $year=substr $var{whichcalendar},0,4; if($month>1) { $premonth=$month-1; $preyear=$year; if($premonth<10) { $premonth="0$premonth"; } } else { $premonth=12; $preyear=$year-1; } if($month <12) { $postmonth=$month+1; if($postmonth<10) { $postmonth="0$postmonth"; } $postyear=$year; } else { $postmonth="01"; $postyear=$year+1; } print"

previous calendar<--- --->"; print"next calendar

"; }