#!/usr/bin/perl $path = "/var/www/html/obey/db/"; $jpgPath = "http://www.astro.yale.edu/obey/jpegs/"; $usrPath = "/var/www/html/obey/"; $webPath = "http://www.astro.yale.edu/obey/"; $webcgiPath = "http://www.astro.yale.edu/obey/cgi-bin/"; $fitsPath = "http://www.astro.yale.edu/obey/fits/"; $usrFile ="galaxy.dat"; print "Content-type:text/html\n\n"; $zID = @ARGV[0]; chomp $zID; $goodPage = 0; $tborder = 0; $tmpFits = "_b2.fits"; $tmpMod = "_b2_mod.fits"; $grpString = "Error"; # Check for valid name format. if ($zID =~/^[a-zA-Z0-9]+$/){ # Check to see if user exists. open (names, "$path/$usrFile"); foreach () { chomp $_; ($tgalid,$tcat,$tgalaxy,$trah,$tram,$tras,$tdecd,$tdecm, $tdecs,$tdist,$tglat,$ttidpar) = split(/<:>/, $_); if ($tgalid =~ /^$zID$/) { $goodPage=1; $number = $tgalaxy; $galid = $tgalid; $galname = "$tcat $tgalaxy"; $rah = $trah; $ram = $tram; $ras = $tras; $decd = $tdecd; $decm = $tdecm; $decs = $tdecs; $dist = $tdist; $glat = $tglat; $tidpar = $ttidpar; $dispimage = "$galid.jpg"; $decdecimal=$decd+$decm/60.+$decs/3600.; $radecimal=15.*($rah+($ram/60.)+($ras/3600.));#$tradecimal*15.0; $fitsname="$galid$tmpFits"; $modname="$galid$tmpMod"; } } close names; } print " The OBEY Survey - $galname
\"$galname\"
$galname
RA (J2000.0) $rah:$ram:$ras
Dec (J2000.0) $decd:$decm:$decs
Distance $dist Mpc
Galactic Latitude $glat
Tidal Parameter $tidpar
Download FITS files here (Both frames are 1267x1268 pixels at 1.156 \"/pixel):
Reduced data frame
Model fit
";