smeserver-mailalias/createlinks

18 lines
429 B
Perl
Executable File

#!/usr/bin/perl -w
use esmith::Build::CreateLinks qw(:all);
panel_link("mailalias", "manager");
#service_link_enhanced("mailalias", "S01", "7");
#safe_symlink('restart', "root/etc/e-smith/events/conf-denyhosts/services2adjust/mailalias");
foreach $file (
qw(/var/qmail/alias/.qmail-mailalias /var/service/qpsmtpd/config/goodrcptto))
{
templates2events($file, qw(bootstrap-console-save mailalias-modify));
}
exit 0;