generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

removed trailing whitespace

Browse Source
This commit is contained in:
Yang Tse
2010-02-14 19:40:18 +00:00
parent 2268657272
commit a07bc79117
141 changed files with 673 additions and 669 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
perl/README
View File

@@ -1,7 +1,7 @@
_ _ ____ _
___| | | | _ \| |
/ __| | | | |_) | |
| (__| |_| | _ <| |___
_ _ ____ _
___| | | | _ \| |
/ __| | | | |_) | |
| (__| |_| | _ <| |___
\___|\___/|_| \_\_____|
Perl

8
perl/contrib/checklinks.pl.in
View File

@@ -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}) {

18
perl/contrib/crawlink.pl
View File

@@ -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
}
}
}
}

14
perl/contrib/formfind
View File

@@ -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) {

6
perl/contrib/getlinks.pl.in
View File

@@ -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}) {