diff options
| author | Mauro Carvalho Chehab <mchehab@redhat.com> | 2009-02-26 21:02:33 -0300 |
|---|---|---|
| committer | Mauro Carvalho Chehab <mchehab@redhat.com> | 2009-02-26 21:02:33 -0300 |
| commit | eb20179da88acc42ffee334ce86bacdf77d4a438 (patch) | |
| tree | 9f2196b723853e3d581b0b87b3f2ce666fc769be /v4l2-apps/test | |
| parent | 1e4553680f02af66c3282072f581425637b58f78 (diff) | |
| parent | 7dab4777ac8eda4056484c99285d58b6b3a91235 (diff) | |
| download | mediapointer-dvb-s2-eb20179da88acc42ffee334ce86bacdf77d4a438.tar.gz mediapointer-dvb-s2-eb20179da88acc42ffee334ce86bacdf77d4a438.tar.bz2 | |
merge: http://www.linuxtv.org/hg/~hverkuil/v4l-dvb-zoran
From: Mauro Carvalho Chehab <mchehab@redhat.com>
Signed-off-by: Mauro Carvalho Chehab <mchehab@redhat.com>
Diffstat (limited to 'v4l2-apps/test')
| -rw-r--r-- | v4l2-apps/test/parse-sniffusb2.pl | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/v4l2-apps/test/parse-sniffusb2.pl b/v4l2-apps/test/parse-sniffusb2.pl deleted file mode 100644 index 34406b0ea..000000000 --- a/v4l2-apps/test/parse-sniffusb2.pl +++ /dev/null @@ -1,84 +0,0 @@ -#!/usr/bin/perl -# -# Author: Franklin Meng <fmeng2002@yahoo.com> -# Parser for USB snoops captured from SniffUSB 2.0. -# - -use strict; -use warnings; -use Data::Dumper; - -foreach my $curfile (@ARGV) { - parsefile($curfile); - #we can only process 1 file - exit; -} - -sub parsefile { - my $curfile = shift; - my $SetupPacket =''; - my $preS = ''; - my $TransferBuffer =''; - my $preT = ''; - my $Direction =''; - my $preD = ''; - my @tmpsplit; - my $t=0; - my $s=0; - - open(FD, $curfile) || die("Error: $!\n"); - - while(<FD>) { - chomp; - if($t==1 && /^\s+\d{8}/) { -# print $_ . "\n"; - @tmpsplit = split(/\:\s/,$_); - $TransferBuffer = $TransferBuffer . $tmpsplit[1] . " "; - } elsif($s==1 && /^\s+\d{8}/) { -# print $_ . "\n"; - @tmpsplit = split(/\:\s/,$_); - $SetupPacket = $SetupPacket . $tmpsplit[1] ; - } else { - $t=0; - $s=0; - } - if(/[<>]{3}/){ - #print out last packet if valid - if($SetupPacket) { - if($preT) { - print "$SetupPacket $preD $preT\n"; - - } else { - print "$SetupPacket $Direction $TransferBuffer\n"; - } - } -# print "$SetupPacket $Direction $TransferBuffer\n"; - #clear variables - $preT = $TransferBuffer; - $TransferBuffer = ''; - $preS = $SetupPacket; - $SetupPacket = ''; - $preD = $Direction; - $t = 0; - $s = 0; - # get direction - @tmpsplit = split(/\s+/, $_); - $Direction = $tmpsplit[2]; -# print $_ . "\n"; - } elsif(/TransferBufferMDL/) { - $t = 1 - } elsif(/SetupPacket/) { - $s = 1; - } - } - #print last packet -# print "$SetupPacket $Direction $TransferBuffer\n"; - if($SetupPacket) { - if($preT) { - print "$SetupPacket $preD $preT\n"; - } else { - print "$SetupPacket $Direction $TransferBuffer\n"; - } - } -} - |