1 |
diff -Nur --no-dereference smeserver-webshare-1.0.0.old/createlinks smeserver-webshare-1.0.0/createlinks |
diff -Nur --no-dereference smeserver-webshare-1.0.0.old/createlinks smeserver-webshare-1.0.0/createlinks |
2 |
--- smeserver-webshare-1.0.0.old/createlinks 2002-05-05 22:44:40.000000000 -0400 |
--- smeserver-webshare-1.0.0.old/createlinks 2002-05-05 22:44:40.000000000 -0400 |
3 |
+++ smeserver-webshare-1.0.0/createlinks 2022-08-01 23:51:24.447000000 -0400 |
+++ smeserver-webshare-1.0.0/createlinks 2022-08-01 23:57:14.361000000 -0400 |
4 |
@@ -2,6 +2,7 @@ |
@@ -2,20 +2,25 @@ |
5 |
# This script creates the symlinks needed by this RPM |
# This script creates the symlinks needed by this RPM |
6 |
# Specific support exists to create symlinks within e-smith web "panels" |
# Specific support exists to create symlinks within e-smith web "panels" |
7 |
# and for links from named "events" directories into the "actions" directory |
# and for links from named "events" directories into the "actions" directory |
8 |
|
- |
9 |
|
-sub panel_link |
10 |
|
-{ |
11 |
|
- my ($function, $panel) = @_; |
12 |
|
- |
13 |
|
- unlink "root/etc/e-smith/web/panels/$panel/cgi-bin/$function"; |
14 |
|
- symlink("../../../functions/$function", |
15 |
|
- "root/etc/e-smith/web/panels/$panel/cgi-bin/$function") |
16 |
|
- or die "Can't symlink to root/etc/e-smith/web/panels/$panel". |
17 |
|
- "/cgi-bin/$function: $!"; |
18 |
|
-} |
19 |
+use esmith::Build::CreateLinks qw(:all); |
+use esmith::Build::CreateLinks qw(:all); |
20 |
|
|
21 |
sub panel_link |
#-------------------------------------------------- |
22 |
{ |
# functions for user and manager panel |
|
@@ -19,3 +20,18 @@ |
|
23 |
#-------------------------------------------------- |
#-------------------------------------------------- |
24 |
my $panel = "manager"; |
my $panel = "manager"; |
25 |
panel_link("webshare", $panel); |
panel_link("webshare", $panel); |