| 1 |
slords |
1.1 |
--- smeserver-fetchmail-1.3.6/createlinks.createlnks 2008-04-20 06:27:24.000000000 -0600 |
| 2 |
|
|
+++ smeserver-fetchmail-1.3.6/createlinks 2008-04-21 00:44:46.000000000 -0600 |
| 3 |
|
|
@@ -1,35 +1,11 @@ |
| 4 |
|
|
#!/usr/bin/perl -w |
| 5 |
|
|
-# This script creates the symlinks needed by this RPM |
| 6 |
|
|
-# Specific support exists to create symlinks within e-smith web "panels" |
| 7 |
|
|
-# 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 |
|
|
- |
| 20 |
|
|
-sub event_link |
| 21 |
|
|
-{ |
| 22 |
|
|
- my ($action, $event, $level) = @_; |
| 23 |
|
|
- |
| 24 |
|
|
- unlink "root/etc/e-smith/events/${event}/S${level}${action}"; |
| 25 |
|
|
- symlink("../actions/${action}", |
| 26 |
|
|
- "root/etc/e-smith/events/${event}/S${level}${action}") |
| 27 |
|
|
- or die "Can't symlink to " . |
| 28 |
|
|
- "root/etc/e-smith/events/${event}/S${level}${action}: $!"; |
| 29 |
|
|
-} |
| 30 |
|
|
+ |
| 31 |
|
|
+use esmith::Build::CreateLinks qw(:all); |
| 32 |
|
|
|
| 33 |
|
|
#-------------------------------------------------- |
| 34 |
|
|
# functions for manager panel |
| 35 |
|
|
#-------------------------------------------------- |
| 36 |
|
|
my $panel = "manager"; |
| 37 |
|
|
- |
| 38 |
|
|
panel_link("fetchmail", $panel); |
| 39 |
|
|
|
| 40 |
|
|
#-------------------------------------------------- |
| 41 |
|
|
@@ -56,12 +32,6 @@ |
| 42 |
|
|
event_link("fetchmail-email-group-adjust", "fetchmail-change", "30"); |
| 43 |
|
|
event_link("email-assign", "fetchmail-change", "40"); |
| 44 |
|
|
event_link("conf-fetchmail-group-files", "fetchmail-change", "50"); |
| 45 |
|
|
-# that'a a ugly patch to use some new SME features, but to stay |
| 46 |
|
|
-# compatible with SME 6. Probably my last try... |
| 47 |
|
|
-my $eventchange = "root/etc/e-smith/events/fetchmail-change/services2adjust" ; |
| 48 |
|
|
-unlink "$eventchange/masq"; |
| 49 |
|
|
-system("ln -s $eventchange/adjust $eventchange/masq") |
| 50 |
|
|
+safe_symlink("adjust", |
| 51 |
|
|
+ "root/etc/e-smith/events/fetchmail-change/services2adjust/masq"); |
| 52 |
|
|
|
| 53 |
|
|
-#-------------------------------------------------- |
| 54 |
|
|
-# The End |
| 55 |
|
|
-#-------------------------------------------------- |
Parent Directory
| 
Revision Log
| 
Revision Graph
