#!/bin/sh
#+
# barcode2radec -- given slitmask barcode, return RA/Dec
#
# Purpose:
#	Given the barcode number of a slitmask, query the database to
#	retrieve the mask center coordinates, equinox, and PA
#
# Usage:
#	barcode2radec <barcode>
# 
# Arguments:
#	barcode = integer barcode number
# 
# Output:
#	If a match is found, returns the following values on STDOUT:
#	- guiname
#	- ra [deg]
#	- dec [deg]
#	- equinox
#	- pa [deg]
# 
# Restrictions:
#	- Must execute on polo as a deimos account
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
#
# Example:
#	> barcode2radec 7148
#	bck11x 189.303280 62.218216 2000.000000 52.700000
#-
# Modification history:
#	2011-Feb-05	GDW	Original version
#	2013-Mar-29	GDW	Add check for barcode
#	2013-Apr-11	GDW	Ensure that all invocations of 
#				"inventory" use full path, so that it 
#				will work for LRIS.
#-----------------------------------------------------------------------

cmd=`basename $0`

# verify number of args...
if [ $# = 1 ]; then
    barcode=$1
else
    printf "Usage: $cmd <barcode>\n\a"
    exit 1
fi

# verify that we are on the correct host machine...
myhost=`/bin/hostname`
goodhost=`/bin/rsh deimosserver hostname`
if [ "$myhost" != "$goodhost" ]; then
    printf "[$cmd] ERROR: current host is $myhost, but this script must run on $goodhost -- abort!\n\a"
    exit 1
fi

# confirm that barcode is legal...
/home/deimos/bin/inventory s | awk "/barcode=$barcode/{exit 1}"
if [ $? != 1 ]; then
    printf "[$cmd] ERROR: no mask with barcode=$barcode found in database -- abort!\n\a"
    exit 1
fi

# define where Sybase is installed...
SYBASE=/local/sybase
export SYBASE

# this chokes many Sybase utilities if not blank...
LANG=
export LANG

# at Lick the server is YAKUZA (well sort of)
# at Keck the server is KSUMMIT
# this is translated by $SYBASE/interfaces file
sybserv=KSUMMIT

# who do we want to be on the Sybase server?
sybuser=ktlw

# shhh! (this is supposed to be secret)
sybpass=ofFish

# define names of output files...
outfile=/tmp/$cmd.outfile.$$
errfile=/tmp/$cmd.errfile.$$

# convert barcode to desid...
bluid=`/home/deimos/bin/inventory s b $barcode i`
guiname=`/home/deimos/bin/inventory s b $barcode g`

# translate desid to bluid...
sqlquery="select BluId,DesId from metabase.dbo.MaskBlu where BluId=$bluid"
$SYBASE/bin/isql -S$sybserv -U$sybuser > $outfile 2> $errfile <<EOF
$sybpass
use metabase
go
$sqlquery
go
EOF

# verify output...
if [ ! -r $outfile ]; then
    printf "[$cmd] ERROR: outfile file not written -- abort!\n"
    exit 1
fi

# check the number of returned lines...
nl_good=6
nl=`wc -l $outfile | awk '{print $1}'`
if [ $nl -ne $nl_good ]; then
    printf "[$cmd] ERROR: expected $nl_good lines from sybase but only received $nl -- abort!\n"
    exit 1
fi

# extract results...
bluid2=`awk 'NR==4{print $1}' $outfile`
desid=`awk 'NR==4{print $2}' $outfile`

# cleanup...
if [ -r $outfile ]; then
    /bin/rm $outfile
fi
if [ -r $errfile ]; then
    /bin/rm $errfile
fi

# validate results...
if [ $bluid != $bluid2 ]; then
    printf "[$cmd] ERROR: asked for data on bluid=$bluid but got data on bluid=$bluid2 -- abort!\n"
    exit 1
fi

# build new query...
sqlquery="select DesId,DesName,RA_PNT,DEC_PNT,EQUINPNT,PA_PNT from metabase.dbo.MaskDesign where DesId=$desid"

# use a "here document" as input to isql...
## $SYBASE/bin/isql -S$sybserv -U$sybuser <<EOF
$SYBASE/bin/isql -S$sybserv -U$sybuser > $outfile 2> $errfile <<EOF
$sybpass
use metabase
go
$sqlquery
go
EOF

# debugging output...
if [ $debug ]; then
    printf "\n"
    printf "outfile is $outfile ----------------------------------------\n"
    cat $outfile
    printf "\n"
    printf "errfile is $errfile ----------------------------------------\n"
    cat $errfile
    printf "\n"
fi

# verify output...
if [ ! -r $outfile ]; then
    printf "[$cmd] ERROR: outfile file not written -- abort!\n"
    exit 1
fi

# check the number of returned lines...
nl_good=15
nl=`wc -l $outfile | awk '{print $1}'`
if [ $nl -ne $nl_good ]; then
    printf "[$cmd] ERROR: expected $nl_good lines from sybase but only received $nl -- abort!\n"
    exit 1
fi

# output...
desid2=`awk 'NR==10{print $1}' $outfile`
maskname=`awk 'NR==11{print $1}' $outfile`
ra=`awk 'NR==12{print $1}' $outfile`
dec=`awk 'NR==12{print $2}' $outfile`
equinox=`awk 'NR==12{print $3}' $outfile`
pa=`awk 'NR==13{print $1}' $outfile`
printf "$maskname $ra $dec $equinox $pa\n"

# validate output...
if [ $desid != $desid2 ]; then
    printf "[$cmd] ERROR: asked for data on desid=$desid but got data on desid=$desid2 -- abort!\n"
    exit 1
fi

# cleanup...
if [ -r $outfile ]; then
    /bin/rm $outfile
fi
if [ -r $errfile ]; then
    /bin/rm $errfile
fi

exit