X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=zc-queue-inspect;h=34dc1515fd99b41f565e14ab09cd5ad2499aa937;hb=c7836240ae5f90e9cf47152fd18e3fcddec63810;hp=2f75590f1205339e73a8128593db867f9cf1310e;hpb=aa7aaca40e5875310d95bd9a9b506edecc0c9629;p=zc

diff --git a/zc-queue-inspect b/zc-queue-inspect
index 2f75590..34dc151 100755
--- 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";