From 8a71ad7d2c19a0854d50f424c771db094041708d Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Thu, 12 Dec 2013 12:56:24 +0100
Subject: [PATCH] add script to extract used firmeware

---
 find-firmware.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 find-firmware.pl

diff --git a/find-firmware.pl b/find-firmware.pl
new file mode 100755
index 0000000..f5e9212
--- /dev/null
+++ b/find-firmware.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $dir = shift;
+
+die "no directory to scan" if !$dir;
+
+die "no such directory" if ! -d $dir;
+
+die "strange directory name" if $dir !~ m|^(.*/)?(3.10.\d+\-\d+\-pve)(/+)?$|;
+
+my $apiver = $2;
+
+open(TMP, "find '$dir' -name '*.ko'|");
+while (defined(my $fn = <TMP>)) {
+    chomp $fn;
+    my $relfn = $fn;
+    $relfn =~ s|^$dir/*||;
+
+    my $cmd = "modinfo -F firmware '$fn'";
+    open(MOD, "$cmd|");
+    while (defined(my $fw = <MOD>)) {
+	chomp $fw;
+	print "$fw $relfn\n";
+    }
+    close(MOD);
+
+}
+close TMP;
+
+exit 0;
-- 
2.39.2