createlinks.pl

#!/usr/bin/perl -w

use esmith::Build::CreateLinks qw(:all);
use File::Basename;
use File::Path;


$event = "doraemon-reboot";
event_actions($event, 'doraemon-reboot' => 50);

$event = "doraemon-shutdown";
event_actions($event, 'doraemon-shutdown' => 50);

$event = "doraemon-wake";
event_actions($event, 'doraemon-wake' => 50);