diff options
author | Yang Tse <yangsita@gmail.com> | 2010-02-16 13:32:45 +0000 |
---|---|---|
committer | Yang Tse <yangsita@gmail.com> | 2010-02-16 13:32:45 +0000 |
commit | 46b112bcd439f4413925a7300d66a3e6f148765e (patch) | |
tree | c925ce0c32a0af8bbcf427187c3838d005e3218b /perl/contrib/formfind | |
parent | f442dd6496c8710c4000a078e8085238fdaa7545 (diff) |
replaced tabs with spaces
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"; |