diff options
| author | renaudb <renaudb@localhost> | 1998-11-13 01:10:39 +0000 |
|---|---|---|
| committer | renaudb <renaudb@localhost> | 1998-11-13 01:10:39 +0000 |
| commit | 34b12487f13e8e77b47fb5077ac6b0794dd11228 (patch) | |
| tree | 81898a187cae13f4e1d02f671e792d583b5d5a26 | |
| parent | ad5003837b8f85230e239419c551962d67a36b8a (diff) | |
| download | markup-validator-34b12487f13e8e77b47fb5077ac6b0794dd11228.zip markup-validator-34b12487f13e8e77b47fb5077ac6b0794dd11228.tar.gz markup-validator-34b12487f13e8e77b47fb5077ac6b0794dd11228.tar.bz2 | |
added more verbose output
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index 7b0688f..5bff785 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -1,4 +1,8 @@ #!/usr/local/bin/perl +# +# Link Checker +# Renaud Bruyeron, September 1998 + use strict; $|++; @@ -72,7 +76,7 @@ use CGI; ############### # Global Variables -my $VERSION= '$Id: checklink.pl,v 1.18 1998-09-28 19:24:34 renaudb Exp $ '; +my $VERSION= '$Id: checklink.pl,v 1.19 1998-11-13 01:10:39 renaudb Exp $ '; my %ALLOWED_SCHEMES = ( "http" => 1 ); my %SCHEMES = (); # for report my %URL = (); @@ -214,7 +218,9 @@ sub checklinks { # register HTTP request $ua->register(HTTP::Request->new(HEAD => $abso->abs),\&callback_check,undef,0) if($ALLOWED_SCHEMES{$abso->abs->scheme}); $URL{Registered}{$abso->abs}="True"; + print $abso->abs,"\n" if($VERBOSE); } + print "==============\n" if($VERBOSE); my $response = $ua->wait(10); &print_result($url,$response,$q); } else { |