20 lines
713 B
Perl
20 lines
713 B
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);
|
|
|
|
my $panel = "manager";
|
|
|
|
panel_link("support", $panel);
|
|
|
|
templates2events("/etc/$_", qw(post-install post-upgrade smeserver-support-update))
|
|
for (qw(issue issue.net motd redhat-release system-release sysconfig/hw-uuid));
|
|
|
|
templates2events("/etc/$_", qw(post-install post-upgrade console-save smeserver-support-update))
|
|
for (qw( os-release ));
|
|
|
|
templates2events("/etc/motd", qw(console-save remoteaccess-update smeserver-support-update));
|
|
|