postrm.in

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 # Ignore all 'upgrade' invocations .
   6 exit 0 if $ARGV[0] =~ /upgrade/;
   7
   8 my $imagedir = "/boot";
   9
  10 my $version = "@@KVNAME@@";
  11
  12 unlink "$imagedir/initrd.img-$version";
  13 unlink "$imagedir/initrd.img-$version.bak";
  14 unlink "/var/lib/initramfs-tools/$version";
  15
  16 # Ignore all invocations except when called on to purge.
  17 exit 0 unless $ARGV[0] =~ /purge/;
  18
  19 my @files_to_remove = qw{
  20                          modules.dep modules.isapnpmap modules.pcimap
  21                          modules.usbmap modules.parportmap
  22                          modules.generic_string modules.ieee1394map
  23                          modules.ieee1394map modules.pnpbiosmap
  24                          modules.alias modules.ccwmap modules.inputmap
  25                          modules.symbols modules.ofmap
  26                          modules.seriomap modules.*.bin
  27                          modules.softdep modules.devname
  28                        };
  29
  30 foreach my $extra_file (@files_to_remove) {
  31     for (glob("/lib/modules/$version/$extra_file")) {
  32         unlink;
  33     }
  34 }
  35
  36 system ("rmdir", "/lib/modules/$version") if -d "/lib/modules/$version";
  37
  38 exit 0