22 lines
757 B
Perl
22 lines
757 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
use File::Basename;
|
|
use File::Path;
|
|
|
|
event_link("mailsorting-cleanup", "user-delete", "65");
|
|
|
|
event_link("mailsorting-update-user", 'mailsorting-conf', "20");
|
|
event_link("qmail-update-user", 'mailsorting-conf', "30");
|
|
|
|
event_link("mailsorting-update-user", "email-update-quick", "20");
|
|
event_link("mailsorting-update-user", "email-update", "20");
|
|
event_link("mailsorting-update-user", "user-create", "60");
|
|
event_link("mailsorting-update-user", "user-modify", "60");
|
|
event_link("mailsorting-update-user", "bootstrap-console-save", "60");
|
|
|
|
my $event="smeserver-mailsorting-update";
|
|
event_link("mailsorting-update-user", $event, "20");
|
|
event_link("qmail-update-user", $event, "30");
|
|
|