Sort output of readdir, as this is not by default.

Thanks Tomas Kuliavas for finding this.

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

diff --git a/config/conf.pl b/config/conf.pl
index d98b9aff126ffd6a6b115963f918863175c952f1..2f6677211b25ca78c77b73cac8fa25c564034a6c 100755 (executable)
--- a/config/conf.pl
+++ b/config/conf.pl
@@ -2770,7 +2770,7 @@ sub command_userThemes {
             print "\nStarting detection...\n\n";
 
             opendir( DIR, "../css" );
-            @files = readdir(DIR);
+            @files = sort(readdir(DIR));
             $cnt = 0;
             while ( $cnt <= $#files ) {
                 $filename = "../css/" . $files[$cnt] .'/';
@@ -2975,7 +2975,7 @@ sub command_iconSets {
             print "\nStarting detection...\n\n";
 
             opendir( DIR, "../images/themes/" );
-            @files = readdir(DIR);
+            @files = sort(readdir(DIR));
             $cnt = 0;
             while ( $cnt <= $#files ) {
                 $filename = "../images/themes/" . $files[$cnt] .'/';
@@ -3171,7 +3171,7 @@ sub command_templates {
         } elsif ( $input =~ /^\s*t\s*/i ) {
             print "\nStarting detection...\n\n";
             opendir( DIR, "../templates" );
-            @files = readdir(DIR);
+            @files = sort(readdir(DIR));
             $cnt = 0;
             while ( $cnt <= $#files ) {
                 if ( -d "../templates/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne "CVS" ) {