src/utils/qa/getRRtableStatus.csh 1.13

Index: src/utils/qa/getRRtableStatus.csh
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/utils/qa/getRRtableStatus.csh,v
retrieving revision 1.12
retrieving revision 1.13
diff -b -B -U 1000000 -r1.12 -r1.13
--- src/utils/qa/getRRtableStatus.csh	8 Sep 2009 17:47:26 -0000	1.12
+++ src/utils/qa/getRRtableStatus.csh	10 Sep 2009 22:33:57 -0000	1.13
@@ -1,90 +1,103 @@
 #!/bin/tcsh
 source `which qaConfig.csh`
 
 ################################
 #  12-31-04
 #  gets the status of any table from an RR database
 #  using mark's genbank dumps.
 #
 #  Robert Kuhn
 ################################
 
 set db=""
 set machine="hgnfs1"
 set table=""
 set field=""
 set dumpfile=""
 
-if ( $#argv != 3 ) then
+if ( $#argv < 3 || $#argv > 4 ) then
   echo
   echo "  gets the status of any table from the RR database."
   echo "  using mark's genbank dumps."
   echo "    warning:  not in real time.  uses overnight dump."
   echo
-  echo "    usage: database table field "
+  echo "    usage: database table field [hgwdev | hgwbeta | rr]"
   echo "    fields available: Name, Engine, Version, Row_format, Rows, "
   echo "        Avg_row_length, Data_length, Max_data_length, Index_length, "
   echo "        Data_free, Auto_increment, Create_time, Update_time, "
   echo "        Check_time, Create_options, Comment"
   echo
+  echo "           defaults to rr. optionally accepts dev or beta"
+  echo
   exit
 else
   set db=$argv[1]
   set table=$argv[2]
   set field=$argv[3]
 endif
 
-set dumpfile=`getRRdumpfile.csh $db`
+if ( $#argv == 4 ) then
+  set machine=$argv[4]
+  echo $machine | egrep -q "hgwdev|hgwbeta|rr"
+  if ( $status ) then
+    echo
+    echo " fourth parameter must be hgwdev, hgwbeta or rr"
+    echo
+    exit 1
+  endif
+endif
+
+set dumpfile=`getRRdumpfile.csh $db $machine`
 if ( $status ) then
   echo
   echo "  database $db -- not found in status dumps"
   echo
   exit 1
 endif
 
 # check that table exists in dump of this database
 cat $dumpfile | grep -w "^$table" > /dev/null
 if ( $status ) then
   echo
   echo "  table $table -- not found in database $db"
   echo
   exit 1
 endif
 
 # check if $field is legit
 head -1 $dumpfile | grep -iw "$field" > /dev/null
 if ( $status ) then
   echo
   echo "  $field -- no such field in TABLE STATUS output"
   echo "  for $db.$table.  try one of the following"
   echo
   head -1 $dumpfile | sed -e "s/\t/\n/g" 
   echo
   exit 1
 endif
 
 
 # set variable to index of field in STATUS dump
 set fieldval=`head -1 $dumpfile | sed -e "s/\t/\n/g" | grep -iwn "$field" \
       | gawk -F":" '{print $1}'`
 
 # print the field for the desired table
 cat $dumpfile | grep -w "^$table" | sed -e "s/\t/\n/g" | sed -n "${fieldval}p" 
 
 set debug="false"
 # set debug="true"
 if ( $debug == "true" ) then
   echo
   echo "database = $db"
   echo "table    = $table"
   echo "field    = $field"
   echo "machine  = $machine"
   echo
   echo "machpath = $machpath"
   echo "dumpfile = $dumpfile"
   echo "fieldval = $fieldval"
   echo
   # exit
 endif
 
 exit