16 lines
353 B
Perl
16 lines
353 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
# vim:sts=4:sw=4:tw=78
|
||
|
|
|
||
|
|
use esmith::Build::CreateLinks qw(:all);
|
||
|
|
use File::Basename;
|
||
|
|
use File::Path;
|
||
|
|
|
||
|
|
$event = "profile-clean";
|
||
|
|
event_actions($event, 'profile-clean' => 50);
|
||
|
|
|
||
|
|
$event = "profile-gui-clean";
|
||
|
|
event_actions($event, 'profile-gui-clean' => 50);
|
||
|
|
|
||
|
|
$event = "profile-lo-clean";
|
||
|
|
event_actions($event, 'profile-lo-clean' => 50);
|