From 8c05b81d6860d8e0da4098cc6f59f630d7c53037 Mon Sep 17 00:00:00 2001
From: Adam Frisby
Date: Tue, 25 Mar 2008 16:29:54 +0000
Subject: * Committing Lulurun's Cgi/Perl implementation of the UGAI servers. *
 I love you long time.

---
 share/perl/lib/OpenSim/Utility.pm | 155 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 155 insertions(+)
 create mode 100644 share/perl/lib/OpenSim/Utility.pm

(limited to 'share/perl/lib/OpenSim/Utility.pm')

diff --git a/share/perl/lib/OpenSim/Utility.pm b/share/perl/lib/OpenSim/Utility.pm
new file mode 100644
index 0000000..7fc91e7
--- /dev/null
+++ b/share/perl/lib/OpenSim/Utility.pm
@@ -0,0 +1,155 @@
+package OpenSim::Utility;
+
+use strict;
+use XML::RPC;
+use XML::Simple;
+use Data::UUID;
+use DBHandler;
+use OpenSim::Config;
+use Socket;
+
+sub XMLRPCCall {
+    my ($url, $methodname, $param) = @_;
+    my $xmlrpc = new XML::RPC($url);
+    my $result = $xmlrpc->call($methodname, $param);
+    return $result;
+}
+
+sub XMLRPCCall_array {
+    my ($url, $methodname, $param) = @_;
+    my $xmlrpc = new XML::RPC($url);
+    my $result = $xmlrpc->call($methodname, @$param);
+    return $result;
+}
+
+sub UIntsToLong {
+	my ($int1, $int2) = @_;
+	return $int1 * 4294967296 + $int2;
+}
+
+sub getSimpleResult {
+	my ($sql, @args) = @_;
+	my $dbh = &DBHandler::getConnection($OpenSim::Config::DSN, $OpenSim::Config::DBUSER, $OpenSim::Config::DBPASS);
+	my $st = new Statement($dbh, $sql);
+	return $st->exec(@args);
+}
+
+sub GenerateUUID {
+	my $ug = new Data::UUID();
+	my $uuid = $ug->create();
+	return $ug->to_string($uuid);
+}
+
+sub ZeroUUID {
+	return "00000000-0000-0000-0000-000000000000";
+}
+
+sub HEX2UUID {
+	my $hex = shift;
+	Carp::croak("$hex is not a uuid") if (length($hex) != 32);
+	my @sub_uuids = ($hex =~ /(\w{8})(\w{4})(\w{4})(\w{4})(\w{12})/);
+	return join("-", @sub_uuids);
+}
+
+sub BIN2UUID {
+	# TODO:
+}
+
+sub UUID2HEX {
+	my $uuid = shift;
+	$uuid =~ s/-//g;
+	return $uuid;
+}
+
+sub UUID2BIN {
+	my $uuid = shift;
+	return pack("H*", &UUID2HEX($uuid));
+}
+
+sub HttpPostRequest {
+	my ($url, $postdata) = @_;
+	$url =~ /http:\/\/([^:\/]+)(:([0-9]+))?(\/.*)?/;
+	my ($host, $port, $path) = ($1, $3, $4);
+	$port ||= 80;
+	$path ||= "/";
+	my $CRLF= "\015\012";
+	my $addr = (gethostbyname($host))[4];
+	my $name = pack('S n a4 x8', 2, $port, $addr);
+	my $data_len = length($postdata);
+	socket(SOCK, PF_INET, SOCK_STREAM, 0);
+	connect(SOCK, $name) ;
+	select(SOCK); $| = 1; select(STDOUT);
+	print SOCK "POST $path HTTP/1.0$CRLF";
+	print SOCK "Host: $host:$port$CRLF";
+	print SOCK "Content-Length: $data_len$CRLF";
+	print SOCK "$CRLF";
+	print SOCK $postdata;
+
+	my $ret = "";
+	unless (<SOCK>) {
+		close(SOCK);
+		Carp::croak("can not connect to $url");
+	}
+	my $header = "";
+	while (<SOCK>) {
+		$header .= $_;
+		last if ($_ eq $CRLF);
+	}
+	if ($header != /200/) {
+		return $ret;
+	}
+	while (<SOCK>) {
+		$ret .= $_;
+	}
+	return $ret;
+}
+# TODO : merge with POST
+sub HttpGetRequest {
+	my ($url) = @_;
+	$url =~ /http:\/\/([^:\/]+)(:([0-9]+))?(\/.*)?/;
+	my ($host, $port, $path) = ($1, $3, $4);
+	$port ||= 80;
+	$path ||= "/";
+	my $CRLF= "\015\012";
+	my $addr = (gethostbyname($host))[4];
+	my $name = pack('S n a4 x8', 2, $port, $addr);
+	socket(SOCK, PF_INET, SOCK_STREAM, 0);
+	connect(SOCK, $name) ;
+	select(SOCK); $| = 1; select(STDOUT);
+	print SOCK "GET $path HTTP/1.0$CRLF";
+	print SOCK "Host: $host:$port$CRLF";
+	print SOCK "$CRLF";
+
+	unless (<SOCK>) {
+		close(SOCK);
+		Carp::croak("can not connect to $url");
+	}
+	while (<SOCK>) {
+		last if ($_ eq $CRLF);
+	}
+	my $ret = "";
+	while (<SOCK>) {
+		$ret .= $_;
+	}
+	return $ret;
+}
+
+sub XML2Obj {
+	my $xml = shift;
+	my $xs = new XML::Simple( keyattr=>[] );
+	return $xs->XMLin($xml);
+}
+
+sub Log {
+	my $server_name = shift;
+	my @param = @_;
+    open(FILE, ">>" . $OpenSim::Config::DEBUG_LOGDIR . "/" . $server_name . ".log");
+	foreach(@param) {
+    	print FILE $_ . "\n";
+	}
+    print FILE "<<<<<<<<<<<=====================\n\n";
+    close(FILE);
+}
+
+1;
+
-- 
cgit v1.1