28 lines
505 B
Plaintext
28 lines
505 B
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use esmith::Build::CreateLinks qw(:all);
|
||
|
|
|
||
|
|
|
||
|
|
# templates to expand
|
||
|
|
for my $event (qw(
|
||
|
|
local
|
||
|
|
post-install
|
||
|
|
post-upgrade
|
||
|
|
e-smith-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
|
||
|
|
e-smith-grub-update
|
||
|
|
))
|
||
|
|
{
|
||
|
|
event_actions ( $event , 'update-grub'=>'10');
|
||
|
|
}
|