my $self = shift;
my @params = @_;
- unless (exists($self->{'XMLURL'}) and defined($self->{'XMLURL'})) {
+ my $xmlurl = $self->_getval('XMLURL');
+
+ unless (defined($xmlurl) and $xmlurl ne '') {
return 'http talker: XMLURL not set';
}
- if ($self->{'XMLURL'} ne $self->{'_LASTXMLURL'}) {
- $self->{'_LASTXMLURL'} = $self->{'XMLURL'};
- $self->{'__RPCClient'} = RPC::XML::Client->new($self->{'XMLURL'});
+ if ($xmlurl ne $self->{'_LASTXMLURL'}) {
+ $self->{'_LASTXMLURL'} = $xmlurl;
+ $self->{'__RPCClient'} = RPC::XML::Client->new($xmlurl);
}
- if ((exists($self->{'USERNAME'}) and exists($self->{'PASSWORD'})) and
- ($self->{'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('', $self->{'USERNAME'}, $self->{'PASSWORD'});
+ $self->{'__RPCClient'}->credentials('', $username, $password);
}
return $self->{'__RPCClient'}->send_request(@params);