* Committing Lulurun's Cgi/Perl implementation of the UGAI servers.

* I love you long time.

1 files changed, 155 insertions, 0 deletions

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;
+