From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 19 Oct 2004 18:36:17 +0000 (+0000)
Subject: Ralph Mitchell fixed: input field with NAME= and VALUE= weren't processed
X-Git-Tag: curl-7_12_3~280
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=225a652021953a56cd1afd81786028cfd0f66dfa;p=thirdparty%2Fcurl.git

Ralph Mitchell fixed: input field with NAME= and VALUE= weren't processed
properly case insensitive
---

diff --git a/perl/contrib/formfind b/perl/contrib/formfind
index f9e8695314..976e3ee547 100755
--- a/perl/contrib/formfind
+++ b/perl/contrib/formfind
@@ -26,10 +26,10 @@ sub namevalue {
     my ($tag)=@_;
     my $name=$tag;
     if($name =~ /name *=/i) {
-        if($name =~ /name *= *([^\"\']([^ \">]*))/) {
+        if($name =~ /name *= *([^\"\']([^ \">]*))/i) {
             $name = $1;
         }
-        elsif($name =~ /name *= *(\"|\')([^\"\']*)(\"|\')/) {
+        elsif($name =~ /name *= *(\"|\')([^\"\']*)(\"|\')/i) {
             $name=$2;
         }
         else {
@@ -45,10 +45,10 @@ sub namevalue {
     # get value tag
     my $value= $tag;
     if($value =~ /[^\.a-zA-Z0-9]value *=/i) {
-        if($value =~ /[^\.a-zA-Z0-9]value *= *([^\"\']([^ \">]*))/) {
+        if($value =~ /[^\.a-zA-Z0-9]value *= *([^\"\']([^ \">]*))/i) {
             $value = $1;
         }
-        elsif($value =~ /[^\.a-zA-Z0-9]value *= *(\"|\')([^\"\']*)(\"|\')/) {
+        elsif($value =~ /[^\.a-zA-Z0-9]value *= *(\"|\')([^\"\']*)(\"|\')/i) {
             $value=$2;
         }
         else {