]> cvs.zerfleddert.de Git - m1-debian/blob - files/wifi.pl
Merge branch 'master' of a.gmvl.de:/git/m1-debian
[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 system('rmmod brcmfmac');
20 system('rmmod brcmutil');
21 sleep(1);
22 system('modprobe brcmfmac');
23 sleep(1);
24 system('rmmod brcmfmac');
25 sleep(1);
26 system('modprobe brcmfmac');
27 }
28 system('umount /mnt');
29
30 }
Impressum, Datenschutz