smeserver-ibays/createlinks
2024-04-13 04:31:44 -04:00

47 lines
1.4 KiB
Perl
Executable File

#!/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");