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

dead code removal

Browse Source
This commit is contained in:
Daniel Stenberg 2002-11-21 15:11:26 +00:00
parent dee84f448f
commit c7354142c0
1 changed files with 1 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
perl/contrib/formfind
View File

@ -1,4 +1,5 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# $Id$
# #
# formfind.pl # formfind.pl
# #
@ -18,29 +19,10 @@
$in=""; $in="";
$usestdin = 1;
if($ARGV[0] eq "-h") { if($ARGV[0] eq "-h") {
print "Usage: $0 < HTML\n"; print "Usage: $0 < HTML\n";
exit; 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 { sub namevalue {
my ($tag)=@_; my ($tag)=@_;