cvs.zerfleddert.de Git - m1-debian/blob - 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 }