Better way to fix conversion stuff for windows paths..
authorebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Sun, 2 Feb 2003 17:47:16 +0000 (17:47 +0000)
committerebullient <ebullient@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Sun, 2 Feb 2003 17:47:16 +0000 (17:47 +0000)
git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@4494 7612ce4b-ef26-0410-bec9-ea0150e637f0

config/conf.pl

index dd576216109b9f3cb0757c00b9bcf5fa4c8a0f23..269ed5f650c4ec55e69f1fba432b32578abd7358 100755 (executable)
@@ -40,9 +40,6 @@ if ( defined( $ENV{'PATH_INFO'} )
 ############################################################
 use Cwd;
 $dir = cwd();
-if ( $dir =~ /:/ ) {
-  $dir = substr($dir, index($dir, ':') + 1);
-}
   
 
 ############################################################              
@@ -3001,7 +2998,9 @@ 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 =~ /^(\/|http)/ );
+    return "\'" . $old_path . "\'"  if ( $old_path =~ /^\w:\// );
     return $old_path                if ( $old_path =~ /^\'(\/|http)/ );
+    return $old_path                if ( $old_path =~ /^\'\w:\// );
     return $old_path                if ( $old_path =~ /^(\$|SM_PATH)/);
     
     # Remove remaining '