smeserver-expire-accounts/createlinks

17 lines
816 B
Perl

#!/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');