find-firmware.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $dir = shift;
   6
   7 die "no directory to scan" if !$dir;
   8
   9 die "no such directory" if ! -d $dir;
  10
  11 die "strange directory name" if $dir !~ m|^(.*/)?(2.6.\d+\-\d+\-pve)(/+)?$|;
  12
  13 my $apiver = $2;
  14
  15 open(TMP, "find '$dir' -name '*.ko'|");
  16 while (defined(my $fn = <TMP>)) {
  17     chomp $fn;
  18     my $relfn = $fn;
  19     $relfn =~ s|^$dir/*||;
  20
  21     my $cmd = "modinfo -F firmware '$fn'";
  22     open(MOD, "$cmd|");
  23     while (defined(my $fw = <MOD>)) {
  24         chomp $fw;
  25         print "$fw $relfn\n";
  26     }
  27     close(MOD);
  28
  29 }
  30 close TMP;
  31
  32 exit 0;