support sent files, less verbose debug output

diff --git a/zc-queue-inspect b/zc-queue-inspect
index 2f75590..34dc151 100755 (executable)
--- a/zc-queue-inspect
+++ b/zc-queue-inspect
@@ -11,7 +11,7 @@ use Protocol;
 my $debug = $ENV{DEBUG};
 $| = 1;
 
-if ( $debug ) {
+if ( $debug > 1 ) {
        warn "## protocol = ",dump( $protocol );
        warn "## function_code_description = ",dump( $function_code_description );
 }
@@ -19,12 +19,13 @@ if ( $debug ) {
 my $raw;
 
 foreach my $filename ( @ARGV ) {
-       my $up_down = $1 if $filename =~ m/(up|down)/;
+       my $up_down = $1 if $filename =~ m/(up|down|sent)/;
        my $raw = read_file $filename;
        print "# $filename size:", -s $filename, " ";
+       $up_down = 'down' if $up_down eq 'sent';
        my $hash = protocol_decode( $up_down, $raw );
 
-       warn "hash = ",dump($hash);
+       warn "hash = ",dump($hash) if $debug;
 
        my $function_code = $hash->{function_code} || die "no function_code";
        my $fc_desc = $function_code_description->{$up_down}->{$function_code} || die "no function_code_description for $up_down $function_code";