Package: arp-scan Version: 1.8.1-2 Severity: normal Dear Maintainer,
The get-iab and get-oui perl scripts need to be modified each time I install arp-scan. The two main issues is that the URL has changed and that the perl regex does not parse the downloaded files correctly resulting in empty output files. Also, the command line args are not properly parsed in the perl getopts funcion. Please also depend on libwww-perl for these scripts. The following two patches fix the issues. -- PATCH FOR: get-oui --- usr/bin/get-oui 2012-03-14 06:57:30.000000000 -0700 +++ /usr/bin/get-oui 2013-06-16 08:01:47.092841984 -0700 @@ -32,7 +32,7 @@ use Getopt::Std; use LWP::Simple; # -my $default_url = 'http://standards.ieee.org/regauth/oui/oui.txt'; +my $default_url = 'http://standards.ieee.org/develop/regauth/oui/oui.txt'; my $default_filename='ieee-oui.txt'; # my $usage = @@ -55,7 +55,7 @@ # # Process options # -die "$usage\n" unless getopts('hf:v',\%opts); +die "$usage\n" unless getopts('hf:u:v',\%opts); if ($opts{h}) { print "$usage\n"; exit(0); @@ -93,6 +93,7 @@ # print "Opening output file $filename\n" if $verbose; open OUTPUT, ">$filename" || die "Could not open $filename for writing"; +binmode OUTPUT, ':encoding(UTF-8)'; # # Write the header comments to the output file. # @@ -131,7 +132,7 @@ # and write them to the output file looking like this: # 000000 XEROX CORPORATION # -while ($content =~ m/^(\w+)-(\w+)-(\w+)\s+\(hex\)\s+(.*)$/gm) { +while ($content =~ m/^\s+(\w+)-(\w+)-(\w+)\s+\(hex\)\s+(.*)$/gm) { print OUTPUT "$1$2$3\t$4\n"; $lineno++; } -- PATCH FOR: get-iab --- usr/bin/get-iab 2012-03-14 06:57:30.000000000 -0700 +++ /usr/bin/get-iab 2013-06-16 07:26:34.726317148 -0700 @@ -36,7 +36,7 @@ use Getopt::Std; use LWP::Simple; # -my $default_url = 'http://standards.ieee.org/regauth/oui/iab.txt'; +my $default_url = 'http://standards.ieee.org/develop/regauth/iab/iab.txt'; my $default_filename='ieee-iab.txt'; # my $usage = @@ -61,7 +61,7 @@ # # Process options # -die "$usage\n" unless getopts('hf:v',\%opts); +die "$usage\n" unless getopts('hf:u:v',\%opts); if ($opts{h}) { print "$usage\n"; exit(0); @@ -99,6 +99,7 @@ # print "Opening output file $filename\n" if $verbose; open OUTPUT, ">$filename" || die "Could not open $filename for writing"; +binmode OUTPUT, ':encoding(UTF-8)'; # # Write the header comments to the output file. # @@ -140,7 +141,7 @@ # Note that the 0050C2 bit is a constant, and we take # the next three hex digits from the IEEE data. # -while ($content =~ m/^(\w+)-\w+\s+\(base 16\)[ ]+(.*)$/gm) { +while ($content =~ m/^\s+(\w+)-\w+\s+\(base 16\)[ ]+(.*)$/gm) { $iab_var = substr($1,0,3); $vendor = $2; $vendor = "PRIVATE" if length($vendor) == 0; -- PATCH END -- -- System Information: Debian Release: 7.4 APT prefers stable APT policy: (990, 'stable'), (500, 'stable-updates'), (500, 'testing') Architecture: amd64 (x86_64) Kernel: Linux 3.2.0-4-amd64 (SMP w/2 CPU cores) Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Versions of packages arp-scan depends on: ii libc6 2.18-4 ii libpcap0.8 1.3.0-1 Versions of packages arp-scan recommends: ii libwww-perl 6.04-1 arp-scan suggests no packages. -- no debconf information -- debsums errors found: debsums: changed file /usr/bin/get-iab (from arp-scan package) debsums: changed file /usr/bin/get-oui (from arp-scan package) debsums: changed file /usr/share/arp-scan/ieee-iab.txt (from arp-scan package) debsums: changed file /usr/share/arp-scan/ieee-oui.txt (from arp-scan package) -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org