projects
/
zc
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
support sent files, less verbose debug output
[zc]
/
zc-queue-inspect
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;
my $debug = $ENV{DEBUG};
$| = 1;
-if ( $debug ) {
+if ( $debug
> 1
) {
warn "## protocol = ",dump( $protocol );
warn "## function_code_description = ",dump( $function_code_description );
}
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 $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, " ";
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 );
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";
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";