#!/usr/bin/perl ######## whats the date today? ####### @datetime=localtime(time); if($datetime[4]+1 < 10) { $datetime[4]=join('',0,$datetime[4]+1) } if($datetime[4]+1 > 9) { $datetime[4]=$datetime[4]+1; } if($datetime[3] < 10) { $datetime[3]=join('',0,$datetime[3]) } if($datetime[3] > 9) { $datetime[3]=$datetime[3]; } $today=join('', ($datetime[5]+1900),($datetime[4]),($datetime[3])); ##### set defalt values ########### $var{year}=substr $today,0,4; $var{zone}="lt"; $color="aaffaa"; $query=$ENV{QUERY_STRING}; if(defined($query)) { @list=split('&',$query); foreach(@list) { my($name,$value)=split('=',$_); $var{$name}=$value; } } print"Content-type: text/html\n\n"; print 'Loonatic Schedules'; ################ Help Bar ######################### open(HELP, ") { chomp; if(!($_=~m/moon/)or !($_=~m/href/)) { print"$_"; } elsif($_ =~m/moon/) { ($first,$second)=split('>',$_); print"$first >$second >"; } } close(HELP); print'

Dark

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

Please choose a run,
and I will display moon
and twilight schedules:

'; print'

'; print''; print'________________________'; print''; print"The year chosen is $var{year}
If you would like to change, please enter selection below
"; print''; } if(defined($var{run})) { if($var{zone} eq "lt") { print'

'; print''; print''; print''; print'Local Time '; print'

'; } if($var{zone} eq "ut") { print'

'; print''; print''; print''; print' Universal Time'; print'

'; } open(RUN,"../private/runs/$var{run}"); print'

DATE ||

LENGTH ||

RUN START AND STOP ||

'; foreach() { ($date{lt},$moon{lt},$moon{ut},$length,$jday,$hi1,$hi2,$comment,@junk)=split('#',$_); @list=split(' ',$moon{$var{zone}}); $yy=substr $date{lt},0,4; $mm=substr $date{lt},4,2; $dd=substr $date{lt},6,2; if($date{lt} eq $var{day}) { print""; for($i=0;$i<@list;$i++) { print""; } print''; } else { print""; for($i=0;$i<@list;$i++) { print""; } print''; } } close(RUN); } print'

$yy/$mm/$dd	$length	$list[$i]
$yy/$mm/$dd	$length	$list[$i]