#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); #-------------------------------------------------- # functions for manager panel #-------------------------------------------------- my $panel = "manager"; panel_link("geneweb", $panel); #-------------------------------------------------- # actions for geneweb-modify event #-------------------------------------------------- $event = "geneweb-modify"; templates2events("/opt/geneweb/gw/gw/only.txt", $event); templates2events("/etc/httpd/conf/httpd.conf", $event); safe_symlink("reload", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith"); safe_symlink("try-restart", "root/etc/e-smith/events/$event/services2adjust/geneweb"); safe_symlink("try-restart", "root/etc/e-smith/events/$event/services2adjust/gwsetup"); #-------------------------------------------------- # actions for smeserver-geneweb-update event #-------------------------------------------------- my $event = "smeserver-geneweb-update"; templates2events("/opt/geneweb/gw/gw/only.txt", $event); templates2events("/etc/httpd/conf/httpd.conf", $event); safe_symlink("reload", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith"); safe_symlink("try-restart", "root/etc/e-smith/events/$event/services2adjust/geneweb"); safe_symlink("try-restart", "root/etc/e-smith/events/$event/services2adjust/gwsetup"); templates2events("/etc/systemd/system-preset/49-koozali.preset", $event); event_link("systemd-default", $event, "06"); event_link("restart-smanager","smeserver-geneweb-update","10"); #-------------------------------------------------- # for smeserver-manager #-------------------------------------------------- my $event= "smeserver-geneweb-update"; safe_symlink('restart', "root/etc/e-smith/events/$event/services2adjust/smanager"); event_link('navigation2-conf', "$event", '80'); event_link('routes2-conf', "$event", '80'); event_link('locales2-conf', "$event", '80'); #-------------------------------------------------- # for backup #-------------------------------------------------- use esmith::Build::Backup qw(:all); backup_includes("smeserver-geneweb", qw( /opt/geneweb/bases/ )); backup_excludes("smeserver-geneweb", qw( /opt/geneweb/bases/README.txt ));