Re: lwp-request -H is overridden
Gisle Aas (gisle@aas.no)
01 Jun 1999 12:42:59 +0200
Jeff <schaller@learjet.com> writes:
> Is it known that specifying -H 'User-Agent: (anything)' on a
> lwp-request (or GET) command is overridden by the default header?
I have added this hack to the next release:
Index: bin/lwp-request.PL
===================================================================
RCS file: /home/cvs/aas/perl/mods/libwww-perl/bin/lwp-request.PL,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -u -r1.37 -r1.38
--- lwp-request.PL 1999/03/21 21:56:18 1.37
+++ lwp-request.PL 1999/06/01 10:40:51 1.38
@@ -12,7 +12,7 @@
!GROK!THIS!
print OUT <<'!NO!SUBS!';
-# $Id: lwp-request.PL,v 1.37 1999/03/21 21:56:18 gisle Exp $
+# $Id: lwp-request.PL,v 1.38 1999/06/01 10:40:51 gisle Exp $
#
# Simple user agent using LWP library.
@@ -190,7 +190,7 @@
$progname =~ s,.*/,,; # use basename only
$progname =~ s/\.\w*$//; # strip extension, if any
-$VERSION = sprintf("%d.%02d", q$Revision: 1.37 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.38 $ =~ /(\d+)\.(\d+)/);
require LWP;
@@ -383,6 +383,7 @@
for my $user_header (@{ $options{'H'} || [] }) {
my ($header_name, $header_value) = split /:\s*/, $user_header, 2;
$request->header($header_name, $header_value);
+ $ua->agent($header_value) if lc($header_name) eq "user-agent"; # Ugh!
}
#$request->header('Accept', '*/*');
if ($options{'c'}) { # will always be set for request that wants content