Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.eso.org/~ohainaut/bin/astrolabe.cgi
Дата изменения: Tue Jun 30 11:34:45 2015
Дата индексирования: Sun Apr 10 00:48:42 2016
Кодировка:
Поисковые слова: п п п п п п п п п п п п п п п п п п п

#!/usr/bin/perl
#
#to be done:
# -add a button for the stars (HR/Landolt/none)
# -compress the PS files
#
#2009-06-23 ported to HQ
#----------------------------------------------------------------------

use CGI;
$query = new CGI;

# the CGI path in absolute UNIX directory:
$cgiPath = "/home/ohainaut/public_html/bin/";
# the picture and stuff dir, in HTML
$htmlPath = "http://www.sc.eso.org/~ohainaut/astrolabe";
# a directory where WWW user can write (be careful)
$outsideWorld = "/home/ohainaut/public_html/outsideWorld/";

print $query->header;

#`rm -f $outsideWorld/unit.dat`

print <
Astrolabe

Astrolabe

END

#-------------------------------------------------------------------------

$|=0;

if ($query->param) {

#-------------------------------------------------------------------------
#--- Filled Form
#-------------------------------------------------------------------------

#-- grid

$mgrid = substr($query->param(grid), 0,1);
$mgrid =~ s/[^\d]/9/g;

#-- what to do

$miwhat = substr($query->param(iwhat), 0,1);
$miwhat =~ s/[^\d]/9/g;

if (iwhat eq "4") {
print 'ERROR(prl)',
' you have to select something to be done ';
die;
}

#-- observatory

if ( substr($query->param(iwhere),0,1) eq "1"){

#- observatory from list

if ($query->param(obs) eq "") {
print 'ERROR(prl)',
' you have to select an observatory ';
die;
}

$mobs = substr($query->param(obs),0,3);
$mobs =~ s/[^\w]/X/g;
$cgimode = 'CGIobs';

print "(";
foreach $i (`cd $outsideWorld ; echo "*>$cgimode $mobs $miwhat $mgrid<*" ; date >> bigLog ; echo $cgimode $mobs $miwhat $mgrid >> bigLog ; rm -f unit.dat; echo "in"; ls -l $cgiPath/astlb_CGI ; echo $cgimode $mobs $miwhat $mgrid | $cgiPath/astlb_CGI ; echo "out"`){

print $i;
}

} else {

#- observatory from coordinates

$mlong = substr($query->param(long), 0,7);
$mlat = substr($query->param(lat), 0,7);

$mlong =~ s/[^\d-.]/X/g;
$mlat =~ s/[^\d-.]/X/g;
$cgimode = 'CGIcoo';

print "(";

foreach $i (`cd $outsideWorld; echo "*>$cgimode $mlong $mlat $miwhat $mgrid<*"; date >> bigLog ; echo $cgimode $mlong $mlat $miwhat $mgrid >> bigLog ; echo $cgimode $mlong $mlat $miwhat $mgrid | $cgiPath/astlb_CGI `){
print $i;
}

}
#-------------------------------------------------------------------------

} else {

#-------------------------------------------------------------------------
#--- Empty Form
#-------------------------------------------------------------------------

print $query->startform;

print '

This program generates "astrolabes" for any location, in
PostScript and Acrobat PDF.

The instructions to assemble and to use these astrolabes are listed here (TOPS page).

In case you have problems, you can contact
us, sending a message with the
Long/Lat or city you want and your address: we will print the template
and send them to you.

';

%labeliwhere = ( '1', 'from the list below, or enter ',
'2', ' your longitude/latitude. ',
'3', 'don\'t touch this!) ');

print "

Select your observatory ",
$query->radio_group(-name=>'iwhere',
-values=>['1','2'],
-labels=>\%labeliwhere
),"\n";

#-------insert result of obs_con here------v
#-- scroll-list of observatories
%labelobs = (
'001','ATCA Narrabri, Australia ',
'002','Aachen, Germany ',
'003','Aberdeen, Scotland ',
'004','Abilene, Texas ',
'005','Adelaide SA, Australia ',
'006','Akron, Ohio ',
'007','Albany, New York ',
'008','Albuquerque, New Mexico ',
'009','Alice Springs, NT, Australia ',
'010','Allegheny Observatory ',
'011','Allentown, Pennsylvania ',
'012','Altoona, Pennsylvania ',
'013','Amarillo, Texas ',
'014','Amsterdam, Netherlands ',
'015','Anchorage, Alaska ',
'016','Anglo-Australian Observatory ',
'017','Ann Arbor, Michigan ',
'018','Antwerp, Belgium ',
'019','Archenhold-Sternwarte ',
'020','Arecibo Radiotelescope, Puerto Rico ',
'021','Arlington, Virginia ',
'022','Asheville, North Carolina ',
'023','Ashland, Kentucky ',
'024','Astronomisches Inst. Univ. Obs. ',
'025','Astrophys. Research Consortium (ARC) ',
'026','Athens, Greece ',
'027','Atlanta, Georgia ',
'028','Atlantic City, New Jersey ',
'029','Augusta, Georgia ',
'030','Augusta, Maine ',
'031','Austin, Texas ',
'032','BIMA, Hat Creek, California ',
'033','Bakersfield, California ',
'034','Baltimore, Maryland ',
'035','Bangkok, Thailand ',
'036','Bangor, Maine ',
'037','Barcelona, Spain ',
'038','Baton Rouge, Louisiana ',
'039','Battle Creek, Michigan ',
'040','Batumi, Georgia ',
'041','Bay City, Michigan ',
'042','Beaumont, Texas ',
'043','Beijing, China ',
'044','Beirut, Lebanon ',
'045','Belfast, Northern Ireland ',
'046','Bellingham, Washington ',
'047','Bentley WA, Australia ',
'048','Berkeley, California ',
'049','Berlin, Germany ',
'050','Bethlehem, Pennsylvania ',
'051','Billings, Montana ',
'052','Biloxi, Mississippi ',
'053','Binghamton, New York ',
'054','Birmingham, Alabama ',
'055','Bisei Spaceguard Center ',
'056','Bismarck, North Dakota ',
'057','Bloomington, Illinois ',
'058','Bogota, Columbia ',
'059','Boise, Idaho ',
'060','Bombay, India ',
'061','Bonn, Germany ',
'062','Bordeaux, France ',
'063','Boston, Massachusetts ',
'064','Bowling Green, Kentucky ',
'065','Bratislava, Slovak Republic ',
'066','Brattleboro, Vermont ',
'067','Brest, France ',
'068','Bridgeport, Connecticut ',
'069','Brisbane Qld, Australia ',
'070','Brockton, Massachusetts ',
'071','Brownsville, Texas ',
'072','Brussels, Belgium ',
'073','Budapest, Hungary ',
'074','Buenos Aires, Argentina ',
'075','Buffalo, New York ',
'076','Burlington, Vermont ',
'077','Butte, Montana ',
'078','Buxton, North Carolina ',
'079','Byurakan Observatory ',
'080','Cairo, Egypt ',
'081','Calar Alto Observatory ',
'082','Cambridge, England ',
'083','Cambridge, Massachusetts ',
'084','Camden, New Jersey ',
'085','Canada-France-Hawaii Tel. (CFHT) ',
'086','Canberra ACT, Australia ',
'087','Canton, Ohio ',
'088','Capetown, South Africa ',
'089','Carson City, Nevada ',
'090','Casey Observatory, AAT ',
'091','Catalina Observatory, Mt. Bigelow ',
'092','Cedar Rapids, Iowa ',
'093','Central Islip, New York ',
'094','Cerro Tololo Inter-American Obs. ',
'095','Champaign, Illinois ',
'096','Charleston, South Carolina ',
'097','Charleston, West Virginia ',
'098','Charlotte, North Carolina ',
'099','Chattanooga, Tennessee ',
'100','Cheyenne, Wyoming ',
'101','Chicago, Illinois ',
'102','Cincinnatti, Ohio ',
'103','Cleveland, Ohio ',
'104','Cologne, Germany ',
'105','Colorado Springs, Colorado ',
'106','Columbia, Missouri ',
'107','Columbia, South Carolina ',
'108','Columbus Project ',
'109','Columbus, Georgia ',
'110','Columbus, Ohio ',
'111','Concord, New Hampshire ',
'112','Corpus Christi, Texas ',
'113','Crete, Greece ',
'114','Crimean Astrophysical Obs. ',
'115','Dallas, Texas ',
'116','Darwin, NT, Australia ',
'117','Davenport, Iowa ',
'118','Davis Observatory, AAT ',
'119','Dayton, Ohio ',
'120','Daytona Beach, Florida ',
'121','Decatur, Illinois ',
'122','Denver, Colorado ',
'123','Des Moines, Iowa ',
'124','Detroit, Michigan ',
'125','Dodge City, Kansas ',
'126','Dominion Astrophysical Observatory ',
'127','Dominion Radio Astro. Observatory ',
'128','Dublin, Ireland ',
'129','Dubuque, Iowa ',
'130','Duluth, Minnesota ',
'131','Durham, North Carolina ',
'132','ESO 1-meter Schmidt Telescope ',
'133','Eau Claire, Wisconsin ',
'134','Edinburgh, Scotland ',
'135','Edmonton Alberta, Canada ',
'136','Effelsberg 100m Radiotelescope ',
'137','El Paso, Texas ',
'138','Elizabeth, New Jersey ',
'139','Enid, Oklahoma ',
'140','Erie, Pennsylvania ',
'141','Eugene, Oregon ',
'142','Eureka, California ',
'143','European Southern Observatory (NTT) ',
'144','European Southern Observatory (VLT) ',
'145','Evansville, Indiana ',
'146','Fall River, Massachusetts ',
'147','Fargo, North Dakota ',
'148','Flagstaff, Arizona ',
'149','Flint, Michigan ',
'150','Fort Smith, Arkansas ',
'151','Fort Wayne, Indiana ',
'152','Fort Worth, Texas ',
'153','Frankfurt, Germany ',
'154','Fresno, California ',
'155','Gadsden, Alabama ',
'156','Gainesville, Florida ',
'157','Gallup, New Mexico ',
'158','Galveston, Texas ',
'159','Gary, Indiana ',
'160','Gemini Telescope (north) ',
'161','Gemini Telescope (south) ',
'162','Geneva, Switzerland ',
'163','Gillam Manitoba, Canada ',
'164','Grand Junction, Colorado ',
'165','Grand Rapids, Michigan ',
'166','Great Falls, Montana ',
'167','Green Bay, Wisconsin ',
'168','Greensboro, North Carolina ',
'169','Greenville, South Carolina ',
'170','Greenwich, England ',
'171','Groton, New York ',
'172','Guatemala City, Guatemala ',
'173','Gulfport, Mississippi ',
'174','Halifax Nova Scotia, Canada ',
'175','Hamburg, Germany ',
'176','Hamilton, Ohio ',
'177','Hannover, Germany ',
'178','Harare, Zimbabwe ',
'179','Harrisburg, Pennsylvania ',
'180','Hartford, Connecticut ',
'181','Helena, Montana ',
'182','Helsinki, Finland ',
'183','Hobart Tas, Australia ',
'184','Holyoke, Massachusetts ',
'185','Honolulu, Hawaii ',
'186','Houston, Texas ',
'187','Huntington, West Virginia ',
'188','Huntsville, Alabama ',
'189','Indianapolis, Indiana ',
'190','Iowa City, Iowa ',
'191','Isaac Newton Telescope (98-inch) ',
'192','Jackson, Michigan ',
'193','Jackson, Mississippi ',
'194','Jacksonville, Florida ',
'195','Jakarta, Indonesia ',
'196','Jersey City, New Jersey ',
'197','Jerusalem, Israel ',
'198','Johannesburg, South Africa ',
'199','Johnstown, Pennsylvania ',
'200','Joplin, Missouri ',
'201','Juneau, Alaska ',
'202','KHBI, Saipan, MI ',
'203','Kalamazoo, Michigan ',
'204','Kansas City, Kansas ',
'205','Kansas City, Missouri ',
'206','Karl Schwarzschild Observatorium ',
'207','Kenosha, Wisconsin ',
'208','Kensington NSW, Australia ',
'209','Key West, Florida ',
'210','Kiso Observatory ',
'211','Kitt Peak National Obs. ',
'212','Knoxville, Tennessee ',
'213','Kuala Lumpur, Malaysia ',
'214','Lafayette, Indiana ',
'215','Lancaster, Pennsylvania ',
'216','Lansing, Michigan ',
'217','Laredo, Texas ',
'218','Large Earth-based Solar Tel. (LEST) ',
'219','Las Campanas Observatory ',
'220','Las Vegas, Nevada ',
'221','Lawrence, Massachusetts ',
'222','Leander McCormick Observatory ',
'223','Learmonth Solar Observatory ',
'224','Lexington, Kentucky ',
'225','Lick Observatory ',
'226','Lille, France ',
'227','Lima, Ohio ',
'228','Lincoln, Nebraska ',
'229','Lisbon, Portugal ',
'230','Little Rock, Arkansas ',
'231','London, England ',
'232','Long Beach, California ',
'233','Longyearbyen, Norway ',
'234','Lorain, Ohio ',
'235','Los Angeles, California ',
'236','Louisville, Kentucky ',
'237','Lowell, Massachusetts ',
'238','Lubbock, Texas ',
'239','Lund, Sweden ',
'240','Luxembourg, Luxembourg ',
'241','MMT ',
'242','Macon, Georgia ',
'243','Macquarie Island, AAT ',
'244','Madison, Wisconsin ',
'245','Madrid, Spain ',
'246','Managua, Nicaragua ',
'247','Manchester, New Hampshire ',
'248','Marseille, France ',
'249','Marshall, Texas ',
'250','Mauna Kea Observatory (NASA IRTF) ',
'251','Mawson Observatory, AAT ',
'252','McDonald Observatory ',
'253','Melbourne Vic, Australia ',
'254','Memphis, Tennessee ',
'255','Meriden, Connecticut ',
'256','Miami, Florida ',
'257','Michigan-Dartmouth-MIT Obs. ',
'258','Milano, Italy ',
'259','Milwaukee, Wisconsin ',
'260','Minneapolis, Minnesota ',
'261','Minot, North Dakota ',
'262','Mobile, Alabama ',
'263','Moline, Illinois ',
'264','Montgomery, Alabama ',
'265','Montpelier, Vermont ',
'266','Montreal Quebec, Canada ',
'267','Moratuwa, Sri Lanka ',
'268','Moscow, Russia ',
'269','Mount Wilson Observatory ',
'270','Mt. Stromlo Observatory ',
'271','Muncie, Indiana ',
'272','Munich, Germany ',
'273','Nancay Radiotelescope, France ',
'274','Nashville, Tennessee ',
'275','Natchez, Mississippi ',
'276','National Astronomy Obs. (Japan) ',
'277','New Bedford, Massachusetts ',
'278','New Britain, Connecticut ',
'279','New Delhi, India ',
'280','New Haven, Connecticut ',
'281','New Orleans, Louisiana ',
'282','New York, New York ',
'283','Newark, New Jersey ',
'284','Newcastle NSW, Australia ',
'285','Niagara Falls, New York ',
'286','Nordic Optical Telescope ',
'287','Norfolk, Virginia ',
'288','North Liberty Radio Observatory ',
'289','OAB, Brera (MI), Italy ',
'290','OAB, Merate (LC), Italy ',
'291','Oakland, California ',
'292','Obs. Astro. Nacional, San Pedro Martir ',
'293','Obs. Astro. Nacional, Tonantzintla ',
'294','Observatoire Royal de Belgique ',
'295','Observatoire de Besancon ',
'296','Observatoire de Calern ',
'297','Observatoire de Nice ',
'298','Observatoire de Paris ',
'299','Ogden, Utah ',
'300','Oklahoma City, Oklahoma ',
'301','Old Royal Observatory ',
'302','Omaha, Nebraska ',
'303','Orlando, Florida ',
'304','Oschin 48-inch Telescope ',
'305','Oslo, Norway ',
'306','Ottawa Ontario, Canada ',
'307','Paducah, Kentucky ',
'308','Palomar Observatory (200 inch) ',
'309','Paris, France ',
'310','Parkes Radiotelescope, Australia ',
'311','Pasadena, California ',
'312','Paterson, New Jersey ',
'313','Pensacola, Florida ',
'314','Peoria, Illinois ',
'315','Perth, WA, Australia ',
'316','Philadelphia, Pennsylvania ',
'317','Phoenix, Arizona ',
'318','Pierre, South Dakota ',
'319','Pittsburgh, Pennsylvania ',
'320','Pittsfield, Massachusetts ',
'321','Pocatello, Idaho ',
'322','Port Arthur, Texas ',
'323','Portland, Maine ',
'324','Portland, Oregon ',
'325','Portsmouth, New Hampshire ',
'326','Portsmouth, Virginia ',
'327','Prague, Czech Republic ',
'328','Pretoria, South Africa ',
'329','Providence, Rhode Island ',
'330','Provo, Utah ',
'331','Pueblo, Colorado ',
'332','Racine, Wisconsin ',
'333','Radioastrophysical Observatory ',
'334','Raleigh, North Carolina ',
'335','Rankin Inlet Nunavut, Canada ',
'336','Rapid City, South Dakota ',
'337','Reading, Pennsylvania ',
'338','Reno, Nevada ',
'339','Reykjavik, Iceland ',
'340','Richmond, Virginia ',
'341','Rio de Janeiro, Brazil ',
'342','Roanoke, Virginia ',
'343','Rochester, Minnesota ',
'344','Rochester, New York ',
'345','Rockford, Illinois ',
'346','Rome, Italy ',
'347','Roque de los Muchachos, La Palma ',
'348','Royal Greenwich Observatory ',
'349','Sacramento, California ',
'350','Saginaw, Michigan ',
'351','Saint Cloud, Minnesota ',
'352','Saint Joseph, Missouri ',
'353','Saint Louis, Missouri ',
'354','Saint Lucia Qld, Australia ',
'355','Saint Paul, Minnesota ',
'356','Saint Petersburg, Florida ',
'357','Salem, Oregon ',
'358','Salina, Kansas ',
'359','Salt Lake City, Utah ',
'360','Salzburg, Austria ',
'361','San Angelo, Texas ',
'362','San Antonio, Texas ',
'363','San Bernardino, California ',
'364','San Diego, California ',
'365','San Francisco, California ',
'366','San Jose, California ',
'367','San Juan, Puerto Rico ',
'368','Santa Barbara, California ',
'369','Santa Cruz, California ',
'370','Santa Fe, New Mexico ',
'371','Santiago, Chile ',
'372','Santo Domingo, Dominican Republic ',
'373','Sapporo, Japan ',
'374','Sarasota, Florida ',
'375','Savannah, Georgia ',
'376','Schenectady, New York ',
'377','Scranton, Pennsylvania ',
'378','Seattle, Washington ',
'379','Sheboygan, Wisconsin ',
'380','Sheridan, Wyoming ',
'381','Shreveport, Louisiana ',
'382','Siding Spring Observatory ',
'383','Singapore, Singapore ',
'384','Sioux City, Iowa ',
'385','Sioux Falls, South Dakota ',
'386','Sofia, Bulgaria ',
'387','Somerville, Massachusetts ',
'388','South Bend, Indiana ',
'389','Space Telescope Science Inst. ',
'390','Spartanburg, South Carolina ',
'391','Special Astrophysical Obs. ',
'392','Spokane, Washington ',
'393','Springfield, Illinois ',
'394','Springfield, Massachusetts ',
'395','Springfield, Missouri ',
'396','Springfield, Ohio ',
'397','St. Petersburg, Russia ',
'398','Stamford, Connecticut ',
'399','Steubenville, Ohio ',
'400','Stockholm, Sweden ',
'401','Stockton, California ',
'402','Strasbourg, France ',
'403','Stuttgart, Germany ',
'404','Superior, Wisconsin ',
'405','Sydney NSW, Australia ',
'406','Syracuse, New York ',
'407','Tacoma, Washington ',
'408','Taipei, Taiwan ',
'409','Tallahassee, Florida ',
'410','Tallinn, Estonia ',
'411','Tampa, Florida ',
'412','Telescopio Nazionale Galileo ',
'413','Terre Haute, Indiana ',
'414','Texarkana, Texas ',
'415','Tokyo, Japan ',
'416','Toledo, Ohio ',
'417','Topeka, Kansas ',
'418','Toronto Ontario, Canada ',
'419','Torun Radiotelescope, Poland ',
'420','Torus Observatory ',
'421','Trenton, New Jersey ',
'422','Tromso, Norway ',
'423','Troy, New York ',
'424','Tucson, Arizona ',
'425','Tulsa, Oklahoma ',
'426','U. S. Naval Observatory ',
'427','United Kingdom Infrared Tel. (UKIRT) ',
'428','United Kingdom Schmidt Tel. Unit ',
'429','Univ. of BC and Laval Univ. ',
'430','Uppsala University Observatory ',
'431','Urbana, Illinois ',
'432','Utica, New York ',
'433','VLA, New Mexico ',
'434','VLBA, Brewster, WA ',
'435','VLBA, Fort Davis, TX ',
'436','VLBA, Hancock, NH ',
'437','VLBA, Kitt Peak, AZ ',
'438','VLBA, Los Alamos, NM ',
'439','VLBA, Mauna Kea, HI ',
'440','VLBA, N. Liberty, IA ',
'441','VLBA, Owens Vly., CA ',
'442','VLBA, Pie Town, NM ',
'443','VLBA, St. Croix, VI ',
'444','Vainu Bappu Observatory ',
'445','Vancouver British Columbia, Canada ',
'446','Varna, Bulgaria ',
'447','Venezuela 1-meter Schmidt ',
'448','Victoria British Columbia, Canada ',
'449','Vienna, Austria ',
'450','W. M. Keck Observatory ',
'451','WIYN Observatory ',
'452','WSHB, Cyprus Creek, South Carolina ',
'453','Waco, Texas ',
'454','Walla Walla, Washington ',
'455','Warsaw, Poland ',
'456','Washington, DC ',
'457','Waterbury, Connecticut ',
'458','Waterloo, Iowa ',
'459','Wellington, New Zealand ',
'460','West Palm Beach, Florida ',
'461','Wheeling, West Virginia ',
'462','White Plains, New York ',
'463','Wichita Falls, Texas ',
'464','Wichita, Kansas ',
'465','Wilkes-Barre, Pennsylvania ',
'466','William Herschel Telescope ',
'467','Wilmington, Delaware ',
'468','Wilmington, North Carolina ',
'469','Winer Mobile Observatory ',
'470','Winnipeg Manitoba, Canada ',
'471','Winston-Salem, North Carolina ',
'472','Wollongong NSW, Australia ',
'473','Worcester, Massachusetts ',
'474','Wyoming Infrared Observatory ',
'475','Yakima, Washington ',
'476','Yerkes Observatory ',
'477','Yonkers, New York ',
'478','York, Pennsylvania ',
'479','Youngstown, Ohio ',
'480','Yuma, Arizona ',
'481','Zagreb, Croatia ',
'482','Zanesville, Ohio ',
'483','Zentralinstitut fur Astrophysik ',
'484','Zurich, Switzerland ',
'XXX','the_end'
);

print "

1. List: ",
$query->scrolling_list(
-name=>'obs',
-values=>[
'001','002','003','004','005','006','007','008','009','010','011','012','013',
'014','015','016','017','018','019','020','021','022','023','024','025','026',
'027','028','029','030','031','032','033','034','035','036','037','038','039',
'040','041','042','043','044','045','046','047','048','049','050','051','052',
'053','054','055','056','057','058','059','060','061','062','063','064','065',
'066','067','068','069','070','071','072','073','074','075','076','077','078',
'079','080','081','082','083','084','085','086','087','088','089','090','091',
'092','093','094','095','096','097','098','099','100','101','102','103','104',
'105','106','107','108','109','110','111','112','113','114','115','116','117',
'118','119','120','121','122','123','124','125','126','127','128','129','130',
'131','132','133','134','135','136','137','138','139','140','141','142','143',
'144','145','146','147','148','149','150','151','152','153','154','155','156',
'157','158','159','160','161','162','163','164','165','166','167','168','169',
'170','171','172','173','174','175','176','177','178','179','180','181','182',
'183','184','185','186','187','188','189','190','191','192','193','194','195',
'196','197','198','199','200','201','202','203','204','205','206','207','208',
'209','210','211','212','213','214','215','216','217','218','219','220','221',
'222','223','224','225','226','227','228','229','230','231','232','233','234',
'235','236','237','238','239','240','241','242','243','244','245','246','247',
'248','249','250','251','252','253','254','255','256','257','258','259','260',
'261','262','263','264','265','266','267','268','269','270','271','272','273',
'274','275','276','277','278','279','280','281','282','283','284','285','286',
'287','288','289','290','291','292','293','294','295','296','297','298','299',
'300','301','302','303','304','305','306','307','308','309','310','311','312',
'313','314','315','316','317','318','319','320','321','322','323','324','325',
'326','327','328','329','330','331','332','333','334','335','336','337','338',
'339','340','341','342','343','344','345','346','347','348','349','350','351',
'352','353','354','355','356','357','358','359','360','361','362','363','364',
'365','366','367','368','369','370','371','372','373','374','375','376','377',
'378','379','380','381','382','383','384','385','386','387','388','389','390',
'391','392','393','394','395','396','397','398','399','400','401','402','403',
'404','405','406','407','408','409','410','411','412','413','414','415','416',
'417','418','419','420','421','422','423','424','425','426','427','428','429',
'430','431','432','433','434','435','436','437','438','439','440','441','442',
'443','444','445','446','447','448','449','450','451','452','453','454','455',
'442', '443', '444', '445', '446', '447', '448', '449', '450', '451',
'452', '453', '454', '455', '456', '457', '458', '459', '460', '461',
'462', '463', '464', '465', '466', '467', '468', '469', '470', '471',
'472', '473', '474', '475', '476', '477', '478', '479', '480', '481',
'482', '483', '484'],
-size=>5,
-default=>'144',
-labels=>\%labelobs
);
#-------insert result of obs_con here------^

print "

2. Coordinates: Longitude=",$query->textfield(-name=>'long',
-size=>7,
-maxlength=>7,
-default=>'155.46'),
"deg. West; Latitude=", $query->textfield(-name=>'lat',
-size=>7,
-maxlength=>7,
-default=>'19.83'),
"deg.";

%labelgrid = ('1', 'Professional (airmasses),',
'2', 'Amateur (degrees).',
);

print "

Select the altitude grid: ",
$query->radio_group(-name=>'grid',
-values=>['1','2'],
-labels=>\%labelgrid,
-default=>'2'
),"\n";

%labeliwhat = ('0', 'R.A., Dec. grid (about 1Mb),',
'1', "Transparent Overlay (about 1Mb),",
'2', 'Altitude (54Ko).',
'3', 'all three',
'4', '___Secret button___'
);

print "

What do you want?
",
$query->radio_group(-name=>'iwhat',
-values=>['0','1','2','3'],
-labels=>\%labeliwhat,
-default=>'3'
);
print "

";

print $query->submit(-value=>'Do it'),
' Warning it takes',
' some time (up to a couple of minutes)! don\'t be impatient!
';
print $query->reset;

print $query->endform;

}

print <

[

Astrolabe Instructions on Karen Meech's Education Page

]

[
IfA
|

Bugs/Comments?
]

Olivier Hainaut

Update: Tue Jun 24 19:00:12 HST 1997

END

system('rm -f ps_* core')