src/utils/qa/blatPing.csh 1.4

Index: src/utils/qa/blatPing.csh
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/utils/qa/blatPing.csh,v
retrieving revision 1.3
retrieving revision 1.4
diff -b -B -U 1000000 -r1.3 -r1.4
--- src/utils/qa/blatPing.csh	26 Nov 2008 21:19:33 -0000	1.3
+++ src/utils/qa/blatPing.csh	11 Apr 2009 00:37:01 -0000	1.4
@@ -1,46 +1,47 @@
 #!/bin/tcsh
+source `which qaConfig.csh`
 
 cd ${HOME}
 
 if ( "$HOST" != "hgwdev" ) then
     echo "error: you must run this script on dev!"
     exit 1
 endif
 
 hgsql -h genome-centdb hgcentral -B -N -e "SELECT db, host, port FROM blatServers \
   ORDER BY db, host, port" > blatList
 set list = (`cat blatList`)
 
 # next line just for testing:
 #set list = (xx1 blat13 17779 xx2 blat14 17779 xx3 blat12 17779)
 set problems = ()
 while ( "$list" != "" )
     set db = $list[1]
     shift list
     set host = $list[1]
     shift list
     set port = $list[1]
     shift list
     #-- use to remove monotonous long-running blat failures:
     #if ("$db" != "rn2") then
      echo "$db $host $port"
      gfServer status $host $port > /dev/null
      set err = $status
      if ( $err ) then
  	echo "error $err on ${db} ${host}:${port}"
  	set problems = ($problems"${db} ${host}:${port}\n")
      endif
     #endif
 end
 echo
 echo "Summary:"
 if ( "$problems" != "") then
     echo "problems:"
     echo "$problems"
     echo "$problems" | mail -s "BLAT ping failures." galt kuhn donnak
     # use the next line to manually disable if too many failures annoying.
     #mv blatPing.csh blatPing.csh.hold 
 else
     echo "blat ping all ok."
     rm -f blatList
 endif