e-smith-manager/createlinks

80 lines
1.8 KiB
Perl
Executable File

#!/usr/bin/perl -w
use esmith::Build::CreateLinks qw(:all);
panel_link("navigation", "manager");
panel_link("noframes", "manager");
panel_link("bugreport", "manager");
event_link("navigation-conf", 'bootstrap-console-save', 50);
for ( qw( sme_core.css
sme_header.css
sme_main.css
sme_menu.css
sme_panel_menu.css
tkt.css
) )
{
templates2events("/etc/e-smith/web/common/css/$_", qw(
bootstrap-console-save
e-smith-manager-update
));
}
templates2events("/etc/e-smith/web/panels/manager/html/header.htm", qw(
console-save
bootstrap-console-save
network-create
network-delete
logrotate
e-smith-manager-update
));
templates2events("/etc/e-smith/web/common/head.tmpl", qw(
console-save
bootstrap-console-save
network-create
network-delete
logrotate
e-smith-manager-update
));
templates2events("/etc/e-smith/web/common/foot.tmpl", qw(
console-save
bootstrap-console-save
network-create
network-delete
logrotate
e-smith-manager-update
));
# conf-httpd-admin
templates2events("/etc/httpd/admin-conf/httpd.conf", qw(
console-save
bootstrap-console-save
network-create
network-delete
remoteaccess-update
logrotate
e-smith-manager-update
));
templates2events("/etc/e-smith/web/common/cgi-bin/AuthTKT.cfg", 'bootstrap-console-save');
foreach (qw(console-save remoteaccess-update logrotate))
{
safe_symlink("reload", "root/etc/e-smith/events/$_/services2adjust/httpd-admin");
}
# Symlink httpd-admin to httpd.
safe_symlink("httpd", "root/usr/sbin/httpd-admin");
my $event = "e-smith-manager-update";
event_link("systemd-reload", $event, "89");
event_link("systemd-default", $event, "88");
safe_symlink("reload-or-restart", "root/etc/e-smith/events/$event/services2adjust/httpd-admin");
templates2events("/etc/e-smith/web/common/cgi-bin/AuthTKT.cfg", $event);