src/utils/qa/alertBqueue.csh 1.6

Index: src/utils/qa/alertBqueue.csh
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/utils/qa/alertBqueue.csh,v
retrieving revision 1.5
retrieving revision 1.6
diff -b -B -U 1000000 -r1.5 -r1.6
--- src/utils/qa/alertBqueue.csh	15 Jan 2009 23:11:32 -0000	1.5
+++ src/utils/qa/alertBqueue.csh	24 Feb 2009 22:09:55 -0000	1.6
@@ -1,80 +1,82 @@
 #!/bin/tcsh
 
 ################################
 #  
 #  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 13 )
+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 hgwbeta -t -e "SELECT dbs, track, reviewer, sponsor, \
   qadate FROM pushQ WHERE priority = 'B' ORDER BY qadate" qapushq >> Bfile
 
-# get lst of all developers and QA involved in B-queue tracks
+# get list of all developers and QA involved in B-queue tracks
 set contacts=`hgsql -N -h hgwbeta -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"
     set contacts=`echo $contacts | sed "s/,/ /" | sed "s/ /\n/g" \
     | perl -wpe '$_ = lcfirst($_);' | sort -u`
   echo "contacts $contacts"
 endif
 
 # replace common names with email addresses
 foreach i ( $counter )
   set contacts=`echo $contacts | sed "s/$alias[$i]/$email[$i]/g"`
   if ( $debug == "true" ) then
     echo    here5 $i
     echo    $alias[$i]
     echo "   contacts $contacts"
   endif 
 end
 
 # set contacts="ann kuhn pauline rhead kayla"
+# set contacts="pauline rhead ann kayla"
 
+# 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