24 lines
958 B
Perl
Executable File
24 lines
958 B
Perl
Executable File
#!/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 user panel
|
|
#--------------------------------------------------
|
|
my $panel = "manager";
|
|
panel_link("portforwarding", $panel);
|
|
|
|
my $event = "portforwarding-update";
|
|
templates2events("/etc/rc.d/init.d/masq", $event);
|
|
safe_symlink("adjust", "root/etc/e-smith/events/$event/services2adjust/masq");
|
|
|
|
my $event = "e-smith-portforwarding-update";
|
|
templates2events("/etc/rc.d/init.d/masq", $event);
|
|
safe_symlink("adjust", "root/etc/e-smith/events/$event/services2adjust/masq");
|
|
# systemd-specific action mandatory for this package-update event
|
|
event_link("systemd-reload", $event, "89");
|
|
event_link("systemd-default", $event, "88");
|