18 lines
429 B
Perl
Executable File
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;
|