#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); event_link("user-reset-expired", 'password-modify', "80"); event_link("expire-update-auto-reply", "user-lock", "80"); event_link("qmail-update-user", "user-lock", "20");