Bug#719016: eiskaltdcpp-cli: needs adaptation to libjson-rpc-perl 1.03

[Damyan Ivanov]

Package: eiskaltdcpp-cli
Version: 2.2.8-1
Severity: important
Tags: patch

Please find attached a patch that adapts eiskaltdcpp-cli to libjson-rpc-perl 
1.03 (just uploaded to experimental).

JSON-RPC's upstream has changed (some two years ago), and that change led to 
some reorganisation, resulting in JSON::RPC::Client being renamed to 
JSON::RPC::Legacy::Client.

I plan to upload libjson-rpc-perl 1.03 to unstable in two weeks, at which point 
eiskaltdcpp-cli would become uninstallable. I could NMU then if needed.


Cheers,
    dam

-- System Information:
Debian Release: jessie/sid
  APT prefers stable-updates
  APT policy: (500, 'stable-updates'), (500, 'unstable'), (500, 'stable'), (1, 
'experimental')
Architecture: amd64 (x86_64)

Kernel: Linux 3.10-1-amd64 (SMP w/4 CPU cores)
Locale: LANG=bg_BG.UTF-8, LC_CTYPE=bg_BG.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages eiskaltdcpp-cli depends on:
pn  libdata-dump-perl                <none>
ii  libgetopt-long-descriptive-perl  0.093-1
ii  libjson-rpc-perl                 0.96-3
pn  libterm-shellui-perl             <none>
ii  perl                             5.14.2-21

eiskaltdcpp-cli recommends no packages.

Versions of packages eiskaltdcpp-cli suggests:
pn  eiskaltdcpp-daemon  <none>

>From d874186578af27207f6a3122a36f943ac0377198 Mon Sep 17 00:00:00 2001
From: Damyan Ivanov <d...@debian.org>
Date: Wed, 7 Aug 2013 20:48:31 +0200
Subject: [PATCH] adapt to JSON-RPC 1.03

---
 debian/control                 | 2 +-
 eiskaltdcpp-cli/cli-jsonrpc.pl | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/debian/control b/debian/control
index 1c82531..de3e3f7 100644
--- a/debian/control
+++ b/debian/control
@@ -352,7 +352,7 @@ Architecture: all
 Depends: ${perl:Depends}, ${misc:Depends},
  libgetopt-long-descriptive-perl,
  libdata-dump-perl,
- libjson-rpc-perl,
+ libjson-rpc-perl (>= 1.03),
  libterm-shellui-perl
 Replaces: eiskaltdcpp-cli-unstable
 Conflicts: eiskaltdcpp-cli-unstable
diff --git a/eiskaltdcpp-cli/cli-jsonrpc.pl b/eiskaltdcpp-cli/cli-jsonrpc.pl
index 1fc3bb8..cd203a6 100755
--- a/eiskaltdcpp-cli/cli-jsonrpc.pl
+++ b/eiskaltdcpp-cli/cli-jsonrpc.pl
@@ -25,7 +25,7 @@ use strict;
 use warnings;
 no warnings 'uninitialized';
 use 5.012;
-use JSON::RPC::Client;
+use JSON::RPC::Legacy::Client;
 use Term::ShellUI;
 use Data::Dumper;
 use Getopt::Long;
@@ -88,7 +88,7 @@ $obj->{'jsonrpc'} = $config{jsonrpc};
 my $res;
 
 # creating and configuring jsonrpc client
-my $client = new JSON::RPC::Client;
+my $client = new JSON::RPC::Legacy::Client;
 $client->version("2.0");
 $client->ua->timeout(10);
 #$client->ua->credentials('http://127.0.0.1:3121', 'jsonrpc', 'user' => 'password');
-- 
1.8.4.rc1