diff options
| author | hugo <hugo@localhost> | 2000-01-20 22:01:03 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2000-01-20 22:01:03 +0000 |
| commit | 6329ba458950f00c33ca6d5b71ad3d8c50338b29 (patch) | |
| tree | f9387c1a642df07ffe5bff6f378307461c10e90d | |
| parent | c1926bfcb4dca2121a94ae6f998b42a40cc5df71 (diff) | |
| download | markup-validator-6329ba458950f00c33ca6d5b71ad3d8c50338b29.zip markup-validator-6329ba458950f00c33ca6d5b71ad3d8c50338b29.tar.gz markup-validator-6329ba458950f00c33ca6d5b71ad3d8c50338b29.tar.bz2 | |
Backward compatibility with Renaud's script
| -rwxr-xr-x | httpd/cgi-bin/LinkChecker.pl | 6 | ||||
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/httpd/cgi-bin/LinkChecker.pl b/httpd/cgi-bin/LinkChecker.pl index 2a5715b..5ade2e2 100755 --- a/httpd/cgi-bin/LinkChecker.pl +++ b/httpd/cgi-bin/LinkChecker.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: LinkChecker.pl,v 1.17 2000-01-20 21:59:30 hugo Exp $ +# $Id: LinkChecker.pl,v 1.18 2000-01-20 22:01:03 hugo Exp $ # # This program is licensed under the W3C License. @@ -21,7 +21,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C LinkChecker'; -my $VERSION = q$Revision: 1.17 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 1.18 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # State of the program @@ -75,6 +75,8 @@ if ($#ARGV >= 0) { my $uri; if ($query->param('uri')) { $uri = $query->param('uri'); + } elsif ($query->param('url')) { + $uri = $query->param('url'); } else { &print_form($query); } diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index f9e3e97..42d0516 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 2.17 2000-01-20 21:59:30 hugo Exp $ +# $Id: checklink.pl,v 2.18 2000-01-20 22:01:03 hugo Exp $ # # This program is licensed under the W3C License. @@ -21,7 +21,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.17 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.18 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # State of the program @@ -75,6 +75,8 @@ if ($#ARGV >= 0) { my $uri; if ($query->param('uri')) { $uri = $query->param('uri'); + } elsif ($query->param('url')) { + $uri = $query->param('url'); } else { &print_form($query); } |