git://git.camperquake.de
/
xmlrtorrent.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2305567
)
- Reindent
author
Ralf Ertzinger
<sun@lain.camperquake.de>
Mon, 12 Jan 2009 20:34:13 +0000
(21:34 +0100)
committer
Ralf Ertzinger
<sun@lain.camperquake.de>
Mon, 12 Jan 2009 20:34:13 +0000
(21:34 +0100)
xmlrtorrent/HTTPTalker.pm
patch
|
blob
|
history
diff --git
a/xmlrtorrent/HTTPTalker.pm
b/xmlrtorrent/HTTPTalker.pm
index
d8b9340
..
1254b2d
100644
(file)
--- a/
xmlrtorrent/HTTPTalker.pm
+++ b/
xmlrtorrent/HTTPTalker.pm
@@
-4,8
+4,8
@@
# licensed under GNU GPL v2
package xmlrtorrent::HTTPTalker;
# licensed under GNU GPL v2
package xmlrtorrent::HTTPTalker;
-use xmlrtorrent::TalkerBase;
-@ISA = qw(xmlrtorrent::TalkerBase);
+use xmlrtorrent::
RTorrent
TalkerBase;
+@ISA = qw(xmlrtorrent::
RTorrent
TalkerBase);
use Data::Dumper;
use RPC::XML::Client;
use Data::Dumper;
use RPC::XML::Client;
@@
-18,9
+18,9
@@
sub new {
$self->{'NAME'} = 'http';
$self->{'DESC'} = 'talker using RPC over HTTP';
$self->{'_PARAMS'} = {
$self->{'NAME'} = 'http';
$self->{'DESC'} = 'talker using RPC over HTTP';
$self->{'_PARAMS'} = {
- 'XMLURL' => ['', 'URL of SCGI script'],
- 'USERNAME' => ['', 'username for RPC credentials (optional)'],
- 'PASSWORD' => ['', 'password for RPC credentials (optional)'],
+
'XMLURL' => ['', 'URL of SCGI script'],
+
'USERNAME' => ['', 'username for RPC credentials (optional)'],
+
'PASSWORD' => ['', 'password for RPC credentials (optional)'],
};
$self->{'_LASTXMLURL'} = undef;
};
$self->{'_LASTXMLURL'} = undef;
@@
-38,20
+38,20
@@
sub send_request {
my $xmlurl = $self->_getval('XMLURL');
unless (defined($xmlurl) and $xmlurl ne '') {
my $xmlurl = $self->_getval('XMLURL');
unless (defined($xmlurl) and $xmlurl ne '') {
- return 'http talker: XMLURL not set';
+
return 'http talker: XMLURL not set';
}
if ($xmlurl ne $self->{'_LASTXMLURL'}) {
}
if ($xmlurl ne $self->{'_LASTXMLURL'}) {
- $self->{'_LASTXMLURL'} = $xmlurl;
- $self->{'__RPCClient'} = RPC::XML::Client->new($xmlurl);
+
$self->{'_LASTXMLURL'} = $xmlurl;
+
$self->{'__RPCClient'} = RPC::XML::Client->new($xmlurl);
}
my $username = $self->_getval('USERNAME');
my $password = $self->_getval('PASSWORD');
if (defined $username and defined $password and $username ne '') {
}
my $username = $self->_getval('USERNAME');
my $password = $self->_getval('PASSWORD');
if (defined $username and defined $password and $username ne '') {
- # mitch: let me guess, the realm must be configurable, too!
- $self->{'__RPCClient'}->credentials('', $username, $password);
+
# mitch: let me guess, the realm must be configurable, too!
+
$self->{'__RPCClient'}->credentials('', $username, $password);
}
return $self->{'__RPCClient'}->send_request(@params);
}
return $self->{'__RPCClient'}->send_request(@params);