aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-rwxr-xr-xperl/contrib/formfind20
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)=@_;