smeserver-ibays/createlinks

47 lines
1.4 KiB
Plaintext
Raw Normal View History

#!/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 e-smith-ibays-update))
{
event_link("init-ibays", $event, "15");
}
my $event = "e-smith-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('store-ldap-smbpasswd', $_, "06");
event_link("systemd-reload", $event, "89");
event_link("systemd-default", $event, "88");