$map{"critical/high"} = "9ch";
$map{"critical/medium"} = "8cm";
$map{"critical/low"} = "7cl";
$map{"serious/high"} = "6sh";
$map{"serious/medium"} = "5sm";
$map{"serious/low"} = "4sl";
$map{"non-criti/high"} = "3nh";
$map{"non-criti/medium"} = "2nm";
$map{"non-criti/low"} = "1nl";


$map{"open"} = "9";
$map{"analyzed"} = "9";
$map{"feedback"} = "7";
$map{"suspended"} = "1";
$map{"closed"} = "0";

while(<>) {
    ($NUMBER, $RESPONSIBLE, $CATEGORY, $STATE, $SEVERITY, $PRIORITY, 
     $SUBMITTER, $SYNOPSIS) = 
	 unpack("a8 x a8 x a8 x a9 x a9 x a8 x a10 x a*",$_);
    if ($debug) {
	print "NUMBER = <$NUMBER>\n";
	print "RESPONSIBLE = <$RESPONSIBLE>\n";
	print "CATEGORY = <$CATEGORY>\n";
	print "STATE = <$STATE>\n";
	print "SEVERITY = <$SEVERITY>\n";
	print "PRIORITY = <$PRIORITY>\n";
	print "SUBMITTER = <$SUBMITTER>\n";
	print "SYNOPSIS = <$SYNOPSIS>\n";
    }

    $NUMBER =~ s/    //;
    $ST=$STATE;
    $ST =~ s/^(..).*$/\1/;
    $STATE =~ s/ *$//;
    $SEVERITY =~ s/ *$//;
    $PRIORITY =~ s/ *$//;
    $LEVEL = $map{"$STATE"}.$map{"$SEVERITY/$PRIORITY"};
     
# we want to see {critical,serious,non-critical/{hi,me,lo}}
    print "$ST $NUMBER $CATEGORY[$LEVEL]$SUBMITTER $SYNOPSIS";
}