summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2004-10-19 18:36:17 +0000
committerDaniel Stenberg <daniel@haxx.se>2004-10-19 18:36:17 +0000
commit225a652021953a56cd1afd81786028cfd0f66dfa (patch)
tree23d858dccf8a6987888a902692cbb08cfe40f616 /perl
parent38b1d9675012815e2c19719ba6ce46c057bb0662 (diff)
downloadcurl-225a652021953a56cd1afd81786028cfd0f66dfa.tar.gz
Ralph Mitchell fixed: input field with NAME= and VALUE= weren't processed
properly case insensitive
Diffstat (limited to 'perl')
-rwxr-xr-xperl/contrib/formfind8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/contrib/formfind b/perl/contrib/formfind
index f9e869531..976e3ee54 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 {