Make search case insensitive

diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi
index c3d6c60ea79ae823f722bf99474d4e68badd4cf6..f6a632edc1ecfb6028f476e98c9ab188938eaa50 100755 (executable)
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi
@@ -194,9 +194,10 @@ sub get_subscribers {
        chomp @nomailsubs;
 
        if (defined $search) {
-               @subscribers = grep {index($_, $search) != -1} @subscribers;
-               @digesters = grep {index($_, $search) != -1} @digesters;
-               @nomailsubs = grep {index($_, $search) != -1} @nomailsubs;
+               $search = lc $search;
+               @subscribers = grep {index(lc $_, $search) != -1} @subscribers;
+               @digesters = grep {index(lc $_, $search) != -1} @digesters;
+               @nomailsubs = grep {index(lc $_, $search) != -1} @nomailsubs;
        }
 
        for my $address (@subscribers) {