Munin contributed plugins

for( my $x = 0; $x < scalar(@class); $x++ ) {

    if($class[$x] =~ m/^class/i ) {

	( $name, $id1, $id2, $type, $parent) = ( $class[$x] =~ m/^class\s+(\w+)\s+(\d+):(\d+)\s+(\w+)\s([^\s]+)/i );

	    $x++;

    	    ( $rate ) = ( $class[$x] =~ m/Sent\s+(\d+)\s+/i );

	    $handle = "$name"."${id1}_${id2}";

  print $queues{$key}->{queue},$queues{$key}->{handle}, ".value ",$queues{$key}->{sent}, "\n";

}

#