initial commit of file from CVS for smeserver-mxbackup on Sat Sep 7 20:44:45 AEST 2024

createlinks

@@ -0,0 +1,32 @@
+#!/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);
+