ADD Dates to the schedule

#!/usr/bin/perl @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])); $var{year}=substr $today,0,4; #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}); } $query=~s/\+/ /g; $query=~ s/%(..)/chr(hex($1))/ge ; #decode query string into variable list ##### set defalt values ##### ##### get query ######### if (defined($query)) { @list=split('&', $query); foreach (@list) { my ($key,$value) = split /=/; $var{$key}=$value; } } sub datediff { ($date1,$date2)=@_; $day1=substr $date1, 6,2; $day2=substr $date2, 6,2; $mon1=substr $date1, 4,2; $mon2=substr $date2, 4,2; $yr1=substr $date1, 0,4; $yr2=substr $date2, 0,4; system "../private/julian/j.run $yr1 $mon1 $day1 0 0 0 > junk"; open(TIME, "; $jday1=; $jday1=substr $jday1, 5; close(TIME); system "../private/julian/j.run $yr2 $mon2 $day2 0 0 0 > junk"; open(TIME, "; $jday2=; $jday2=substr $jday2, 5; close(TIME); $daydiff=$jday1-$jday2; return($daydiff) } print"Content-type: text/html\n\n"; print"ADD Dates to the schedule"; print""; ################ ### help bar ### ################ open(HELP, ") { chomp; if(!($_=~m/newdate/)or !($_=~m/href/)) { print"$_"; } elsif($_ =~m/newdate/) { ($first,$second)=split('>',$_); print"$first >$second >"; } } close(HELP); print'

'; ######################################### ###### initial web page ################# ######################################### if(!defined($var{run})) { print('

'); # print('

'); #print(''); print('

Password	'); print(`ls ../private/runs > junk`); print("
Choose a run by its starting date:	"); open(RUN, ") { chomp; $thisyear=substr $_,0,4; $startrun=substr $_,0,8; $endrun=substr $_,9,8; if($thisyear == $var{year}) { $yy1=substr $_,0,4; $mm1=substr $_,4,2; $dd1=substr $_,6,2; $yy2=substr $_,9,4; $mm2=substr $_,13,2; $dd2=substr $_,15,2; $ym1=join('',$yy1,$mm1); $ym2=join('',$yy2,$mm2); print'',"$yy1/$mm1/$dd1-$yy2/$mm2/$dd2"; if(((substr $today,0,4)eq $yy1)or((substr $today,0,4)eq $yy2)) { if(($today<=$endrun)and($today>=$startrun)) { print' - Current run!'; } $todayym=substr $today,0,6; if(($today<$startrun)and($today>$lastendrun)and(($ym1 == $todayym)or($ym1==$todayym+1))) { print' -up coming run!'; } } $lastendrun=$endrun; print' '; } } close(RUN); print('
'); # print('	HiRes 1 '); # print('HiRes 2

'); print'

'; print''; print''; print''; print"<-$var{year}->"; print''; print''; print''; print"

------------------------------------------

The selected year is $var{year}

If you would like to choose a different year please enter it below

"; print''; } ######################################################### ######## look at the run, mabey choose to edit ########## ######################################################### if((defined($var{run}))and(!defined($var{edit}))and($var{day} ne "new")and(!defined($var{drop}))) { ##################################### ####### add a date to the run ####### ##################################### if(defined($var{add})) { print"

"; $found=0; open(RUN, "<../private/runs/$var{run}"); open(NEW, ">runtmp$$"); foreach() { chomp; ($date,$moonlt,$moonut,$length,$jday,$hi1,$hi2,$hi3,$comm)=split('#',$_); if(($date>$var{day})and(!$found)) { $found=1; print NEW "$var{day}#$var{moonlt}#$var{moonut}#$var{length}#$var{jday}####$var{comment}\n"; } print NEW "$_\n"; } if(!$found) { print NEW "$var{day}#$var{moonlt}#$var{moonut}#$var{length}#$var{jday}####$var{comment}\n"; } close(NEW); close(RUN); system "mv runtmp$$ ../private/runs/$var{run}"; print"

"; } ################################### ##### Drop a date from the run #### ################################### # if(defined($var{sure})) # { # open(RUN, "<../private/runs/$var{run}"); # open(NEW, ">junk"); # foreach() # { # chomp; # ($date,$moonlt,$moonut,$length,$jday,$hi1,$hi2,$hi3,$comm)=split('#',$_); # if($date != $var{day}) # { # print NEW "$date#$moonlt#$moonut#$length#$jday#$hi1#$hi2#$hi3#$comm\n"; # } # } # close(NEW); # close(RUN); # system "mv junk runs/$var{run}"; # } ############################# ### edit the run ############ ############################# if(defined($var{changed})) { open(RUN, "<../private/runs/$var{run}"); open(NEW, ">runtmp$$"); foreach() { chomp; ($date,$moonlt,$moonut,$length,$jday,$hi1,$hi2,$hi3,$comm)=split('#',$_); if($date != $var{day}) { print NEW "$_\n"; } elsif($date == $var{day}) { print NEW "$var{date}#$var{moonlt}#$var{moonut}#$var{length}#$var{jday}#$var{hi1}#$var{hi2}#$var{hi3}#$var{comm}\n"; } } close(NEW); close(RUN); system"mv runtmp$$ ../private/runs/$var{run}"; } ################################ ###### display the run ######### ################################ @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])); print"Todays date is: $today
"; print"Chosen run: $var{run}"; print"

"; print''; print''; print""; print'Create a date to add to this run

'; print"\n"; open(RUN, "<../private/runs/$var{run}"); foreach() { chomp; ($date,$moon{lt},$moon{ut},$length,$jday,$hires1,$hires2,$hires3,$comm,@waste)=split /#/; ($dw,@rest)=split(' ',$moon{lt}); print''; print""; print""; print""; print""; ########print""; print""; print"\n"; } print''; } ######################################## #### add a date to the run ############# if it pleases you ######################################## if(($var{day} eq "new")and(defined($var{run}))) { $exampdate=substr $var{run},0,8; print'

$date

$moon{lt}

$moon{ut}

$length

$jday

$hires1

$hires2

$hires3

$comm

'; print"The New date will be added to the Run $var{run}"; print"

"; print''; print""; print''; print''; print''; print''; print''; print''; print""; print''; } ################################## ##### lets edit this sucker ###### ################################## if((defined($var{run}))and(defined($var{day}))and(defined($var{edit}))) { print'

		EXAMPLES
Date:		$exampdate
Dark in LT:		Tue Oct 31 2000 20:46 MST (moonset) to Wed Nov 1 2000 05:29 MST (twilight)
Dark in UT:		Wed Nov 1 2000 03:46 UT (moonset) to Wed Nov 1 2000 12:29 UT (twilight)
Length:
Julian Day:
Comment:

'; open(RUN, "<../private/runs/$var{run}"); foreach() { chomp; ($date,$moonlt,$moonut,$length,$jday,$hi1,$hi2,$hi3,$comment)=split('#', $_); if($date eq $var{day}) { print"heloo helloo"; print""; print""; ############ print""; print''; print''; print""; print""; print''; print""; print''; print""; print''; ######## print'edit edit edit'; } } close(RUN); print''; } if((defined($var{run}))and(defined($var{day}))and($var{day} ne "new")and(!defined($var{edit}))) { } print'

Date:	$var{day}
Moon in LT:
Moon in UT:
Length:
Julian day:
Comment: