diff options
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"; - } - } -} - |