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/README                   |  8 ++++----
 perl/contrib/checklinks.pl.in |  8 ++++----
 perl/contrib/crawlink.pl      | 18 +++++++++---------
 perl/contrib/formfind         | 14 +++++++-------
 perl/contrib/getlinks.pl.in   |  6 +++---
 5 files changed, 27 insertions(+), 27 deletions(-)

(limited to 'perl')

diff --git a/perl/README b/perl/README
index 6d5e34392..26d627a2b 100644
--- a/perl/README
+++ b/perl/README
@@ -1,7 +1,7 @@
-                                  _   _ ____  _     
-                              ___| | | |  _ \| |    
-                             / __| | | | |_) | |    
-                            | (__| |_| |  _ <| |___ 
+                                  _   _ ____  _
+                              ___| | | |  _ \| |
+                             / __| | | | |_) | |
+                            | (__| |_| |  _ <| |___
                              \___|\___/|_| \_\_____|
 
 Perl
diff --git a/perl/contrib/checklinks.pl.in b/perl/contrib/checklinks.pl.in
index 6be659faa..1b453742f 100644
--- a/perl/contrib/checklinks.pl.in
+++ b/perl/contrib/checklinks.pl.in
@@ -103,7 +103,7 @@ sub SplitURL {
 	    $getpath ="";
 	    $getdocument = $3;
 	}
-    
+
     }
     elsif ($inurl=~ /^([^:]+):\/\/(.*)/ ) {
 	$getprotocol = $1;
@@ -199,7 +199,7 @@ sub LinkWorks {
 	    return "GOOD";
 	}
 	else {
-	    
+
 	    if($head && ($error >= 500)) {
 		# This server doesn't like HEAD!
 		@doc = `$linkcheckfull \"$check\"`;
@@ -223,7 +223,7 @@ sub GetLinks {
 	$tag = $1;
 	
 	if($tag =~ /^<!--/) {
-	    # this is a comment tag, ignore it 
+	    # this is a comment tag, ignore it
 	}
 	else {
 	    if($tag =~ /(src|href|background|archive) *= *(\"[^\"]\"|[^ )>]*)/i) {
@@ -239,7 +239,7 @@ sub GetLinks {
 		if($url eq "") {
 		    # if the link was nothing than a #-link it may now have
 		    # been emptied completely so then we skip the rest
-		    next getlinkloop;		    
+		    next getlinkloop;
 		}
 
 		if($done{$url}) {
diff --git a/perl/contrib/crawlink.pl b/perl/contrib/crawlink.pl
index 53be500cc..ba10b8b7c 100755
--- a/perl/contrib/crawlink.pl
+++ b/perl/contrib/crawlink.pl
@@ -140,7 +140,7 @@ sub SplitURL {
 	    $getpath ="";
 	    $getdocument = $3;
 	}
-    
+
     }
     elsif ($inurl=~ /^([^:]+):\/\/(.*)/ ) {
 	$getprotocol = $1;
@@ -235,7 +235,7 @@ sub LinkWorks {
 	    return "GOOD";
 	}
 	else {
-	    
+
 	    if($head && ($error >= 500)) {
 		# This server doesn't like HEAD!
 		@doc = `$linkcheckfull \"$check\"`;
@@ -258,7 +258,7 @@ sub GetLinks {
 	my $tag = $1;
 	
 	if($tag =~ /^<!--/) {
-	    # this is a comment tag, ignore it 
+	    # this is a comment tag, ignore it
 	}
 	else {
 	    if($tag =~ /(src|href|background|archive) *= *(\"[^\"]\"|[^ \)>]*)/i) {
@@ -274,7 +274,7 @@ sub GetLinks {
 		if($url eq "") {
 		    # if the link was nothing than a #-link it may now have
 		    # been emptied completely so then we skip the rest
-		    next;		    
+		    next;
 		}
 
 		if($done{$url}) {
@@ -355,7 +355,7 @@ while(1) {
     #print "path = $getpath\n";
     #print "document = $getdocument\n";
     #exit;
-    
+
     #
     # Extracts all links from the given HTML buffer
     #
@@ -377,7 +377,7 @@ while(1) {
             if($external) {
                 next;
             }
-            
+
             # this is a link on the same server:
             if($url =~ /^\//) {
                 # from root
@@ -386,7 +386,7 @@ while(1) {
             else {
                 # from the scanned page's dir
                 my $nyurl=$url;
-                
+
                 if(length($getpath) &&
                    ($getpath !~ /\/$/) &&
                    ($nyurl !~ /^\//)) {
@@ -402,7 +402,7 @@ while(1) {
         my $count = $done{$url};
 
         $allcount += $count;
-        
+
         print "$success $count <".$tagtype{$url}."> $link $url\n";
 
         if("BAD" eq $success) {
@@ -430,7 +430,7 @@ while(1) {
                 $rooturls{$link}++; # check this if not checked already
             }
         }
-        
+
     }
 }
 
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) {
diff --git a/perl/contrib/getlinks.pl.in b/perl/contrib/getlinks.pl.in
index 1ef0d3e27..0783e2d63 100644
--- a/perl/contrib/getlinks.pl.in
+++ b/perl/contrib/getlinks.pl.in
@@ -95,7 +95,7 @@ sub SplitURL {
 	    $getpath ="";
 	    $getdocument = $3;
 	}
-    
+
     }
     elsif ($inurl=~ /^([^:]+):\/\/(.*)/ ) {
 	$getprotocol = $1;
@@ -178,7 +178,7 @@ sub GetLinks {
 	$tag = $1;
 	
 	if($tag =~ /^<!--/) {
-	    # this is a comment tag, ignore it 
+	    # this is a comment tag, ignore it
 	}
 	else {
 	    if($tag =~ /(src|href|background|archive) *= *(\"[^\"]\"|[^ )>]*)/i) {
@@ -194,7 +194,7 @@ sub GetLinks {
 		if($url eq "") {
 		    # if the link was nothing than a #-link it may now have
 		    # been emptied completely so then we skip the rest
-		    next getlinkloop;		    
+		    next getlinkloop;
 		}
 
 		if($done{$url}) {
-- 
cgit v1.2.3