diff options
author | Daniel Stenberg <daniel@haxx.se> | 2002-11-21 15:11:26 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2002-11-21 15:11:26 +0000 |
commit | c7354142c0145ba295a2b90ce3d3e149fbeec10a (patch) | |
tree | ecabb3eeaa3a1dbf627915aea8282a65ce84bb18 | |
parent | dee84f448faf1f247b128f204183c4dd15be148f (diff) |
dead code removal
-rwxr-xr-x | perl/contrib/formfind | 20 |
1 files changed, 1 insertions, 19 deletions
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 <proxy:port> - -# 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)=@_; |