From fefe0ff3d9ceaaefccb494ef13a5a98cc0131070 Mon Sep 17 00:00:00 2001
From: Mike Mazur
Date: Wed, 28 Jan 2009 01:56:04 +0000
Subject: Removing contents of ThirdParty/3Di. The load balancer can now be
 found at http://forge.opensimulator.org/gf/project/loadbalancer/

config key: svn.rmdir

---
 .../3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm | 100 ---------------------
 1 file changed, 100 deletions(-)
 delete mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm

(limited to 'ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML')

diff --git a/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm b/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm
deleted file mode 100644
index 5d9b388..0000000
--- a/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm
+++ /dev/null
@@ -1,100 +0,0 @@
-package XML::RPC;
-
-use strict;
-use Carp;
-use RPC::XML;
-use RPC::XML::Parser;
-use RPC::XML::Client;
-
-sub new {
-    my ($this, $url) = @_;
-    my %fields = (
-	parser => new RPC::XML::Parser(),
-	url => $url,
-	);
-    return bless \%fields, $this;
-}
-
-sub receive {
-    my ($this, $xmldata, $handler) = @_;
-    my $response = undef;
-    eval {
-	my $request = $this->{parser}->parse($xmldata);
-	my @args = map {$_->value} @{$request->args};
-	$response = $handler->($request->{name}, @args);
-    };
-    if ($@) {
-	my %error = (
-	    "error" => "ERROR",
-	    "message" => $@,
-	    );
-	$response = \%error;
-    }
-    if ( ref($response) eq "RPC::XML::response" ) {
-	return $response->as_string;
-    }
-    else {
-	return RPC::XML::response->new($response)->as_string;
-    }
-}
-
-sub call {
-    my ($this, $method_name, $param) = @_;
-	if (!$this->{url}) {
-		Carp::croak("XMLRPC: url not set for calling $method_name");
-	}
-    my $client = RPC::XML::Client->new($this->{url});
-    my $request_param = undef;
-    my $req = undef;
-    if (ref $param eq "ARRAY") {
-		$request_param = &_make_array_param($param);
-		$req = RPC::XML::request->new(
-		    $method_name,
-		    @$request_param,
-		    );
-    } elsif (ref $param eq "HASH"){
-		$request_param = &_make_hash_param($param);
-		$req = RPC::XML::request->new(
-		    $method_name,
-		    $request_param,
-		    );
-    } else {
-		Carp::croak("unexpected param type");
-    }
-    my $rpc_res = undef;
-	eval {
-	    $rpc_res = $client->send_request($req);
-	};
-	if ($@) {
-		Carp::croak("request " . $this->{url} . "/" . $method_name . " failed. $@" );
-	}
-	if (ref($rpc_res) eq "RPC::XML::struct") {
-	    my %res = map { $_ => $rpc_res->{$_}->value } keys %$rpc_res; # remember good perl !!
-	    return \%res;
-	} elsif (ref($rpc_res) eq "RPC::XML::string") {
-		return $rpc_res->value;
-	} else {
-		return undef;
-	}
-}
-
-sub _make_array_param {
-    my $param = shift;
-    my @array_param = ();
-    foreach (@$param) {
-	push @array_param, RPC::XML::string->new($_); # @@@ only string type
-    }
-    return \@array_param;
-}
-
-sub _make_hash_param {
-    my $param = shift;
-    my %hash_param = ();
-    foreach (keys %$param) {
-	$hash_param{$_} = RPC::XML::string->new($param->{$_}); # @@@ only string type
-    }
-    return RPC::XML::struct->new(\%hash_param);
-}
-
-1;
-
-- 
cgit v1.1