From a07bc79117971b96ebf3188c0a34a73ee0a3609b Mon Sep 17 00:00:00 2001
From: Yang Tse <yangsita@gmail.com>
Date: Sun, 14 Feb 2010 19:40:18 +0000
Subject: removed trailing whitespace

---
 perl/contrib/formfind | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'perl/contrib/formfind')

diff --git a/perl/contrib/formfind b/perl/contrib/formfind
index 976e3ee54..6d291ddd6 100755
--- a/perl/contrib/formfind
+++ b/perl/contrib/formfind
@@ -76,7 +76,7 @@ while($in =~ /[^<]*(<[^>]+>)/g ) {
     $tag = $1;
 	
     if($tag =~ /^<!--/) {
-        # this is a comment tag, ignore it 
+        # this is a comment tag, ignore it
     }
     else {
         if(!$form &&
@@ -90,13 +90,13 @@ while($in =~ /[^<]*(<[^>]+>)/g ) {
             }
             $action= $tag;
             $action=~ s/.*action *= *(\'|\"|)([^ \"\'>]*).*/$2/gi;
-            
+
             $method=uc($method);
-            
+
             $enctype=$tag;
             if ($enctype =~ /enctype *=/) {
                 $enctype=~ s/.*enctype *= *(\'|\"|)([^ \"\'>]*).*/$2/gi;
-                
+
                 if($enctype eq "multipart/form-data") {
                     $enctype="multipart form upload [use -F]"
 		    }
@@ -132,7 +132,7 @@ while($in =~ /[^<]*(<[^>]+>)/g ) {
         elsif($form &&
               ($tag =~ /^< *(input|select)/i)) {
             $mtag = $1;
-            
+
             ($name, $value)=namevalue($tag);
 		
             if($mtag =~ /select/i) {
@@ -154,7 +154,7 @@ while($in =~ /[^<]*(<[^>]+>)/g ) {
                 }
                 elsif($name eq "") {
                     # let's read the value parameter
-                    
+
                     print "Button: \"$value\" ($type)\n";
                     push @alts, "$value";
                 }
@@ -173,7 +173,7 @@ while($in =~ /[^<]*(<[^>]+>)/g ) {
         elsif($form &&
               ($tag =~ /^< *textarea/i)) {
             my ($name, $value)=namevalue($tag);
-            
+
             print "Textarea: NAME=\"$name\"\n";
         }
         elsif($select) {
-- 
cgit v1.2.3