17 lines
816 B
Plaintext
17 lines
816 B
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use esmith::Build::CreateLinks qw(:all);
|
||
|
|
|
||
|
|
event_link("user-reset-expired", "password-modify", "80");
|
||
|
|
event_link("user-expire-account", "user-expire-account", "20");
|
||
|
|
event_link("user-update-auto-response", "user-expire-account", "25");
|
||
|
|
event_link("user-lock-passwd", "user-expire-account", "30");
|
||
|
|
event_link("count-active-user-accounts", "user-expire-account", "40");
|
||
|
|
event_link("ldap-update-simple", "user-expire-account", "50");
|
||
|
|
event_link("qmail-update-user", "user-expire-account", "60");
|
||
|
|
|
||
|
|
event_link("user-update-auto-response", "user-update-expire-settings", "20");
|
||
|
|
event_link("qmail-update-user", "user-update-expire-settings", "60");
|
||
|
|
|
||
|
|
panel_link("expireaccounts", 'manager');
|