| Subject: | No custom UA string |
Allow custom UserAgent-Strings. This is important if multiple, different
clients are accessing (or multiple versions of the same client).
With this patch, you can call it something like this:
my $xmlrpc = XML::RPC->new($apiURL, ("User-Agent" =>
"Scarecrow/$VERSION"));
| Subject: | rpc.patch |
--- RPC.pm_old 2012-08-06 11:48:16.000000000 +0200
+++ RPC.pm 2012-08-06 11:56:45.000000000 +0200
@@ -138,7 +138,7 @@ sub call {
$xml_out,
{
'Content-Type' => 'text/xml',
- 'User-Agent' => 'XML-RPC/' . $VERSION,
+ 'User-Agent' => defined($self->{tpp}->{'User-Agent'}) ? $self->{tpp}->{'User-Agent'} : 'XML-RPC/' . $VERSION,
'Content-Length' => length($xml_out)
}
);