diff options
Diffstat (limited to 'perl/contrib/formfind')
-rwxr-xr-x | perl/contrib/formfind | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl/contrib/formfind b/perl/contrib/formfind index 6d291ddd6..c080f7416 100755 --- a/perl/contrib/formfind +++ b/perl/contrib/formfind @@ -74,7 +74,7 @@ while(<STDIN>) { while($in =~ /[^<]*(<[^>]+>)/g ) { # we have a tag in $1 $tag = $1; - + if($tag =~ /^<!--/) { # this is a comment tag, ignore it } @@ -99,7 +99,7 @@ while($in =~ /[^<]*(<[^>]+>)/g ) { if($enctype eq "multipart/form-data") { $enctype="multipart form upload [use -F]" - } + } $enctype = "\n--- type: $enctype"; } else { @@ -134,7 +134,7 @@ while($in =~ /[^<]*(<[^>]+>)/g ) { $mtag = $1; ($name, $value)=namevalue($tag); - + if($mtag =~ /select/i) { print "Select: NAME=\"$name\"\n"; push @vars, "$name"; |