18 lines
930 B
Perl
18 lines
930 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
panel_link('minilist','manager');
|
|
|
|
event_link("qmail-update-list", "list-create", "20");
|
|
event_link("qmail-update-list", "list-modify", "20");
|
|
event_link("qmail-delete-list", "list-delete", "20");
|
|
event_link("qmail-update-list", "email-update", "20");
|
|
event_link("qmail-update-list", "bootstrap-console-save", "55");
|
|
templates2events("/var/service/qpsmtpd/config/goodrcptto", qw(list-create list-modify list-delete));
|
|
templates2events("/var/service/qpsmtpd/config/badrcptto", qw(list-create list-modify list-delete));
|
|
templates2events("/var/qmail/control/badrcptto_ext", qw(list-create list-modify list-delete));
|
|
safe_symlink("sighub", "root/etc/e-smith/events/list-create/services2adjust/qmail");
|
|
safe_symlink("sighub", "root/etc/e-smith/events/list-modify/services2adjust/qmail");
|
|
safe_symlink("sighub", "root/etc/e-smith/events/list-delete/services2adjust/qmail");
|