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/linux-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 (test -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 }