smeserver-packetfilter/createlinks

#!/usr/bin/perl -w

use esmith::Build::CreateLinks qw(:all);

templates2events("/etc/ulogd.conf", qw(post-install post-upgrade smeserver-packetfilter-update));

# conf-masq

templates2events("/etc/rc.d/init.d/masq", qw(
	console-save
	bootstrap-console-save
	network-create
	network-delete
	remoteaccess-update
	email-update
	smeserver-packetfilter-update
	));

foreach (qw(console-save ip-change network-create network-delete remoteaccess-update smeserver-packetfilter-update))
{
    safe_symlink("reload", "root/etc/e-smith/events/$_/services2adjust/masq");
}

my $event ="smeserver-packetfilter-update";
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/ulogd");
event_link("systemd-reload", $event, "89");
event_link("systemd-default", $event, "88");
templates2events("/etc/logrotate.d/ulogd", ($event,qw(post-install post-upgrade bootstrap-console-save)) );


#systemd
foreach my $target (qw(multi-user sme-server))
{
system('mkdir -p root/usr/lib/systemd/system/'.$target.'.target.wants/');

foreach my $unit (qw(
        masq.service
	ulogd.service
        ))
        {
        symlink("../$unit",
                "root/usr/lib/systemd/system/$target.target.wants/$unit")
        or die "Can't symlink to root/usr/lib/systemd/system/$target.target.wants/$unit: $!";
        }
}