X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/m1-debian/blobdiff_plain/73dfd6987229baa2b514491550a97a5b3e6171ad..f493aec296f00ac485a22e68a66c76ab4623796a:/files/wifi.pl

diff --git a/files/wifi.pl b/files/wifi.pl
new file mode 100755
index 0000000..dad4758
--- /dev/null
+++ b/files/wifi.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings FATAL => 'all';
+
+my $firmware_tarball = '/mnt/linux-firmware.tar';
+my @vfat_devices;
+
+for (`blkid`) {
+        if (/^([^:]+):.*vfat/) {
+                push @vfat_devices, $1;
+        }
+}
+
+for my $dev (@vfat_devices) {
+        system("mount -o ro $dev /mnt");
+        if (test -f $firmware_tarball) {
+                system("tar -C /lib/firmware/ -xf $firmware_tarball");
+                system('rmmod brcmfmac');
+                system('rmmod brcmutil');
+                sleep(1);
+                system('modprobe brcmfmac');
+                sleep(1);
+                system('rmmod brcmfmac');
+                sleep(1);
+                system('modprobe brcmfmac');
+        }
+        system('umount /mnt');
+
+}