47 lines
1.4 KiB
Perl
Executable File
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");
|
|
}
|
|
|
|
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('store-ldap-smbpasswd', $_, "06");
|
|
event_link("systemd-reload", $event, "89");
|
|
event_link("systemd-default", $event, "88");
|