createlinks

#!/usr/bin/perl -w

#
# Copyright (C) 2012 Nethesis S.r.l.
# http://www.nethesis.it - support@nethesis.it
# 
# This script is part of NethServer.
# 
# NethServer is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License,
# or any later version.
# 
# NethServer is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with NethServer.  If not, see <http://www.gnu.org/licenses/>.
#

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

#
# Many events expand smb.conf:
#
templates2events("/etc/samba/smb.conf", qw(
    nethserver-samba-update
    nethserver-samba-save
    ibay-create
    ibay-delete
    ibay-modify
    network-delete
    network-create
));

#
# nethserver-samba-update event (smb.conf template expanded above)
#
event_templates('nethserver-samba-update', qw(
    /etc/httpd/admin-conf/httpd.conf
    /etc/pam.d/system-auth-nh
    /etc/pam.d/password-auth-nh
    /etc/krb5.conf
    /etc/nsswitch.conf
    /etc/sudoers
    /etc/hosts
));

event_actions('nethserver-samba-update', qw(
	      initialize-default-databases 00
	      nethserver-samba-conf 20
));

# The httpd-admin reload action is mapped to "graceful" restart since 
# nethserver-lib:1c52af5 See #2014
event_services('nethserver-samba-update', qw(
   smb restart
   nmb restart
   winbind restart
   httpd-admin reload
));

#
# nethserver-samba-save event (smb.conf template expanded above)
#
event_templates('nethserver-samba-save', qw(
    /etc/pam.d/system-auth-nh
    /etc/pam.d/password-auth-nh
    /etc/krb5.conf
    /etc/nsswitch.conf
    /etc/hosts
));

event_services('nethserver-samba-save', qw(
   smb restart
   nmb restart
   winbind restart
));

# actions for group-create event:
event_actions('group-create', qw(
	      nethserver-samba-group-sync 30
));

# actions for group-modify event:
event_actions('group-modify', qw(
	      nethserver-samba-group-sync 30
));

# All of these events require smbd to reload the smb.conf file:
event_actions($_,
	      "nethserver-samba-smbd-adjust" => '95'
) foreach (qw(
    group-create
    group-delete
    group-modify
    ibay-create
    ibay-delete
    ibay-modify
    network-create
    network-delete
    printer-create
    printer-delete
));

event_actions('user-create',
	      "nethserver-samba-user-create" => '20',
	      "nethserver-samba-profile-create" => '25',
	      "nethserver-samba-user-modify" => '30',
);

event_actions('user-delete',
	      'nethserver-samba-smbd-adjust' => '30',
	      'nethserver-samba-profile-delete' => '40',
);

event_actions('user-modify',
	      "nethserver-samba-user-modify" => '30',
);

event_actions('user-lock',
	      "nethserver-samba-user-modify" => '30',
	      "nethserver-samba-smbd-adjust" => '95',
);

event_actions('user-unlock',
	      "nethserver-samba-user-modify" => '30',
	      "nethserver-samba-smbd-adjust" => '95',
);

event_actions("nethserver-samba-machine-create",
	      "nethserver-samba-machine-create" => '10',
);

event_actions('password-modify', qw(
	      nethserver-samba-password-modify 40
              nethserver-samba-user-modify     50
));


	   
#--------------------------------------------------
# actions for interface-update event
#--------------------------------------------------
event_templates('interface-update',
                '/etc/samba/smb.conf');
event_services('interface-update', qw(
   smb restart
   nmb restart
   winbind restart
));

#
# migration-import event (refs #1657)
#
event_actions('migration-import', qw(
    nethserver-samba-migrate-sam    30
    nethserver-samba-migrate-data   40
    nethserver-samba-migrate-ibays  40
));

event_services('migration-import', qw(
    winbind restart
    smb restart
    nmb restart
));


#
# nethserver-samba-adsjoin (refs #1746) This event must be signalled
# after nethserver-samba-save: it is assumed that smb.conf is properly
# configured
#
event_templates('nethserver-samba-adsjoin', qw(
    /etc/hosts
));

event_actions('nethserver-samba-adsjoin', qw(
    nethserver-samba-smbads 01
));

event_services('nethserver-samba-adsjoin', qw(
    winbind restart
));

#
# Initialize SAM DB
#
event_actions('runlevel-adjust', qw(
      nethserver-samba-user-create 96
      nethserver-samba-sam-conf 97
      nethserver-samba-group-sync 98
));