#!/usr/bin/perl $color{F}="ff4444"; $color{R}="00aa88"; $color{C}="0000ff"; $color{E}="0000ff"; $color{L}="cc6600"; @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])); # $today='20010717'; $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 ##### $var{loc}=3; ##### get query ######### if (defined($query)) { @list=split('&', $query); foreach (@list) { my ($key,$value) = split /=/; $var{$key}=$value; } } $var{myname}=uc $var{myname}; $var{zone}="lt"; 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; print `../private/julian/j.run $yr1 $mon1 $day1 0 0 0 > junk`; open(TIME, "; $jday1=; $jday1=substr $jday1, 5; close(TIME); print `../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) } ########################################## ########### find out personal info ####### ########################################## open(SUS, "<../private/workfiles/emplist"); foreach() { chomp; if((!((uc $_)=~m/RETI/))and(!((uc $_)=~m/INIT/))) { ($intl,$name,$career,$citiz,$location,$comment)=split('#',$_); $cit{uc $intl}=uc $citiz; } } close(SUS); $everyone=join(',',keys %cit); $everyone=join(',',$everyone,"NEVIS1","NEVIS2"); print("Content-type: text/html\n\n"); print'HiRes schedule editing site'; print ''; ################ Help Bar ######################### open(HELP, ") { chomp; if(!($_=~m/sign/)or !($_=~m/href/)) { print"$_"; } elsif($_ =~m/sign/) { ($first,$second)=split('>',$_); print"$first >$second >"; } } close(HELP); print'

'; print'

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

'); print(`ls ../private/runs > junk`); print("

Choose a run by its starting date:

"); open(RUN, ") { chop; $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('

'); 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''; print'

'; } ############################################################################### ####################### step 2 display work schedule and ask to change it ##### ############################################################################### if(defined($var{whichrun})) { $nogo=0; $addok=1; $dropok=1; ################################################ #### get value of 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); ################################################ $illegal=1; $otros=0; @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''; ##### Helpfull info print''; print("Todays date is: $today
"); if((defined($var{newdate}))and($var{act} eq "drop")) { $dist=datediff($var{newdate},$today); if($dist<7) { $nogo=1; push @reasons, "You cannot drop a date unless there are at least two others signed up!"; } } ################################# ######## color code ############# ################################# # print"

FOREIGN NATIONAL
ESCORT
"; # print"PERMANENT RESIDENT
CITIZEN
"; # print"CLEARANCE LEVEL

"; print'

Switch to

'; ################This was what was here before hires3 came about######### # print''; ######################################################################## print''; print''; print"\n\n

>>>>>

'; print''; print'

Run = ",(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"

"; ############################################# ###### update the runs file if needed ####### ############################################# if((defined($var{act}))and(defined($var{myname}))and($everyone =~m/$var{myname}/)) { $var{myname}=uc $var{myname}; open(RUNTMP, ">junk"); open(RUN, "<../private/runs/$var{whichrun}"); foreach() { chop; ($date{lt},$moon{lt},$moon{ut},$length,$jday,$hires{1},$hires{2},$hires{3},$comm,@waste)=split /#/; $dw=substr $moon{lt},0,3; (@hilist1)=split('/',$hires{1}); (@hilist2)=split('/',$hires{2}); (@hilist3)=split('/',$hires{3}); if($var{loc} == 3){@templist=@hilist3;} ############### store info in strings and edit the strings #######change HiRes schedule if($date{lt} == $var{adddate}) { if($hires{$var{loc}}=~m/ARMY/) { $nogo=1; $dropok=0; $addok=0; push @reasons, "The Army has closed the base for that day"; } if($hilist3[0] eq "NH" && $var{myname} ne "NH") { $addok=0; push @reasons, "No student help is needed on $var{adddate}"; } if($var{act} eq "ADD") { for($l=1; $l<4;$l++) { if($hires{$l}=~m/$var{myname}/) { $addok=0; push @reasons, "You are allready signed up at HiRes $l on $var{adddate}"; } } if($addok) { if($var{myname}=~m/ARMY/) { unshift @templist, $var{myname}; } if($var{myname} eq "NH") { @templist = "NH"; } if($var{myname}!=~m/ARMY/ && $var{myname} ne "NH") { $templist[@templist]=$var{myname}; } open(RECRD, "<../private/workfiles/schedhist"); open(TMP, ">junk1"); foreach() { chomp; print TMP "$_\n"; } print TMP "$var{adddate},$today,$var{myname},$var{act},$var{loc}\n"; close(RECRD); close(TMP); system"cp junk1 ../private/workfiles/schedhist"; } } if($var{act} eq "DROP") { $diff=datediff($date{lt},$today); #### reasons to not permit droppings #### if($diff<6) { #### enough escorts to cover foriegn nationals ###### for($i=0;$i<@templist+1;$i++) { if(!defined($citsigned{$cit{$templist[$i]}})) { $citsigned{$cit{$templist[$i]}}=0; } $citsigned{$cit{$templist[$i]}}++; } if(($cit{$var{myname}} eq "E")and($citsigned{E}<2)and($citsigned{F}>0)) { $dropok=0; push @reasons, "Not enough escorts signed up"; } ####### end enough escorts #if(@templist<3) #{ # $dropok=0; # push @reasons, "There must be at least 2 people at a site"; #} } $dropok=1;#This is just temporary so we can loosen restrictions on HiRes3. if($dropok) { for($i=0;$i<@templist+1;$i++) { my $thisname = pop @templist; if(uc $thisname ne $var{myname}) { unshift @templist, $thisname; } else { open(RECRD, "<../private/workfiles/schedhist"); open(TMP, ">junk1"); foreach() { chomp; print TMP "$_\n"; } print TMP "$var{adddate},$today,$var{myname},$var{act},$var{loc}\n"; close(RECRD); close(TMP); system"mv junk1 ../private/workfiles/schedhist"; } } } } ########## end drop } ########### end $var{adddate} == $date if($var{loc} == 1){@hilist1=@templist;} if($var{loc} == 2){@hilist2=@templist;} if($var{loc} == 3){@hilist3=@templist;} ############# print new strings to RUNTMP (the tmp/runs file) $hil1=join('/',@hilist1); $hil2=join('/',@hilist2); $hil3=join('/',@hilist3); print RUNTMP "$date{lt}#$moon{lt}#$moon{ut}#$length#$jday#$hil1#$hil2#$hil3#$comm\n"; } #########addsomething($hil3# after $hil2#) to the line above this--when I get the RUN files ready(the 8th '#' needs to be inserted into them all)}--done close(RUN); close(RUNTMP); ############ copy the tmp data to the "real" file print(`cat junk > ../private/runs/$var{whichrun}`); } print("

"); print""; ############################################### ### unsucsesful adds and drops ################ ############################################### if(!($everyone=~m/$var{myname}/)) { $dropok=0; $addok=0; push @reasons, "$var{myname} is not on the usual suspects list. Please check spelling for acuracy."; #print"