smeserver-mxbackup/createlinks

33 lines
885 B
Plaintext
Raw Normal View History

#!/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
#sub safe_symlink {
# my ($from, $to) = @_;
# use File::Basename;
# use File::Path;
# mkpath(dirname($to));
# unlink($to);
# symlink($from, $to) or die "Can't create symlink from $from to $to: $!";
#}
#sub panel_link
#{
# my ($function, $panel) = @_;
#
# my $cgibin = "root/etc/e-smith/web/panels/$panel/cgi-bin";
#
# safe_symlink("../../../functions/$function",
# "$cgibin/$function")
#}
use esmith::Build::CreateLinks qw(:all);
#--------------------------------------------------
# functions for manager panel
#--------------------------------------------------
my $panel = "manager";
panel_link("mxbackup", $panel);