perl/modules/W3C/LinkChecker/bin checklink,4.11,4.12 checklink.pod,1.12,1.13

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv21512/bin

Modified Files:
	checklink checklink.pod 
Log Message:
Deprecate the -y/--proxy option in favour of the http_proxy env variable.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.11
retrieving revision 4.12
diff -u -d -r4.11 -r4.12
--- checklink	7 Nov 2004 10:23:44 -0000	4.11
+++ checklink	7 Nov 2004 11:17:55 -0000	4.12
@@ -430,16 +430,23 @@
              't|timeout=i'     => \$Opts{Timeout},
              'S|sleep=i'       => \$Opts{Sleep_Time},
              'L|languages=s'   => \$Opts{Accept_Language},
-             'n|noacclanguage' => sub { warn("*** Warning: The " .
-                                        "-n/--noacclanguage option is " .
-                                        "deprecated and has no effect.\n"); },
              'D|depth=i'       => sub { $Opts{Depth} = $_[1]
                                           unless $_[1] == 0; },
              'd|domain=s'      => \$Opts{Trusted},
-             'y|proxy=s'       => \$Opts{HTTP_Proxy},
              'masquerade=s'    => \$masq,
              'hide-same-realm' => \$Opts{Hide_Same_Realm},
              'V|version'       => \&version,
+             # Deprecated options:
+             'n|noacclanguage' => sub { warn("*** Warning: The " .
+                                        "-n/--noacclanguage option is " .
+                                        "deprecated and has no effect.\n");
+                                      },
+             'y|proxy=s'       => sub { warn("*** Warning: The -y/--proxy " .
+                                        "option is deprecated, use the " .
+                                        "http_proxy\n             " .
+                                        "environment variable instead.\n");
+                                        $Opts{HTTP_Proxy} = $_[1];
+                                      },
             )
     || usage(1);
 
@@ -517,12 +524,12 @@
                             (default: $trust).
  --masquerade \"BASE1 BASE2\" Masquerade base URI BASE1 as BASE2.  See the
                             manual page for more information.
- -y, --proxy PROXY          Specify an HTTP proxy server.
  -H, --html                 HTML output.
  -?, -h, --help             Show this message and exit.
  -V, --version              Output version information and exit.
 
-See \"perldoc Net::FTP\" for information about various environment variables
+See \"perldoc LWP\" for information about proxy server support,
+\"perldoc Net::FTP\" for information about various environment variables
 affecting FTP connections and \"perldoc Net::NNTP\" for setting a default
 NNTP server for news: URIs.
 

Index: checklink.pod
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink.pod,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- checklink.pod	8 Jun 2004 21:45:58 -0000	1.12
+++ checklink.pod	7 Nov 2004 11:17:55 -0000	1.13
@@ -128,10 +128,6 @@
 argument consisting of two URIs, separated by whitespace.  One usual way of
 providing a value with embedded whitespace is to enclose it in quotes.
 
-=item B<-y, --proxy> I<proxy>
-
-Specify an HTTP proxy server.
-
 =item B<-H, --html>
 
 HTML output.

Received on Sunday, 7 November 2004 11:17:58 UTC