]> cvs.zerfleddert.de Git - m1-debian/blob - files/wifi.pl
be less aggrassive on the wifi driver, it is fragile
[m1-debian] / files / wifi.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings FATAL => 'all';
5
6 my $firmware_tarball = '/mnt/vendorfw/firmware.tar';
7 my @vfat_devices;
8
9 for (`blkid`) {
10 if (/^([^:]+):.*vfat/) {
11 push @vfat_devices, $1;
12 }
13 }
14
15 for my $dev (@vfat_devices) {
16 system("mount -o ro $dev /mnt");
17 if (-f $firmware_tarball) {
18 system("tar -C /lib/firmware/ -xf $firmware_tarball");
19 unlink('/etc/modprobe.d/blacklist.conf');
20 system('modprobe brcmfmac');
21 }
22 system('umount /mnt');
23 }
Impressum, Datenschutz