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