79 lines
1.8 KiB
Perl
Executable File
79 lines
1.8 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
safe_symlink("proftpd", "root/var/service/ftp");
|
|
|
|
templates2events("/etc/logrotate.d/proftpd", qw(
|
|
bootstrap-console-save
|
|
e-smith-proftpd-update
|
|
));
|
|
templates2events("/etc/pam.d/ftp", qw(
|
|
bootstrap-console-save
|
|
e-smith-proftpd-update
|
|
));
|
|
templates2events("/etc/ftpusers", qw(
|
|
bootstrap-console-save
|
|
network-create
|
|
network-delete
|
|
remoteaccess-update
|
|
password-modify
|
|
user-lock
|
|
e-smith-proftpd-update
|
|
));
|
|
|
|
templates2events("/etc/proftpd.conf", qw(
|
|
console-save
|
|
bootstrap-console-save
|
|
domain-create
|
|
domain-delete
|
|
domain-modify
|
|
ibay-create
|
|
ibay-delete
|
|
ibay-modify
|
|
ibay-modify-servers
|
|
ip-change
|
|
network-create
|
|
network-delete
|
|
remoteaccess-update
|
|
password-modify
|
|
e-smith-proftpd-update
|
|
ssl-update
|
|
));
|
|
|
|
foreach my $event (qw(
|
|
remoteaccess-update))
|
|
{
|
|
safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/ftp");
|
|
}
|
|
|
|
foreach my $event (qw(
|
|
bootstrap-console-save
|
|
network-create
|
|
remoteaccess-update
|
|
network-delete
|
|
e-smith-proftpd-update
|
|
))
|
|
{
|
|
templates2events("/var/service/ftp/peers/0", $event);
|
|
templates2events("/var/service/ftp/peers/local", $event);
|
|
}
|
|
foreach my $event (qw(
|
|
network-create
|
|
network-delete
|
|
))
|
|
{
|
|
safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/ftp");
|
|
}
|
|
|
|
safe_symlink("restart", "root/etc/e-smith/events/ssl-update/services2adjust/ftp");
|
|
|
|
my $event = 'e-smith-proftpd-update';
|
|
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/ftp");
|
|
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/rsyslog");
|
|
templates2events("/etc/systemd/system-preset/49-koozali.preset", $event);
|
|
event_link("systemd-reload", $event, "89");
|
|
templates2events("/etc/rsyslog.conf", $event);
|
|
|
|
exit 0;
|