INN commit: trunk/control (controlchan.in)

[INN Commit]

    Date: Saturday, April 4, 2009 @ 03:11:41
  Author: iulius
Revision: 8402

Properly parse Control: headers (newsgroups names are
case-sensitive).

Modified:
  trunk/control/controlchan.in

----------------+
 controlchan.in |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

Modified: controlchan.in
===================================================================
--- controlchan.in	2009-04-04 08:06:07 UTC (rev 8401)
+++ controlchan.in	2009-04-04 10:11:41 UTC (rev 8402)
@@ -114,7 +114,11 @@
     if ($hdr{'control'} =~ /\s/) {
         $hdr{'control'} =~ /^(\S+)\s+(.+)?/;
         $progname = lc $1;
-        @progparams = split(/\s+/, lc $2) if $2;
+        # Newsgroups names are case-sensitive.
+        @progparams = split(/\s+/, $2) if $2;
+        if ($progname eq 'newgroup' and defined $progparams[1]) {
+            $progparams[1] = lc $progparams[1];
+        }
     } else {
         $progname = lc $hdr{'control'};
     }