skip http: paths for SM_PATH mods
authorebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Tue, 31 Dec 2002 16:08:42 +0000 (16:08 +0000)
committerebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Tue, 31 Dec 2002 16:08:42 +0000 (16:08 +0000)
git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@4338 7612ce4b-ef26-0410-bec9-ea0150e637f0

config/conf.pl

index d72085f5d3de760481d60640d90bc74bfb1884a9..7543b6d951257198ed29d920cc663d7300d96ca0 100755 (executable)
@@ -2594,7 +2594,8 @@ sub save_data {
         print CF " * Created using the configure script, conf.pl\n";
         print CF " */\n";
         print CF "\n";
-
+        print CF "global \$version;\n";
+       
         if ($print_config_version) {
             print CF "\$config_version = '$print_config_version';\n";
         }
@@ -2968,9 +2969,10 @@ sub change_to_SM_path() {
     # If the path is absolute, don't bother.
     return "\'" . $old_path . "\'"  if ( $old_path eq '');
     return "\'" . $old_path . "\'"  if ( $old_path =~ /^\// );
+    return "\'" . $old_path . "\'"  if ( $old_path =~ /^http/ );
     return $old_path                if ( $old_path =~ /^\$/);
     return $old_path                if ( $old_path =~ /^SM_PATH/ );
-
+    
     # For relative paths, split on '../'
     @rel_path = split(/\.\.\//, $old_path);
 
@@ -3008,6 +3010,7 @@ sub change_to_rel_path() {
     return $old_path if ( $old_path eq '');
     return $old_path if ( $old_path =~ /^\$/ );
     return $old_path if ( $old_path =~ /^\// );
+    return $old_path if ( $old_path =~ /^http/ );
     return $old_path if ( $old_path =~ /^\.\./ );
 
     if ( $old_path =~ /^SM_PATH/ ) {