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
---
.../MonitorGUI/htdocs/MonitorGUI/View.pm | 214 ---------------------
.../3Di/RegionMonitor/MonitorGUI/htdocs/MyCGI.pm | 91 ---------
.../3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm | 100 ----------
.../RegionMonitor/MonitorGUI/htdocs/monitor.cgi | 202 -------------------
.../3Di/RegionMonitor/MonitorGUI/htdocs/readme.txt | 21 --
5 files changed, 628 deletions(-)
delete mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/MonitorGUI/View.pm
delete mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/MyCGI.pm
delete mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/XML/RPC.pm
delete mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/monitor.cgi
delete mode 100644 ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/readme.txt
(limited to 'ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs')
diff --git a/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/MonitorGUI/View.pm b/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/MonitorGUI/View.pm
deleted file mode 100644
index bab462f..0000000
--- a/ThirdParty/3Di/RegionMonitor/MonitorGUI/htdocs/MonitorGUI/View.pm
+++ /dev/null
@@ -1,214 +0,0 @@
-package MonitorGUI::View;
-
-use strict;
-
-my @server_list;
-my $max_port;
-my $regions;
-
-sub screen_header {
- return << "HEADER";
-
-
-
-
-
-Region Monitor GUI, 3Di
-
-
-HEADER
-}
-
-sub screen_footer {
- return << "FOOTER";
-
-
-FOOTER
-}
-
-sub html {
- my $grid_info = shift;
- my $regions_list = $grid_info->{"sim-profiles"};
- $regions = undef;
- foreach(@$regions_list) {
- my $ip = $_->{sim_ip} || "UNKNOWN";
- my $port = $_->{sim_port} || "UNKNOWN";
- $regions->{$ip}->{$port} = $_;
- if (!$regions->{max_port} || $regions->{max_port} < $port) {
- $regions->{max_port} = $port;
- }
- }
- @server_list = keys %$regions;
- $max_port = $regions->{max_port};
- my $html = "";
- foreach my $machine (@server_list) {
- next if ($machine eq "max_port");
- $html .= &_machine_view($machine, $regions->{$machine});
- }
- return $html;
-}
-
-sub _machine_view {
- my ($ip, $info) = @_;
- my $region_html = "";
- foreach my $region (keys %$info) {
- $region_html .= &_region_html($info->{$region});
- }
- my $html =<< "MACHINE_HTML";
-$ip
-$region_html
-
-MACHINE_HTML
-}
-
-sub _region_html {
- my $region_info = shift;
- my $name = $region_info->{name} || "UNKNOWN";
- my $x = $region_info->{x} || -1;
- my $y = $region_info->{y} || -1;
- my $ip = $region_info->{sim_ip} || "UNKNOWN";
- my $port = $region_info->{sim_port} || "UNKNOWN";
- my $get_scene_presence_filter = $region_info->{get_scene_presence_filter};
- my $get_scene_presence = $region_info->{get_scene_presence};
- my $get_avatar_filter = $region_info->{get_avatar_filter};
- my $get_avatar = $region_info->{get_avatar};
- my $avatar_names = $region_info->{avatar_names};
- my $action_forms = &_action_forms($region_info);
- my $html = <<"REGION_HTML";
-$name
-$ip:$port | X: $x Y: $y
-
-
-get_avatar |
-$get_avatar |
- |
-
-
-get_avatar_filter |
-$get_avatar_filter |
-$avatar_names |
-
-
-get_scene_presence |
-$get_scene_presence |
- |
-
-
-get_scene_presence_filter |
-$get_scene_presence_filter |
- |
-
-
-$action_forms
-REGION_HTML
- return $html;
-}
-
-sub _action_forms {
- my $region_info = shift;
- my $ip = $region_info->{sim_ip};
- my $port = $region_info->{sim_port};
- my $default_input_port = $max_port + 1;
- my $move_to_options = "";
- my $split_to_options = "";
- my $merge_ip_options = "";
- foreach(@server_list) {
- next if ($_ eq "max_port");
- $merge_ip_options .= "