]>
Commit | Line | Data |
---|---|---|
920c82fb | 1 | #!/usr/bin/perl |
ba2f1a67 FG |
2 | |
3 | use strict; | |
920c82fb | 4 | use warnings; |
ba2f1a67 FG |
5 | |
6 | # Ignore all invocations uxcept when called on to remove | |
7 | exit 0 unless ($ARGV[0] && $ARGV[0] =~ /remove/) ; | |
8 | ||
9 | # do nothing if run from proxmox installer | |
10 | exit 0 if -e "/proxmox_install_mode"; | |
11 | ||
12 | my $imagedir = "/boot"; | |
13 | ||
14 | my $version = "@@KVNAME@@"; | |
15 | ||
16 | if (-d "/etc/kernel/prerm.d") { | |
17 | print STDERR "Examining /etc/kernel/prerm.d.\n"; | |
920c82fb TL |
18 | system( |
19 | "run-parts --verbose --exit-on-error --arg=$version --arg=$imagedir/vmlinuz-$version /etc/kernel/prerm.d" | |
20 | ) && die "Failed to process /etc/kernel/prerm.d"; | |
ba2f1a67 FG |
21 | } |
22 | ||
23 | exit 0 |