+sub send_request {
+ my $self = shift;
+ my @params = @_;
+
+ unless (exists($self->{'XMLURL'}) and defined($self->{'XMLURL'})) {
+ 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 ((exists($self->{'USERNAME'}) and exists($self->{'PASSWORD'})) and
+ ($self->{'USERNAME'} ne '')) {
+ # mitch: let me guess, the realm must be configurable, too!
+ $self->{'__RPCClient'}->credentials('', $self->{'USERNAME'}, $self->{'PASSWORD'});
+ }
+
+ return $self->{'__RPCClient'}->send_request(@params);
+}
+