smeserver-tinydns/createlinks

#!/usr/bin/perl -w
# This script creates the symlinks needed by this RPM

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

#-------------------------------------------------------------------
# actions for bootstrap-console-save event, smeserver-tinydns-update :
#-------------------------------------------------------------------
foreach (qw(
    env/IP
    env/DATALIMIT
    root/data
    ))
{
    templates2events("/var/service/tinydns/$_", qw(
    bootstrap-console-save
    smeserver-tinydns-update
    ));
}

#--------------------------------------------------
# actions for ip-change event
#--------------------------------------------------
my $event = "ip-change";
safe_symlink("sigusr2", "root/etc/e-smith/events/$event/services2adjust/tinydns");

#--------------------------------------------------
# actions for smeserver-tinydns-update event
#--------------------------------------------------
$event = "smeserver-tinydns-update";
safe_symlink("try-restart", "root/etc/e-smith/events/$event/services2adjust/tinydns");
templates2events("/etc/systemd/system-preset/49-koozali.preset", $event);
event_link("systemd-reload", $event, "89");