perl LN fix

1 files changed, 12 insertions, 3 deletions

diff --git a/packages/lightsquid/lightsquid.inc b/packages/lightsquid/lightsquid.inc
index 6ae3de79..de06bbf0 100644
--- a/packages/lightsquid/lightsquid.inc
+++ b/packages/lightsquid/lightsquid.inc
@@ -103,7 +103,12 @@ function lightsquid_install() {
          if (file_exists($lstpl_file)) {
               mwexec("tar zxvf $lstpl_file -C " . LS_TEMPLATEPATH);
               update_log("lightsquid_install: Install templates from $lstpl_file");
-         }
+         }         
+         
+         # check perl
+         if (!file_exists("/usr/bin/perl")) 
+              mwexec("ln -s /usr/local/bin/perl /usr/bin/perl");
+         
          update_log("lightsquid_install: stopped");
 }
 
@@ -116,8 +121,8 @@ function lightsquid_deinstall() {
          // control shoot to head :)
 #         mwexec(CMD_PKGDELETE);
          // remove '/usr/local/www/lightsquid' dir - any time can't be removed by templates
-         if (file_exists(LS_WWWPATH))
-             mwexec("rm -rf " . LS_WWWPATH);
+#         if (file_exists(LS_WWWPATH))
+#             mwexec("rm -rf " . LS_WWWPATH);
 
          update_log("lightsquid_deinstall: stopped");
 }
@@ -127,6 +132,10 @@ function lightsquid_resync() {
         $tm = '';
         $tm_squid = '';
 
+        # check perl
+        if (!file_exists("/usr/bin/perl")) 
+            mwexec("ln -s /usr/local/bin/perl /usr/bin/perl");
+
         // debug
         $light_test = array();
         if (($_POST['Submit'] === 'Save') or !isset($_POST['Submit'])) {