Commit 225a6520 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

Ralph Mitchell fixed: input field with NAME= and VALUE= weren't processed 

properly case insensitive
parent 38b1d967

perl/contrib/formfind

+4 −4
Original line number Diff line number Diff line
@@ -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 {