]>
Commit | Line | Data |
---|---|---|
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 | } |