On Thu, Sep 01, 2005 at 03:49:29AM +0400, Alexey Tourbin wrote:
> > 	10 RANDOM blocker/critical/major bugs
> Ну ясно.

Сделал по-другому: список "10 RANDOM bugs" для *всех* багов, но
у blocker/critical/major bugs вероятность попадания в этот список
вдвое больше.

--- qa/qa-robot/bugs:1.18	Thu Sep  1 01:32:22 2005
+++ qa/qa-robot/bugs	Thu Sep  1 04:08:47 2005
@@ -80,12 +80,10 @@
 {
 	filter '!resolved($4,$5)' >pending.bugs 3>/dev/null
 	filter '$3~/blocker|critical|major/' <pending.bugs >bad.bugs 3>/dev/null
-	perl -MList::Util=shuffle -e 'print shuffle(<>)' bad.bugs |head -10 >random.bugs
-	if [ -s random.bugs ]; then
-		n=`wc -l <random.bugs`
-		echo "	$n RANDOM blocker/critical/major $(count "$n" "$noun")"; echo
-		xfmt1 <random.bugs
-	fi
+	echo "	10 RANDOM bugs"; echo
+	# boost bad bugs
+	perl -MList::Util=shuffle -e 'print shuffle(<>)' bad.bugs pending.bugs |
+		head -20 |sort -u |head -10 |xfmt1
 	n1=`wc -l <pending.bugs`
 	n2=`wc -l <bad.bugs`
 	subj="$subj ($n1)"