#!/usr/bin/perl # #.file efosc.cgi #.purpose send an set-up request for EFOSC #.version fine tuning ohainaut #.history # 2004-06-07 first EFOSC version # 2003-04-01 creation from astrolabe.cgi ohainaut # 2006-01-05 Adapted for new remedy server - wlsremdy.ls.eso.org jparra # 2015-10-21 Adapted for new remedy server - wlporem.sc.eso.org cceron #----------------------------------------------------------------------- use CGI; $query = new CGI; # a directory where web user can write $writePath="/tmp/"; # email to which the form content must be sent. # (escape \@) # $suEmail="ls-360\@eso.org"; $suEmail="ls-coord\@eso.org"; # email of Remedy $remedyEmail="artest\@eso.org"; # which email command to use $whichMail="/usr/bin/mailx"; $sendmail = '/usr/sbin/sendmail -t'; #--- INSTRUMENT DEFINITION: # # Instrument Scientist, this is where you want to modify things # # In this section, define the authorized values for the various # optical elements. %labelStap = ('00', ' - ', '01', 'Moveable#1.5', '02', 'Moveable#2.0', '03', 'slit#0.3', '04', 'slit#0.5', '05', 'slit#0.7', '06', 'slit#1.0', '07', 'slit#1.2', '08', 'slit#1.5', '09', 'slit#2.0', '10', 'slit#5.0', '11', 'slit#10.', '12', 'slit#15.', '13', 'Wollaston parallel', '14', 'Wollaston perpendicular', '15', 'MOS#1', '16', 'MOS#2', '17', 'MOS#3', '18', 'MOS#4', '19', 'MOS#5', '20', 'Coronograph Mask', '90', 'Holes_Mask', '99', 'Open'); %labelFilt = ('00', ' - ', '01', 'U Bessell #640', '02', 'B Bessell #639', '03', 'V Bessell #641', '04', 'R Bessell #642', '05', 'Gunn g #782', '06', 'Gunn r #786', '07', 'Gunn i #705', '08', 'Gunn z #623', '09', 'H Alpha #692', '10', 'H Alpha Red #709', '11', 'H Beta #742', '12', 'Hbe Cont #743', '13', '[OIII] #687', '14', '[SII] #700', '15', 'Tyson B #724', '16', 'Special - see note', '17', 'Wollaston prism'); %labelGrism = ('00', ' -', '01', 'Gr#1', '02', 'Gr#2', '03', 'Gr#3', '04', 'Gr#4', '05', 'Gr#5', '06', 'Gr#6', '07', 'Gr#7', '08', 'Gr#8', '09', 'Gr#18(ex-Gr#9)', '10', 'Gr#11', '11', 'Gr#16(ex-Gr#12)', '12', 'Gr#13', '13', 'Gr#14', '14', 'Gr#17(ex-Gr#15)', '15', 'Gr#18', '16', 'Gr#19', '17', 'Gr#20', '18', '10 Wollaston Prism', '19', '20 Wollaston Prism', '20', 'Lyot Stop', '90', 'Upper Hartmann', '91', 'Lower Hartmann', '92', 'Focus Wedge', '99', 'Free'); %labelPolar = ('00', ' -', '01', 'Quarter-wave plate', '02', 'Half-wave plate', '99', 'Free'); #-- end of instrument definition #============================================================================== # FORM HANDLING print $query->header; $|=0; # FIRST CASE: we get parameters, so the form is filled: if ($query->param) { $formStep = substr($query->param(formstep),0,1); # - FORMSTEP = 1: ANALYSE AND DISPLAY THE REPORT FOR CONFIRMATION if ( $formStep == 1 ) { #- date ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = localtime(time); $thishour = (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24) [(localtime) [2]]; $thismonth = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[(localtime)[4]]; $thisday = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday)[(localtime)[6]]; #-- output files $suRemedy = "suRemedy_$obsName_$year$thismonth$yday_$thishour$min.txt"; $suRemedyTail = "suRemedyTail_$obsName_$year$thismonth$yday_$thishour$min.txt"; $suFile = "suEmail_$obsName_$year$thismonth$yday_$thishour$min.txt"; $suCommon = "suCommon_$obsName_$year$thismonth$yday_$thishour$min.txt"; #- remove the output file unlink("$writePath/$suRemedy"); unlink("$writePath/$suRemedyTail"); unlink("$writePath/$suFile"); unlink("$writePath/$suCommon"); #-- read the parameters in, and filter the # values returned for strange input $mobserver = substr($query->param(observer),0,32); $mprogId = substr($query->param(progId),0,12); $msuDateYr = substr($query->param(suDateYr),0,4); $msuDateYr =~ s/[^\d]/9/g; $msuDateMo = substr($query->param(suDateMo),0,2); $msuDateMo =~ s/[^\d]/9/g; $msuDateDy = substr($query->param(suDateDy),0,2); $msuDateDy =~ s/[^\d]/9/g; $mp2pp = substr($query->param(p2pp),0,10); $mstap1 = substr($query->param(stap1), 0,2); $mstap1 =~ s/[^\d]/9/g; $mstap2 = substr($query->param(stap2), 0,2); $mstap2 =~ s/[^\d]/9/g; $mstap3 = substr($query->param(stap3), 0,2); $mstap3 =~ s/[^\d]/9/g; $mstap4 = substr($query->param(stap4), 0,2); $mstap4 =~ s/[^\d]/9/g; $mstap5 = substr($query->param(stap5), 0,2); $mstap5 =~ s/[^\d]/9/g; $mstap6 = substr($query->param(stap6), 0,2); $mstap6 =~ s/[^\d]/9/g; $mstap7 = substr($query->param(stap7), 0,2); $mstap7 =~ s/[^\d]/9/g; $mstap8 = substr($query->param(stap8), 0,2); $mstap8 =~ s/[^\d]/9/g; $mstap9 = substr($query->param(stap9), 0,2); $mstap9 =~ s/[^\d]/9/g; $mstap10 = substr($query->param(stap10), 0,2); $mstap10 =~ s/[^\d]/9/g; $mfilt1 = substr($query->param(filt1), 0,2); $mfilt1 =~ s/[^\d]/9/g; $mfilt2 = substr($query->param(filt2), 0,2); $mfilt2 =~ s/[^\d]/9/g; $mfilt3 = substr($query->param(filt3), 0,2); $mfilt3 =~ s/[^\d]/9/g; $mfilt4 = substr($query->param(filt4), 0,2); $mfilt4 =~ s/[^\d]/9/g; $mfilt5 = substr($query->param(filt5), 0,2); $mfilt5 =~ s/[^\d]/9/g; $mfilt6 = substr($query->param(filt6), 0,2); $mfilt6 =~ s/[^\d]/9/g; $mfilt7 = substr($query->param(filt7), 0,2); $mfilt7 =~ s/[^\d]/9/g; $mfilt8 = substr($query->param(filt8), 0,2); $mfilt8 =~ s/[^\d]/9/g; $mfilt9 = substr($query->param(filt9), 0,2); $mfilt9 =~ s/[^\d]/9/g; $mfilt10 = substr($query->param(filt10), 0,2); $mfilt10 =~ s/[^\d]/9/g; $mfilt11 = substr($query->param(filt11), 0,2); $mfilt11 =~ s/[^\d]/9/g; $mfilt12 = substr($query->param(filt12), 0,2); $mfilt12 =~ s/[^\d]/9/g; $mgrism1 = substr($query->param(grism1), 0,2); $mgrism1 =~ s/[^\d]/9/g; $mgrism2 = substr($query->param(grism2), 0,2); $mgrism2 =~ s/[^\d]/9/g; $mgrism3 = substr($query->param(grism3), 0,2); $mgrism3 =~ s/[^\d]/9/g; $mgrism4 = substr($query->param(grism4), 0,2); $mgrism4 =~ s/[^\d]/9/g; $mgrism5 = substr($query->param(grism5), 0,2); $mgrism5 =~ s/[^\d]/9/g; $mgrism6 = substr($query->param(grism6), 0,2); $mgrism6 =~ s/[^\d]/9/g; $mgrism7 = substr($query->param(grism7), 0,2); $mgrism7 =~ s/[^\d]/9/g; $mgrism8 = substr($query->param(grism8), 0,2); $mgrism8 =~ s/[^\d]/9/g; $mgrism9 = substr($query->param(grism9), 0,2); $mgrism9 =~ s/[^\d]/9/g; $mgrism10 = substr($query->param(grism10), 0,2); $mgrism10 =~ s/[^\d]/9/g; $mgrism11 = substr($query->param(grism11), 0,2); $mgrism11 =~ s/[^\d]/9/g; $mgrism12 = substr($query->param(grism12), 0,2); $mgrism12 =~ s/[^\d]/9/g; $mpolar1 = substr($query->param(polar1), 0,2); $mpolar1 =~ s/[^\d]/9/g; $comCom = substr($query->param(comCom),0,2000); $comCom =~ s/[^a-z0-9A-Z .\-_\n]//g; #--- print the output open (SUFILE,">> $writePath/$suFile"); open (SUCOMMON,">> $writePath/$suCommon"); open (SUREMEDY,">> $writePath/$suRemedy"); open (SUREMEDYTAIL,">> $writePath/$suRemedyTail"); print SUFILE "To: $suEmail \n"; print SUFILE "CC: ls-efosc\@eso.org \n"; print SUFILE "From: lasilla\@eso.org\n"; print SUFILE "Subject: EFOSC-2 SetUp Request: $mprogId, $msuDateYr-$msuDateMo-$msuDateDy\n"; print SUFILE "Content-type: text/plain\n\n"; print SUFILE "NTT/EFOSC-2 SETUP REQUEST\n"; print SUFILE "\n"; print SUFILE "OBSERVER: $mobserver\n"; print SUFILE "PROGRAM ID: $mprogId\n"; print SUFILE "P2PP PassWd: $mp2pp\n"; print SUFILE "Set Up Date: $msuDateYr-$msuDateMo-$msuDateDy\n"; print SUREMEDY "To: $remedyEmail \n"; print SUREMEDY "Reply-to: lasilla\@eso.org \n"; print SUREMEDY "Content-type: text/plain\n\n"; print SUREMEDY "#\n"; print SUREMEDY "# File exported Thu Jun 10 15:17:12 2004\n"; print SUREMEDY "#\n"; print SUREMEDY "#AR-Message-Begin Do Not Delete This Line\n"; print SUREMEDY "Schema: SetUpRequest\n"; print SUREMEDY "Server: wlporem.sc.eso.org\n"; print SUREMEDY "Login: setusr\n"; print SUREMEDY "Password: setusr\n"; print SUREMEDY "Action: Submit\n"; print SUREMEDY "Format: Short\n"; print SUREMEDY "\n"; print SUREMEDY " Submitter ! 2!: $USER$ \n\n"; print SUREMEDY " Telescope !536870913!: NTT\n"; print SUREMEDY " Instrument !536870932!: EFOSC\n"; print SUREMEDY " Month !536870920!: $msuDateMo\n"; print SUREMEDY " Year !536870917!: $msuDateYr\n"; print SUREMEDY " Beginning_of_Night !536870916!: $msuDateDy\n"; print SUREMEDY " Assigned-to ! 4!: \n"; print SUREMEDY " Observer !536870915!: $mobserver\n"; print SUREMEDY " ObsProgID ! 8!: $mprogId\n"; print SUREMEDY " Actions taken: !536870918!: \n"; print SUREMEDY " Status ! 7!: New\n"; print SUREMEDY " Team E-Mail !536870914!: ls-ntt\@eso.org \n"; print SUREMEDY " Telescope Email !536870997!: ls-ntt\@eso.org \n"; print SUREMEDY " Detailed description: !536870921!: [\$\$\n"; print SUREMEDYTAIL "$$]\n"; print SUREMEDYTAIL "#AR-Message-End Do Not Delete This Line\n"; print SUCOMMON "==============================================\n"; print SUCOMMON "Star Plate Wheel\n"; print SUCOMMON " 1: $labelStap{$mstap1}\n"; print SUCOMMON " 2: $labelStap{$mstap2}\n"; print SUCOMMON " 3: $labelStap{$mstap3}\n"; print SUCOMMON " 4: $labelStap{$mstap4}\n"; print SUCOMMON " 5: $labelStap{$mstap5}\n"; print SUCOMMON " 6: $labelStap{$mstap6}\n"; print SUCOMMON " 7: $labelStap{$mstap7}\n"; print SUCOMMON " 8: $labelStap{$mstap8}\n"; print SUCOMMON " 9: $labelStap{$mstap9}\n"; print SUCOMMON " 10: $labelStap{$mstap10}\n"; print SUCOMMON "==============================================\n"; print SUCOMMON "Filter Wheel\n"; print SUCOMMON " 1: $labelFilt{$mfilt1}\n"; print SUCOMMON " 2: $labelFilt{$mfilt2}\n"; print SUCOMMON " 3: $labelFilt{$mfilt3}\n"; print SUCOMMON " 4: $labelFilt{$mfilt4}\n"; print SUCOMMON " 5: $labelFilt{$mfilt5}\n"; print SUCOMMON " 6: $labelFilt{$mfilt6}\n"; print SUCOMMON " 7: $labelFilt{$mfilt7}\n"; print SUCOMMON " 8: $labelFilt{$mfilt8}\n"; print SUCOMMON " 9: $labelFilt{$mfilt9}\n"; print SUCOMMON " 10: $labelFilt{$mfilt10}\n"; print SUCOMMON " 11: $labelFilt{$mfilt11}\n"; print SUCOMMON " 12: $labelFilt{$mfilt12}\n"; print SUCOMMON "==============================================\n"; print SUCOMMON "Grism Wheel\n"; print SUCOMMON " 1: $labelGrism{$mgrism1}\n"; print SUCOMMON " 2: $labelGrism{$mgrism2}\n"; print SUCOMMON " 3: $labelGrism{$mgrism3}\n"; print SUCOMMON " 4: $labelGrism{$mgrism4}\n"; print SUCOMMON " 5: $labelGrism{$mgrism5}\n"; print SUCOMMON " 6: $labelGrism{$mgrism6}\n"; print SUCOMMON " 7: $labelGrism{$mgrism7}\n"; print SUCOMMON " 8: $labelGrism{$mgrism8}\n"; print SUCOMMON " 9: $labelGrism{$mgrism9}\n"; print SUCOMMON " 10: $labelGrism{$mgrism10}\n"; print SUCOMMON " 11: $labelGrism{$mgrism11}\n"; print SUCOMMON " 12: $labelGrism{$mgrism12}\n"; print SUCOMMON "==============================================\n"; print SUCOMMON "Retarder plate\n"; print SUCOMMON " 1: $labelPolar{$mpolar1}\n"; print SUCOMMON "==============================================\n"; print SUCOMMON "COMMENTS:\n"; print SUCOMMON "$comCom\n"; print SUCOMMON "==============================================\n"; print SUCOMMON "created on $thisday, $thismonth, $mday, 200"; print SUCOMMON $year-100; print SUCOMMON ", $thishour:$min:$sec \$\$]\n\n"; close (SUFILE); close (SUCOMMON); close (SUREMEDY); close (SUREMEDYTAIL); #-- show request and ask for confirmation print <

Your Set-Up request is reproduced below. Remember that this form does not perform any test: double check it.

To submit it to Science Operation, press

To edit it again, press the [Back] button on your browser. END #- writes the content of output file to html output print "

\n";
       foreach $i (`tail --lines=+6  $writePath/$suFile ; cat $writePath/$suCommon`)
       {print $i ;}
       print "
\n"; # print "
\n";
#       foreach $i (`cat  $writePath/$suRemedy  $writePath/$suCommon $writePath/$suRemedyTail`)
#       {print $i ;}
#       print "
\n"; } #============================================================================== if ( $formStep == 2 ) { # # - FORMSTEP = 2: CONFIRMED REPORT - SEND IT # $suRemedy = substr($query->param(suRemedy),0,72); $suRemedy =~ s/[^a-z0-9A-Z.\-_]//g; $suFile = substr($query->param(suFile),0,72); $suFile =~ s/[^a-z0-9A-Z.\-_]//g; $suCommon = substr($query->param(suCommon),0,72); $suCommon =~ s/[^a-z0-9A-Z.\-_]//g; #- send the instruction files via email open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!" ; foreach $i (`cat $writePath/$suFile $writePath/$suCommon `) {print SENDMAIL $i ;} close (SENDMAIL); print "...email sent\n"; open(SENDREM, "|$sendmail") or die "Cannot open $sendmail: $!" ; foreach $i (`cat $writePath/$suRemedy $writePath/$suCommon $writePath/$suRemedyTail`) {print SENDREM $i ;} close (SENDREM); print "...database filled\n"; print "

Your set-up has been submitted. It is reproduced below for your convenience in case you want to print it."; #- writes the content of output file to html output print "

\n";
       foreach $i (`tail --lines=+6  $writePath/$suFile ; cat $writePath/$suCommon`)
       {print $i ;}
       print "
\n"; } #============================================================================== # WE GOT NO PARAMETER, SO WE ARE AT STEP 0: DISPLAY THE EMPTY FORM } else { print $query->startform; print < EFOSC Set-up Form
[ ESO ] La Silla

La Silla - Science Operation Department
SciOp
EFOSC Set-Up Form
HOME INDEX SEARCH HELP NEWS

Please use the following form to submit your set-up request for EFOSC2. If your setup is special and does not follow the standard setup form, please contact your support astronomer. Note that it is critical that you discuss the set-up with your support astronomer prior to submitting the form.

This set-up form has to be submitted at the latest at 07:00 local on the day you start observing. If you submit it later, it is likely that either your set-up will not be ready in time and/or that you will be waken up early in the morning.

Please do not overfill this form: select only the optical elements you need. This form is not performing any verification on the consistency of the set-up you request: be sure to check that you are not requesting duplicate or incompatible elements. END #--page 0 table print ""; print "
"; print ""; print "
Observer"; print $query->textfield('observer'); print " First name and name \n"; print "
Prog.Id"; print $query->textfield('progId'); print " Format: 075.D-01234(A); see schedule\n"; print "
Date of Setup"; print < First night of observations. Format: YYYY-MM-DD
P2PP Password"; print $query->textfield('p2pp'); print "Required for identification
"; #--page 1 table print < 		END #-------- STAP #-main tab col: print ""; #-------- polarimetry print ""; #---p 2 table print <

Additional Comments:
In case you selected a special optical element ("Special - see note"), please give the specifications here after.

END print $query->submit(-value=>'SUBMIT'); print $query->reset; print $query->endform; } #--oOo--

Slit Wheel Filter Wheel Grism Wheel Polarimetry Retarder Plates
"; print ""; print "
"; print "
1 "; print $query->popup_menu(-name=>'stap1', -Values=>['99'], -labels=>\%labelStap, -default=>'99'); print "
2 "; print $query->popup_menu(-name=>'stap2', -Values=>['01'], -labels=>\%labelStap, -default=>'01'); print "
3 "; print $query->popup_menu(-name=>'stap3', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13','14','15','16','17','18','19','20'], -labels=>\%labelStap, -default=>'0'); print "
4 "; print $query->popup_menu(-name=>'stap4', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13','14','15','16','17','18','19','20'], -labels=>\%labelStap, -default=>'0'); print "
5 "; print $query->popup_menu(-name=>'stap5', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13','14','15','16','17','18','19','20'], -labels=>\%labelStap, -default=>'0'); print "
6 "; print $query->popup_menu(-name=>'stap6', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13','14','15','16','17','18','19','20'], -labels=>\%labelStap, -default=>'0'); print "
7 "; print $query->popup_menu(-name=>'stap7', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13','14','15','16','17','18','19','20'], -labels=>\%labelStap, -default=>'0'); print "
8 "; print $query->popup_menu(-name=>'stap8', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13','14','15','16','17','18','19','20'], -labels=>\%labelStap, -default=>'0'); print "
9 "; print $query->popup_menu(-name=>'stap9', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13','14','15','16','17','18','19','20'], -labels=>\%labelStap, -default=>'0'); print "
10 "; print $query->popup_menu(-name=>'stap10', -Values=>['90'], -labels=>\%labelStap, -default=>'90'); print "
"; #-- FILTER print "		"; print ""; print "
1 "; print $query->popup_menu(-name=>'filt1', -Values=>['Free'], -labels=>\%labelFilt, -default=>'00'); print "
2 "; print $query->popup_menu(-name=>'filt2', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
3 "; print $query->popup_menu(-name=>'filt3', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
4 "; print $query->popup_menu(-name=>'filt4', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
5 "; print $query->popup_menu(-name=>'filt5', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
6 "; print $query->popup_menu(-name=>'filt6', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
7 "; print $query->popup_menu(-name=>'filt7', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
8 "; print $query->popup_menu(-name=>'filt8', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
9 "; print $query->popup_menu(-name=>'filt9', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
10 "; print $query->popup_menu(-name=>'filt10', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
11 "; print $query->popup_menu(-name=>'filt11', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
12 "; print $query->popup_menu(-name=>'filt12', -Values=>['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10','11', '12', '13', '14', '15', '16', '17' ], -labels=>\%labelFilt, -default=>'00'); print "
"; #-------- grism print "		"; print ""; print "
"; print "
1"; print $query->popup_menu(-name=>'grism1', -Values=>['99'], -labels=>\%labelGrism, -default=>'99'); print "
2"; print $query->popup_menu(-name=>'grism2', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
3"; print $query->popup_menu(-name=>'grism3', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
4"; print $query->popup_menu(-name=>'grism4', -Values=>['90'], -labels=>\%labelGrism, -default=>'90'); print "
5"; print $query->popup_menu(-name=>'grism5', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
6"; print $query->popup_menu(-name=>'grism6', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
7"; print $query->popup_menu(-name=>'grism7', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
8"; print $query->popup_menu(-name=>'grism8', -Values=>['92'], -labels=>\%labelGrism, -default=>'92'); print "
9"; print $query->popup_menu(-name=>'grism9', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
10"; print $query->popup_menu(-name=>'grism10', -Values=>['91'], -labels=>\%labelGrism, -default=>'91'); print "
11"; print $query->popup_menu(-name=>'grism11', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
12"; print $query->popup_menu(-name=>'grism12', -Values=>['00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20'], -labels=>\%labelGrism, -default=>'00'); print "
"; print "		"; print ""; print "
"; print "
1"; print $query->popup_menu(-name=>'polar1', -Values=>['00','01','02'], -labels=>\%labelPolar, -default=>'00'); print "
"; print "