#!/usr/bin/perl -w

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

#--------------------------------------------------
# functions for manager panel
#--------------------------------------------------
my $panel = "manager";

panel_link("ibays", $panel);

#--------------------------------------------------
# actions for group-delete event
#--------------------------------------------------

$event = "group-delete";

event_link("group-ibay-modify", $event, "10");

#--------------------------------------------------
# actions for ibay-delete event
#--------------------------------------------------

$event = "ibay-delete";

event_link("ibay-delete", $event, "15");

foreach my $event (qw(ibay-create ibay-modify ibay-modify-files))
{
    event_link("ibay-modify", $event, "15");
}

foreach my $event (qw(post-install post-upgrade smeserver-ibays-update))
{
    event_link("init-ibays", $event, "15");
    event_link('store-ldap-smbpasswd', $event, "06");
}

my $event = "smeserver-ibays-update";
templates2events("/etc/httpd/conf/httpd.conf", $event);
templates2events("/samba/smb.conf", $event);
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/smbd");
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/nmbd");
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith");
event_link("systemd-reload", $event, "89");
event_link("systemd-default", $event, "88");