From a6547cc304bb497cf7002d0a896c4416296d24eb Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 16 Jul 2007 00:40:25 +0000
Subject: [PATCH] Case insensitive sorting

---
 file/list.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/file/list.cgi b/file/list.cgi
index 955856b23..5c8557026 100755
--- a/file/list.cgi
+++ b/file/list.cgi
@@ -30,7 +30,7 @@ elsif (!opendir(DIR, $in{'dir'})) {
 else {
 	# Can list the directory
 	print "\n";
-	@files = sort { $a cmp $b } readdir(DIR);
+	@files = sort { lc($a) cmp lc($b) } readdir(DIR);
 	if ($hide_dot_files) {
 		@files = grep { $_ !~ /^\./ } @files;
 		}