src/utils/qa/alertBqueue.csh 1.10

Index: src/utils/qa/alertBqueue.csh
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/utils/qa/alertBqueue.csh,v
retrieving revision 1.9
retrieving revision 1.10
diff -b -B -U 1000000 -r1.9 -r1.10
--- src/utils/qa/alertBqueue.csh	11 Apr 2009 00:37:01 -0000	1.9
+++ src/utils/qa/alertBqueue.csh	14 May 2009 22:27:41 -0000	1.10
@@ -1,83 +1,89 @@
 #!/bin/tcsh
 source `which qaConfig.csh`
 
 ################################
 #  
 #  10-03-2008
 #
 #  checks pushQ for B entries and send email to developer and QA
 #
 #  Robert Kuhn
 #
 ################################
 
 set go=""
 # make lists of substitutions for email addresses
 set counter=( 1 2 3 4 5 6 7 8 9 10 11 12 )
 set alias=( andy belinda  brian  brooke bob  fan    jim  jing larry  mark  rachel  zach     )
 set email=( aamp giardine braney rhead  kuhn fanhsu kent jzhu larrym markd hartera jsanborn )
 
 
 if ( $#argv != 1  ) then
   echo
   echo "  checks pushQ for B entries and sends email to developer and QA."
   echo "  uses hard-coded aliases to get email address from nicknames."
   echo
   echo "    usage:  go"
   echo
   exit
 else
   set go=$argv[1]
 endif
 
 if ( "$HOST" != "hgwdev" ) then
   echo "\n error: you must run this script on dev!\n"
   exit 1
 endif
 
 if ( $go != "go" ) then
   echo 
   echo ' only the argument "go" is allowed.'
   echo 
   exit 1
 endif 
 
 # echo "testing \n \n sending only to ann and bob right now \n \n "  > Bfile
 echo "greetings. \n\n  you have content in the B-queue that someone should look at." > Bfile
 echo "  this is a periodic reminder from a QA cronjob.\n" >> Bfile
 hgsql -h $sqlbeta -t -e "SELECT dbs, track, reviewer, sponsor, \
   qadate FROM pushQ WHERE priority = 'B' ORDER BY qadate" qapushq >> Bfile
 
 # get list of all developers and QA involved in B-queue tracks
 set contacts=`hgsql -N -h $sqlbeta -e "SELECT sponsor, reviewer, sponsor FROM pushQ \
   WHERE priority = 'B'" qapushq`
 # clean up list to get unique names
 set contacts=`echo $contacts | sed "s/,/ /g" | sed "s/ /\n/g" \
   | perl -wpe '$_ = lcfirst($_);' | sort -u`
 
 set debug=false
 if ( $debug == "true" ) then
-  # set contacts="kate, fan ting ann Hiram rachel Andy andy bob kayla"
-  echo "contacts $contacts"
+  echo "\ncontacts $contacts"
     set contacts=`echo $contacts | sed "s/,/ /" | sed "s/ /\n/g" \
     | perl -wpe '$_ = lcfirst($_);' | sort -u`
+  set contacts="larrym kate, fan ting ann Hiram rachel Andy andy bob larry kayla"
   echo "contacts $contacts"
 endif
 
 # replace common names with email addresses
 foreach i ( $counter )
-  set contacts=`echo $contacts | sed "s/$alias[$i]/$email[$i]/g"`
+  set contacts=`echo $contacts | sed "s/$alias[$i] /$email[$i] /g"`
   if ( $debug == "true" ) then
     echo    here5 $i
     echo    $alias[$i]
+    echo    $email[$i]
+    echo "   contacts $contacts"
+    ## send output only to selected people
+    # set contacts="ann kuhn pauline rhead kayla"
+    # set contacts="pauline rhead ann kayla"
     echo "   contacts $contacts"
   endif 
 end
 
-# set contacts="ann kuhn pauline rhead kayla"
-# set contacts="pauline rhead ann kayla"
+if ( $debug == "true" ) then
+  exit
+endif
 
 # cat Bfile | mail -c $contacts'@soe.ucsc.edu' -s "test. ignore  " $USER
 cat Bfile | mail -c $contacts'@soe.ucsc.edu' -s "B-queue alert" $USER
 rm Bfile