#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); use File::Basename; use File::Path; ##link to panel panel_link("userpanelaccess", "manager"); ##actions conf-userpanelsymlinks for my $event (qw( conf-userpanel bootstrap-console-save console-save post-upgrade remoteaccess-update )){ event_link("conf-userpanelsymlinks", $event, "03");} ##actions link to translations for my $event (qw( conf-userpanel bootstrap-console-save console-save post-upgrade remoteaccess-update )){ event_link("conf-linktotranslations", $event, "03");} ##event conf-userpanel my $event = "conf-userpanel"; safe_symlink("reload", "root/etc/e-smith/events/$event/services2adjust/httpd-admin"); safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith"); templates2events( "/etc/httpd/conf/httpd.conf",$event); templates2events( "/etc/httpd/admin-conf/httpd.conf",$event); templates2events( "/etc/e-smith/web/common/css/manager.css",$event); templates2events( "/etc/e-smith/web/common/css/manager.css","bootstrap-console-save"); $event = "smeserver-userpanel-update"; safe_symlink("reload", "root/etc/e-smith/events/$event/services2adjust/httpd-admin"); safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith"); templates2events( "/etc/httpd/conf/httpd.conf",$event); templates2events( "/etc/httpd/admin-conf/httpd.conf",$event); templates2events( "/etc/e-smith/web/common/css/manager.css",$event); templates2events( "/etc/e-smith/web/common/css/manager.css","bootstrap-console-save"); event_link("conf-linktotranslations", $event, "03"); event_link("conf-userpanelsymlinks", $event, "03");