| 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
