smeserver-qmHandle/createlinks

34 lines
1.1 KiB
Perl

#!/usr/bin/perl -w
# This script creates the symlinks needed by this RPM
# Specific support exists to create symlinks within e-smith web "panels"
# and for links from named "events" directories into the "actions" directory
use esmith::Build::CreateLinks qw(:all);
#--------------------------------------------------
# functions for manager panel
#--------------------------------------------------
my $panel = "manager";
panel_link("qmh", $panel);
#--------------------------------------------------
# actions for console-save event:
#--------------------------------------------------
#--------------------------------------------------
# actions for smeserver-qmHandle-update event:
#--------------------------------------------------
my $event = 'smeserver-qmHandle-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');
#--------------------------------------------------
# The End
#--------------------------------------------------