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

[squirrelmail.git] / config / conf.pl

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" );
             print "\nStarting detection...\n\n";
 
             opendir( DIR, "../css" );

-            @files = readdir(DIR);
+            @files = sort(readdir(DIR));

             $cnt = 0;
             while ( $cnt <= $#files ) {
                 $filename = "../css/" . $files[$cnt] .'/';
             $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/" );
             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] .'/';
             $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" );
         } 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" ) {
             $cnt = 0;
             while ( $cnt <= $#files ) {
                 if ( -d "../templates/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne "CVS" ) {