#!/usr/bin/perl $color{F}="ff4444"; $color{R}="00aa88"; $color{C}="eeee00"; $color{E}="0000ff"; ######### get personal info ######### open(SUS, "<../private/workfiles/emplist"); foreach() { ($intl,$name,$career,$citiz,$location,$comment)=split('#',$_); $cit{uc $intl}=uc $citiz; # print"$intl $cit{$intl}\n"; } close(SUS); ######## whats the date today? ####### @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])); ########## set defalt values ######## $var{year}=substr $today,0,4; $var{zone}="lt"; $var{startsearch}=$today -1; $var{loc}=1; #get the query string $query=$ENV{QUERY_STRING}; #decode query string into variable list #$question="?"; #($first,$second)=split("$question",$query); #$query=join('#found?',$first,$second); if (defined($query)) { @list=split('&', $query); foreach (@list) { my ($key,$value) = split /=/; $var{$key}=$value; } } ####### find me 2 ###### if(defined($var{find})) { $var{me}=uc $var{me}; system"ls ../private/runs/ > junk"; open(RUNS, ") { chomp; $run=$_; open(RUN,"<../private/runs/$_"); foreach() { chomp; chomp $run; ($date{lt},$moon{lt},$moon{ut},$length,$jday,$hires1,$hires2,$comment,@waste)=split /#/; if((!defined($ocurrence))and($_=~m/$var{me}/)and($date{lt} > $var{startsearch})) { $ocurrence=$date{lt}; $var{whichrun}=$run; } } close(RUN); } close(RUNS); if(!defined($ocurrence)) { $found="No"; } } print("Content-type: text/html\n\n"); print('HiRes schedule'); ################ Help Bar ######################### open(HELP, ") { chomp; if(!($_=~m/view/)or !($_=~m/href/)) { print"$_"; } elsif($_ =~m/view/) { ($first,$second)=split('>',$_); print"$first >$second >"; } } close(HELP); print'

'; ############################################################################### ##################### 1 initial web page, get location and date ############### ############################################################################### if (!defined($var{whichrun})) { print''; print''; print('

'); print(`ls ../private/runs > junk`); print("Choose a run:

"); open(RUN, "junk"); foreach() { chomp; $thisyear=substr $_,0,4; $startrun=substr $_,0,8; $endrun=substr $_,9,8; if($thisyear eq $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"\n"; print''; print'>',"$yy1/$mm1/$dd1-$yy2/$mm2/$dd2"; if(($today<=$endrun)and($today>=$startrun)) { print'-current run!'; } $todayym=substr $today,0,6; if(($today>$lastendrun)and($today<$startrun)and(($ym1 == $todayym)or($ym1==$todayym+1))) { print'-next run!'; } $lastendrun=$endrun; print"
"; } } close(RUN); print('
'); ################### find me ################# print'

'; print"Find my next appearence in the work schedule
"; print"Initils: "; print""; print""; print'

'; print'---------------------------'; print''; print''; print"<-$var{year}->"; print''; print''; print''; print"The selected year is $var{year}
To select a different year, please enter it below
"; print''; print''; print('

'); } ############################################################################### ####################### 2 display work schedule ############################### ############################################################################### ###### create the basic HTML requirements ######### if(defined($var{whichrun})) { if($found eq "No") { print"

$var{me} Not found after $var{startsearch}

"; print(''); } else { #### get next and previous runs ###### system"ls ../private/runs/ > junk"; open(RUNS, ") { chomp; if((substr $_,0,8)<(substr $var{whichrun},0,8)) { $previous=$_; } if(((substr $_,0,8)>(substr $var{whichrun},0,8))and(!defined($next))) { $next=$_; } } close(RUNS); print(""); #print(''); #print(''); #print(''); #print""; #print(''; print''; print"

Todays date is: $today
	'); #print(' '); #print(''); #print(''); #print""; #print('	'); print'
'; print''; print'	'; print''; print'

'; ####### inquire about desired action ############## print"\n\n

"; print'

",(substr $var{whichrun},0,4),"/",(substr $var{whichrun},4,2),"/"; print (substr $var{whichrun},6,2); print"-",(substr($var{whichrun},9,4)),"/",(substr $var{whichrun},13,2),"/",(substr $var{whichrun},15,2); print""; ################################# ######## color code ############# ################################# print"

FOREIGN NATIONAL
ESCORT
"; print"PERMANENT RESIDENT
CITIZEN

"; ################################################## ###### decode the runs list file ################# ################################################## print(""); ########### display HiRes 1 if($var{loc}==1) { print("\n"); print''; open(RUN, "../private/runs/$var{whichrun}"); foreach() { ($date{lt},$moon{lt},$moon{ut},$length,$jday,$hires1,$hires2,$comment,@waste)=split /#/; ($dw,$mnth,$dd,$yy,$hourmin,@rest)=split(' ',$moon{lt}); ($hour,$min)=split(':',$hourmin); if($hour<12) { if($dw eq "Mon"){$dw="SUN";} if($dw eq "Tue"){$dw="MON";} if($dw eq "Wed"){$dw="TUE";} if($dw eq "Thu"){$dw="WED";} if($dw eq "Fri"){$dw="THU";} if($dw eq "Sat"){$dw="FRI";} if($dw eq "Sun"){$dw="SAT";} } my(@hilist1)=split('/',$hires1); my(@hilist2)=split('/',$hires2); $yy=substr $date{lt},0,4; $mm=substr $date{lt},4,2; $dd=substr $date{lt},6,2; print""; } close (RUN); } ############ display HiRes 2 if($var{loc}==2) { print("\n"); # print("

	yyyymmdd	Day	Length	HiRes 1	HiRes 2	Notes
"; if($date{lt} == $ocurrence) { print" "; print""; print""; print""; print''; print'-->"; } print''; print""; print"\n"; print"		"; if($date{lt} eq $today) { print""; } print"$dw	$length"; print"	"; print""; for($i=0; $i<@hilist1; $i++) { print "\n"; if(($date{lt} eq $ocurrence)and($hilist1[$i] eq $var{me})) { print""; } print" $hilist1[$i] "; } print "	"; for($i=0; $i<@hilist2; $i++) { print "\n"; if(($date{lt} eq $ocurrence)and($hilist2[$i] eq $var{me})) { print""; } print" $hilist2[$i] "; } print"	$comment
yyyymmdd	Day	Length	#HiRes 2	Notes

"); open(RUN, "../private/runs/$var{whichrun}"); foreach() { ($date{lt},$moon{lt},$moon{ut},$length,$jday,$hires1,$hires2,$comment,@waste)=split /#/; # $dw=substr $moon{lt},0,3; ($dw,$mnth,$dd,$yy,$hourmin,@rest)=split(' ',$moon{lt}); ($hour,$min)=split(':',$hourmin); if($hour<12) { if($dw eq "Mon"){$dw="SUN";} if($dw eq "Tue"){$dw="MON";} if($dw eq "Wed"){$dw="TUE";} if($dw eq "Thu"){$dw="WED";} if($dw eq "Fri"){$dw="THU";} if($dw eq "Sat"){$dw="FRI";} if($dw eq "Sun"){$dw="SAT";} } my(@hilist1)=split('/',$hires1); my(@hilist2)=split('/',$hires2); $yy=substr $date{lt},0,4; $mm=substr $date{lt},4,2; $dd=substr $date{lt},6,2; print""; } close (RUN); } ########### end the HTML doc ############################## } print('

$yy/$mm/$dd

$dw

$length

"; for($i=0; $i<@hilist2; $i++) { print "\n $hilist2[$i] "; # print(" $hilist2[$i] "); } print "

$comment

'); }

$var{me} Not found after $var{startsearch}

yyyymmdd

Day

Length

HiRes 1

HiRes 2

yyyymmdd

Day

Length

#HiRes 2