you can now have more than 10 ldap servers and themes, bug fixed!

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@633 7612ce4b-ef26-0410-bec9-ea0150e637f0

diff --git a/config/conf.pl b/config/conf.pl
index 8912bb39fad46b46afeb62e0757c2544b617629a..357bea329364d17b424a54553eb238f442954ea4 100755 (executable)
--- a/config/conf.pl
+++ b/config/conf.pl
@@ -38,24 +38,21 @@ while ($line = <FILE>) {
          $options[1] =~ s/\";$//;
          $options[1] =~ s/;$//;
          $options[1] =~ s/^"//;
-#         if (/"$/) {
-#            $options[1] =~ s/"$//;
-#         }
 
          if ($options[0] =~ /^theme\[[0-9]+\]\["PATH"\]/) {
             $sub = $options[0];
             $sub =~ s/\]\["PATH"\]//;
-            $sub = substr ($sub, @sub-1, 1);
+            $sub =~ s/.*\[//; 
             $theme_path[$sub] = $options[1];
          } elsif ($options[0] =~ /^theme\[[0-9]+\]\["NAME"\]/) {
             $sub = $options[0];
             $sub =~ s/\]\["NAME"\]//;
             $sub =~ s/.*\[//; 
-            #$sub = substr ($sub, @sub-1, 1);
             $theme_name[$sub] = $options[1];
          } elsif ($options[0] =~ /^ldap_server\[[0-9]+\]/) {
             $sub = $options[0];
-            $sub = substr ($sub, length($sub)-2, 1);
+            $sub =~ s/\]//; 
+            $sub =~ s/^ldap_server\[//;
             $continue = 0;
             while (($tmp = <FILE>) && ($continue != 1)) {
                if ($tmp =~ /\);\s*$/) {