From c7354142c0145ba295a2b90ce3d3e149fbeec10a Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Thu, 21 Nov 2002 15:11:26 +0000 Subject: dead code removal --- perl/contrib/formfind | 20 +------------------- 1 file changed, 1 insertion(+), 19 deletions(-) (limited to 'perl') diff --git a/perl/contrib/formfind b/perl/contrib/formfind index 0363c1ee5..4425e6e9b 100755 --- a/perl/contrib/formfind +++ b/perl/contrib/formfind @@ -1,4 +1,5 @@ #!/usr/bin/env perl +# $Id$ # # formfind.pl # @@ -18,29 +19,10 @@ $in=""; -$usestdin = 1; - if($ARGV[0] eq "-h") { print "Usage: $0 < HTML\n"; exit; } -# If you need a proxy for web access, edit your .curlrc file to feature -# -x - -# linkchecker, URL will be appended to the right of this command line -# this is the one using HEAD: -$linkcheck = "curl -s -m 20 -I"; - -# as a second attempt, this will be used. This is not using HEAD but will -# get the whole frigging document! -$linkcheckfull = "curl -s -m 20 -i"; - -# htmlget, URL will be appended to the right of this command line -$htmlget = "curl -s"; - -# urlget, URL will be appended to the right of this command line -# this stores the file with the remote file name in the current dir -$urlget = "curl -O -s"; sub namevalue { my ($tag)=@_; -- cgit v1.2.3