28 lines
509 B
Perl
Executable File
28 lines
509 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
|
|
# templates to expand
|
|
for my $event (qw(
|
|
local
|
|
post-install
|
|
post-upgrade
|
|
smeserver-grub-update
|
|
))
|
|
{
|
|
event_templates ($event , "/etc/sysconfig/kernel");
|
|
event_templates ($event , "/etc/default/grub");
|
|
}
|
|
|
|
# actions to perform
|
|
for my $event (qw(
|
|
local
|
|
post-install
|
|
post-upgrade
|
|
smeserver-grub-update
|
|
))
|
|
{
|
|
event_actions ( $event , 'update-grub'=>'10');
|
|
}
|