forked from LibreSchool/doraemon
16 lines
329 B
Perl
16 lines
329 B
Perl
|
#!/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);
|