#!/bin/sh
#
#

OUT=$1
meeting=$2
last=$3

if [ ${meeting}x = x ]; then
	meeting=krb5-bugs
fi

if [ ${last}x != x ]; then
	qual="l-$last,l"
fi

if [ ${OUT}x = x ]; then
	echo "You must specify an output filename!"
	exit 1
fi

echo "



" > $OUT

discuss -rq "ls -flag_reset $qual" $meeting -quit \
	| sed -e 1d -e 's/ \[//' -e 's/\].*$//' -e 's/^/w /' \
		-e "s;\$; $OUT;" -e '$a\
q' | discuss $meeting

perl - $OUT > $OUT.new << 'EOF'
while (<>) {
	chop;
	if (($_ eq "") && ($prev =~ /^--/)) {
		print "



\n



\n";
		$prev = $_;
 	} else {
		print "$_\n";
		$prev = $_;
	}
}
EOF

sed -e '$d' $OUT.new > $OUT
rm -f $OUT.new