smeserver-userpanel/createlinks

36 lines
1.6 KiB
Perl

#!/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");