- my $dir = $direction eq "i" ? 'sc' : 'cs';
- $chan->{$dir}{'seq'} += $bytes;
- printf "ch%d (%s), %s bytes (%d--%d)\n", $index, $chan->{'id'}, $bytes,
- $chan->{$dir}{$seq}-$bytes, $chan->{$dir}{$seq};
- printf "ch%d (%s), %s bytes\n", $index, $chan->{'id'}, $bytes;
+ $chan->{$direction}{'seq'} += $bytes;
+ printf "ch%d (%s), type %s, %s bytes (%d--%d)\n", $index,$chan->{'id'},
+ $type, $bytes, $chan->{$direction}{'seq'}-$bytes,
+ $chan->{$direction}{'seq'};