git://git.camperquake.de
/
xmlrtorrent.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Unix Domain Socket communication works
[xmlrtorrent.git]
/
xmlrtorrent.pm
diff --git
a/xmlrtorrent.pm
b/xmlrtorrent.pm
index
92cd1aa
..
d50d5ac
100644
(file)
--- a/
xmlrtorrent.pm
+++ b/
xmlrtorrent.pm
@@
-1,29
+1,22
@@
package xmlrtorrent;
use strict;
package xmlrtorrent;
use strict;
-use RPC::XML;
-use RPC::XML::Client;
use Data::Dumper;
sub new {
my $class = shift;
my $self = {@_};
use Data::Dumper;
sub new {
my $class = shift;
my $self = {@_};
- unless(exists($self->{'XMLURL'}) && defined($self->{'XMLURL'})) {
- return undef;
- }
-
- $self->{'__RPCClient'} = RPC::XML::Client->new($self->{'XMLURL'});
-
return bless($self, $class);
}
return bless($self, $class);
}
-sub load_start{
+sub load_start
{
my $self = shift;
my $self = shift;
+ my $talker = shift;
my $URL = shift;
my $res;
my $URL = shift;
my $res;
- $res = $
self->{'__RPCClient'}
->send_request('load_start', $URL);
+ $res = $
talker
->send_request('load_start', $URL);
unless(ref($res)) {
$self->{'__ERROR'} = $res;
return undef
unless(ref($res)) {
$self->{'__ERROR'} = $res;
return undef
@@
-39,9
+32,10
@@
sub load_start{
sub download_list {
my $self = shift;
sub download_list {
my $self = shift;
+ my $talker = shift;
my $res;
my $res;
- $res = $
self->{'__RPCClient'}
->send_request('d.multicall', '',
+ $res = $
talker
->send_request('d.multicall', '',
'd.get_name=',
'd.get_size_bytes=',
'd.get_bytes_done=',
'd.get_name=',
'd.get_size_bytes=',
'd.get_bytes_done=',