diff options
Diffstat (limited to 'perl')
-rw-r--r-- | perl/README | 8 | ||||
-rw-r--r-- | perl/contrib/checklinks.pl.in | 8 | ||||
-rwxr-xr-x | perl/contrib/crawlink.pl | 18 | ||||
-rwxr-xr-x | perl/contrib/formfind | 14 | ||||
-rw-r--r-- | perl/contrib/getlinks.pl.in | 6 |
5 files changed, 27 insertions, 27 deletions
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}) { |