From 337a46474a1c782603c918171a7afcdb1221973c Mon Sep 17 00:00:00 2001
From: Johan Berntsson <johan@3di.jp>
Date: Wed, 16 Jul 2008 03:04:45 +0000
Subject: [PATCH] Updated files for the loadbalancer web interface

---
 .../MonitorGUI/htdocs/XML/RPC.pm              | 100 ++++++++++++++++++
 .../MonitorGUI/htdocs/readme.txt              |  21 ++++
 2 files changed, 121 insertions(+)
 create mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm
 create mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/readme.txt

diff --git a/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm b/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm
new file mode 100644
index 0000000000..5d9b38835b
--- /dev/null
+++ b/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm
@@ -0,0 +1,100 @@
+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;
+
diff --git a/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/readme.txt b/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/readme.txt
new file mode 100644
index 0000000000..396ba563c6
--- /dev/null
+++ b/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/readme.txt
@@ -0,0 +1,21 @@
+How to get this working on Linux/Apache:
+
+Create a new directory /var/www/monitor and copy all files htdocs/* files there.
+
+Include these lines in /etc/apache2/httpdocs
+---
+<Directory /var/www/monitor>
+    Options +ExecCGI
+</Directory>
+AddHandler cgi-script .cgi
+---
+
+Restart Apache: sudo /etc/init.d/apache2 restart
+
+Check that the perl XML-RPC modules is available  ("sudo apt-get install librcp-xml-perl" on Ubuntu)
+
+Edit /var/www/monitor/monitor.cgi to update the IP addresses for the Grid server (TODO: improve this)
+
+Start OpenSim in grid mode, use a browser to open http://localhost/monitor/monitor.cgi
+
+