smeserver-base/additional/createlinks.orig

#!/usr/bin/perl -w

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

templates2events("/etc/sysconfig/i18n", qw(post-install post-upgrade e-smith-base-update));

templates2events("/etc/selinux/config", qw(post-install post-upgrade e-smith-base-update));

# give the correct configuration file of dhcpd.conf 
templates2events("/etc/dhcp/dhcpd.conf", qw(bootstrap-console-save e-smith-base-update));

# ppp-conf-users

foreach (qw(pap-secrets chap-secrets))
{
    templates2events("/etc/ppp/$_", qw(
	    bootstrap-console-save
	    console-save
	    remoteaccess-update
	    e-smith-base-update));
}

foreach (qw(
	/var/service/wan/pppoe.pppd.conf
	/var/service/wan/run.pppoe.conf
	/etc/ppp/ip-down.local
	/etc/ppp/ip-up.local
    ))
{
    templates2events("$_", qw(
	console-save
	bootstrap-console-save
	e-smith-base-update
	));
}

safe_symlink("daemontools", "root/etc/rc.d/init.d/wan");
service_link_enhanced("wan", "S37", "7");
service_link_enhanced("wan", "K90", "6");
service_link_enhanced("wan", "K90", "0");
service_link_enhanced("wan", "K90", "1");

# conf-dialup
foreach (qw(
    /etc/sysconfig/network-scripts/ifcfg-ppp0
    /etc/sysconfig/network-scripts/chat-ppp0
    /etc/ppp/ip-up.local
    /etc/ppp/ip-down.local
    /etc/diald.conf
    /etc/diald.filter
    /etc/diald/link
    /var/service/ippp/config
    /etc/ppp/ioptions
    ))
{
    templates2events($_, qw(console-save bootstrap-console-save e-smith-base-update));
}

# conf-networking

foreach (qw(
    /etc/sysconfig/network-scripts/ifcfg-bond0
    /etc/modprobe.d/bonding.conf
    /etc/sysconfig/network
    /etc/nsswitch.conf
    /etc/HOSTNAME
    /etc/hosts
    /etc/resolv.conf
    /etc/sysctl.conf
    /var/service/wan/dhclient.config
    ))
{
    templates2events($_, qw(console-save bootstrap-console-save e-smith-base-update));
}
event_link("update-ifcfg", "console-save", "05");
event_link("update-ifcfg", "bootstrap-console-save", "05");

# conf-other

templates2events("/etc/crontab",  qw(
	console-save
	bootstrap-console-save
	post-install
	post-upgrade
	email-update
	logrotate
	e-smith-base-update
	));
templates2events("/etc/mime.types",  qw(
	console-save
	bootstrap-console-save
	post-install
	post-upgrade
	email-update
	logrotate
	e-smith-base-update
	));
templates2events("/etc/sysconfig/rsyslog",  qw(
	console-save
	bootstrap-console-save
	post-install
	post-upgrade
	email-update
	logrotate
	e-smith-base-update
	));
templates2events("/etc/rsyslog.conf",  qw(
	console-save
	bootstrap-console-save
	post-install
	post-upgrade
	email-update
	logrotate
	e-smith-base-update
	));
templates2events("/etc/updatedb.conf", qw(
	bootstrap-console-save
	e-smith-base-update
));
templates2events("/etc/openssl.conf",  qw(
        console-save
        bootstrap-console-save
        post-install
        post-upgrade
	domain-create
	domain-delete
	network-create
	network-delete
        ip-change
	e-smith-base-update
        ));

# conf-routes
event_link("update-ifcfg", "network-create", "05");
event_link("update-ifcfg", "network-delete", "05");

# conf-security

templates2events("/etc/securetty", qw(
	console-save
	bootstrap-console-save
	ibay-create
	ibay-delete
	ibay-modify
	ibay-modify-servers
	network-create
	network-delete
	ip-change
	email-update
	remoteaccess-update
	e-smith-base-update
	));
templates2events("/etc/services", qw(
	console-save
	bootstrap-console-save
	ibay-create
	ibay-delete
	ibay-modify
	ibay-modify-servers
	network-create
	network-delete
	ip-change
	email-update
	remoteaccess-update
	e-smith-base-update
	));
templates2events("/etc/shells", qw(
	console-save
	bootstrap-console-save
	ibay-create
	ibay-delete
	ibay-modify
	ibay-modify-servers
	network-create
	network-delete
	ip-change
	email-update
	remoteaccess-update
	e-smith-base-update
	));
templates2events("/etc/hosts.deny", qw(
	console-save
	bootstrap-console-save
	ibay-create
	ibay-delete
	ibay-modify
	ibay-modify-servers
	network-create
	network-delete
	ip-change
	email-update
	remoteaccess-update
	e-smith-base-update
	));
templates2events("/etc/hosts.allow", qw(
	console-save
	bootstrap-console-save
	ibay-create
	ibay-delete
	ibay-modify
	ibay-modify-servers
	network-create
	network-delete
	ip-change
	email-update
	remoteaccess-update
	e-smith-base-update
	));
foreach my $file (qw(
        /etc/pam.d/login
	/etc/pam.d/system-auth
	/etc/pam.d/passwd
	/etc/pam.d/pwauth
	/etc/pam_ldap.conf
	/etc/pam_ldap.secret
	/etc/security/pam_abl.conf
    ))
{
    templates2events($file, qw(console-save bootstrap-console-save e-smith-base-update));
}

foreach (qw(
       /etc/cpu.conf
       /etc/cpu-system.conf
    ))
{
    templates2events("$_", qw(
	post-upgrade
	console-save
	bootstrap-console-save
	ldap-update
	e-smith-base-update
	));
}

# conf-userlists

foreach (qw(users.allow accounts.allow accounts.deny))
{
    templates2events("/etc/e-smith/pam/$_", qw(
	bootstrap-console-save
	ibay-create
	ibay-delete
	user-create
	user-delete
	password-modify
	e-smith-base-update
	));
}

# fstab-conf

templates2events("/etc/fstab", qw(post-install post-upgrade e-smith-base-update));

# init-conf

templates2events("/etc/inittab", qw(
	console-save
	bootstrap-console-save
	post-install
	post-upgrade
	remoteaccess-update
	e-smith-base-update
	));

# lynx-conf

templates2events("/etc/lynx.cfg", qw(console-save bootstrap-console-save e-smith-base-update));
templates2events("/etc/elinks.conf", qw(bootstrap-console-save e-smith-base-update));

#
# Set up generic logfile timestamp renaming/symlinking

foreach (qw(
    /var/log/messages
    /var/log/boot.log
    /var/log/secure
    /var/log/cron
    /var/log/spooler
    /var/log/maillog
    ))
{
    safe_touch "root/etc/e-smith/events/logrotate/logfiles2timestamp/$_";
    safe_touch "root/etc/e-smith/events/post-install/logfiles2timestamp/$_";
    safe_touch "root/etc/e-smith/events/post-upgrade/logfiles2timestamp/$_";
    safe_touch "root/etc/e-smith/events/e-smith-base-update/logfiles2timestamp/$_";
}

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

panel_link("groups", $panel);
panel_link("localnetworks", $panel);
panel_link("online-manual", $panel);
panel_link("reboot", $panel);
panel_link("remoteaccess", $panel);
panel_link("review", $panel);
panel_link("useraccounts", $panel);

#--------------------------------------------------
# actions for e-smith-base-update event
#--------------------------------------------------
my $event = "e-smith-base-update";


templates2events("/etc/smartd.conf", $event);
templates2events("/home/e-smith/ssl.pem/pem", $event);
event_link("fix-startup", $event, "05");
event_link("rotate_timestamped_logfiles", $event, "05");
event_link("init-accounts", $event, "05");
event_link("set-hostname", $event, "10");
event_link("rmmod-bonding", $event, "10");
event_link("conf-startup", $event, "10");
event_link("user-lock-passwd", $event, "15");
event_link("group-modify-unix", $event, "15");
event_link("update-passwd", $event, "20");
event_link("count-active-user-accounts", $event, "25");
event_link("conf-modules", $event, "30");
event_link("create-mnt-floppy", $event, "50");
event_link("conf-routes", $event, "89");
event_link("reset-unsavedflag", $event, "95")

safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/wan");
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/dhcpd");
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/rsyslog");
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/crond");

#--------------------------------------------------
# actions for console-save event
#--------------------------------------------------
my $event = "console-save";


templates2events("/etc/smartd.conf", $event);
templates2events("/home/e-smith/ssl.pem/pem", $event);
event_link("set-hostname", $event, "10");
event_link("conf-modules", $event, "30");
event_link("conf-startup", $event, "60");
event_link("reset-unsavedflag", $event, "95");

safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/wan");
safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/dhcpd");

#--------------------------------------------------
# actions for bootstrap-console-save event
#--------------------------------------------------
$event = "bootstrap-console-save";


templates2events("/etc/smartd.conf", $event);
templates2events("/home/e-smith/ssl.pem/pem", $event);
event_link("rmmod-bonding", $event, "10");
event_link("set-hostname", $event, "10");
event_link("conf-modules", $event, "30");
event_link("conf-startup", $event, "60");
event_link("conf-routes", $event, "89");
event_link("reset-unsavedflag", $event, "95");

#--------------------------------------------------
# actions for bootstrap-ldap-save
#--------------------------------------------------
$event = "bootstrap-ldap-save";

templates2events("/etc/nsswitch.conf", $event);
templates2events("/etc/pam.d/system-auth", $event);
event_link("user-lock-passwd", $event, "15");
event_link("user-modify-unix", $event, "15");

#--------------------------------------------------
# actions for group-create event
#--------------------------------------------------

$event = "group-create";

event_link("group-create-unix", $event, "04");

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

$event = "group-delete";

event_link("group-delete-unix", $event, "15");

#--------------------------------------------------
# actions for group-modify event
#--------------------------------------------------

$event = "group-modify";

event_link("group-modify-unix", $event, "15");

#--------------------------------------------------
# actions for halt event
#--------------------------------------------------

$event = "halt";

event_link("halt", $event, "70");

#--------------------------------------------------
# actions for ip-change event
#--------------------------------------------------

$event = "ip-change";

event_link("set-external-ip", $event, "03");
event_link("update-dns", $event, "85");

#--------------------------------------------------
# actions for network-create event
#--------------------------------------------------

$event = "network-create";

event_link("conf-routes", $event, "89");

#--------------------------------------------------
# actions for network-delete event
#--------------------------------------------------

$event = "network-delete";

event_link("conf-routes", $event, "89");

#--------------------------------------------------
# actions for post-install event
#--------------------------------------------------

$event = "post-install";

event_link("fix-startup", $event, "05");
event_link("rotate_timestamped_logfiles", $event, "05");
event_link("init-accounts", $event, "05");
event_link("init-passwords", $event, "10");
event_link("conf-startup", $event, "10");
event_link("conf-modules", $event, "30");
event_link("create-mnt-floppy", $event, "50");

#--------------------------------------------------
# actions for post-upgrade event
#--------------------------------------------------

$event = "post-upgrade";

event_link("fix-startup", $event, "05");
event_link("rotate_timestamped_logfiles", $event, "05");
event_link("init-accounts", $event, "05");
event_link("conf-startup", $event, "10");
event_link("user-lock-passwd", $event, "15");
event_link("group-modify-unix", $event, "15");
event_link("update-passwd", $event, "20");
event_link("count-active-user-accounts", $event, "25");
event_link("conf-modules", $event, "30");
event_link("create-mnt-floppy", $event, "50");
event_link("copy-anaconda-logs", $event, "90");

#--------------------------------------------------
# actions for reboot event
#--------------------------------------------------

$event = "reboot";

safe_symlink("stop", "root/etc/e-smith/events/$event/services2adjust/wan");
event_link("reboot", $event, "99");

#--------------------------------------------------
# actions for remoteaccess-update event
#--------------------------------------------------

$event = "remoteaccess-update";

safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/dhcpd");

#--------------------------------------------------
# actions for user-create event
#--------------------------------------------------

$event = "user-create";

event_link("user-create-unix", $event, "04");
event_link("count-active-user-accounts", $event, "25");
event_link("user-group-modify", $event, "85");

#--------------------------------------------------
# actions for user-delete event
#--------------------------------------------------

$event = "user-delete";

event_link("user-delete-groups-and-pseudonyms", $event, "02");
event_link("user-delete-unix", $event, "15");
event_link("initialize-default-databases", $event, "23");
event_link("count-active-user-accounts", $event, "25");

#--------------------------------------------------
# actions for user-modify event
#--------------------------------------------------

$event = "user-modify";

event_link("user-modify-unix", $event, "15");
event_link("user-group-modify", $event, "85");

$event = "user-modify-admin";

event_link("user-modify-unix", $event, "15");

#--------------------------------------------------
# actions for user-lock event
#--------------------------------------------------

$event = "user-lock";

event_link("user-lock-passwd", $event, "15");
event_link("count-active-user-accounts", $event, "25");

#--------------------------------------------------
# actions for password-modify event
#--------------------------------------------------

$event = "password-modify";

event_link("count-active-user-accounts", $event, "25");

#--------------------------------------------------
# actions for timeserver-update event
#--------------------------------------------------

$event = "timeserver-update";

safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/crond");

#--------------------------------------------------
# actions for ip-up event
#--------------------------------------------------

$event = "ip-up";

event_link("set-gateway-ip", $event, "55");

#--------------------------------------------------
# actions for ip-down event
#--------------------------------------------------

$event = "ip-down";

event_link("isdn-down-notify", $event, "50");

#--------------------------------------------------
# actions for logrotate event
#--------------------------------------------------

$event = "logrotate";

event_link("rotate_timestamped_logfiles", $event, "05");
event_link("purge-old-logs", $event, "75");

safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/rsyslog");

#--------------------------------------------------
# actions for local event
#--------------------------------------------------

$event = "local";

#--------------------------------------------------
# actions for ldap-update event
#--------------------------------------------------

$event = "ldap-update";

templates2events("/home/e-smith/ssl.pem/pem", $event);

#--------------------------------------------------
# actions for ldap-update event
#--------------------------------------------------

$event = "ssl-update";

templates2events("/home/e-smith/ssl.pem/pem", $event);


#--------------------------------------------------
# actions for email-update event:
# email parameters have been changed in the e-smith
# manager; update system security, rewrite email config
# files, configure other system files (crontab is the
# important one), and restart server
#--------------------------------------------------
$event = "email-update";


my %service2order =
(
    # Start rsyslog up before network!
    raidmonitor => "15",
    network  	=> "37",
    dhcpd    	=> "65",
    'local'    	=> "99",
);

foreach my $service (keys %service2order)
{
    service_link_enhanced($service, $service2order{$service}, 7);
}

%service2order =
(
    dhcpd       => "K35",
);

foreach my $service (keys %service2order)
{
    service_link_enhanced($service, $service2order{$service}, 0);
    service_link_enhanced($service, $service2order{$service}, 6);
    service_link_enhanced($service, $service2order{$service}, 1);
}

# Set up links to daemontools.
safe_symlink("daemontools", "root/etc/rc.d/init.d/raidmonitor");

safe_symlink("run.dhclient", "root/var/service/wan/run.DHCPHostname");
safe_symlink("run.dhclient", "root/var/service/wan/run.DHCPEthernetAddress");

# Local event
safe_symlink("../daemontools", "root/etc/rc.d/init.d/supervise/local");
safe_symlink("/var/service/local" , 'root/service/local');
safe_touch("root/var/service/local/down");

# no template headers for /etc/pam_ldap.secret
safe_touch("root/etc/e-smith/templates/etc/pam_ldap.secret/template-begin");


system('mkdir -p root/usr/lib/systemd/system/multi-user.target.wants/');
	unlink "root/usr/lib/systemd/system/multi-user.target.wants/bootstrap-console.service";
symlink("/usr/lib/systemd/system/bootstrap-console.service",
		"root/usr/lib/systemd/system/multi-user.target.wants/bootstrap-console.service")
	or die "Can't symlink to root/usr/lib/systemd/system/multi-user.target.wants/bootstrap-console.service: $!";

# languages links
foreach (qw(fr-be fr-lu fr-mc fr-ch))
{
	safe_symlink("fr", "root/etc/e-smith/locale/$_");
}
foreach (qw(en-bz en-ca en-ie en-in en-jm en-my en-ph en-sg en-tt en-za en-zw))
{
        safe_symlink("en-us", "root/etc/e-smith/locale/$_");
}
foreach (qw(es-ar es-bo es-cl es-co es-cr es-do es-ec es-es es-gt es-hn es-mx es-ni es-pa es-pe es-pr es-py es-sv es-us es-uy es-ve))
{
        safe_symlink("es", "root/etc/e-smith/locale/$_");
}
foreach (qw(de-at de-ch de-de de-li de-lu))
{
        safe_symlink("de", "root/etc/e-smith/locale/$_");
}
foreach (qw(it-ch it-it))
{
	safe_symlink("it", "root/etc/e-smith/locale/$_");
}
foreach (qw(ro-ro ro-md))
{
        safe_symlink("ro", "root/etc/e-smith/locale/$_");
}
foreach (qw(sv-fi sv-se))
{
	safe_symlink("sv", "root/etc/e-smith/locale/$_");
}
safe_symlink("zh-tw", "root/etc/e-smith/locale/zh-hk");