23251d8c64bef7b0a1c216b2fc81f408262489c7 kuhn Tue Aug 16 10:42:35 2011 -0700 removed redundant line diff --git src/utils/qa/alertBqueue.csh src/utils/qa/alertBqueue.csh index 82327a9..c2113c2 100755 --- src/utils/qa/alertBqueue.csh +++ src/utils/qa/alertBqueue.csh @@ -59,32 +59,30 @@ # check for empty Bqueue if ( "$contacts" == "" ) then # echo "quitting. nothing to do" exit endif # 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=true set debug=false if ( $debug == "true" ) then echo "\ncontacts $contacts" - set contacts=`echo $contacts | sed "s/,/ /" | sed "s/ /\n/g" \ - | perl -wpe '$_ = lcfirst($_);' | sort -u` echo "contactsReal $contacts" set contacts="larrym kate fan ann Hiram rachel Andy andy bob larry " echo "contactsDebug $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 $email[$i] echo " contacts $contacts" ## send output only to selected people # set contacts="ann kuhn pauline rhead"