aboutsummaryrefslogtreecommitdiff
path: root/perl/contrib/formfind
diff options
context:
space:
mode:
authorYang Tse <yangsita@gmail.com>2010-02-16 13:32:45 +0000
committerYang Tse <yangsita@gmail.com>2010-02-16 13:32:45 +0000
commit46b112bcd439f4413925a7300d66a3e6f148765e (patch)
treec925ce0c32a0af8bbcf427187c3838d005e3218b /perl/contrib/formfind
parentf442dd6496c8710c4000a078e8085238fdaa7545 (diff)
replaced tabs with spaces
Diffstat (limited to 'perl/contrib/formfind')
-rwxr-xr-xperl/contrib/formfind6
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";