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

* I love you long time.

1 files changed, 49 insertions, 0 deletions

diff --git a/share/perl/lib/OpenSim/UserServer/UserManager.pm b/share/perl/lib/OpenSim/UserServer/UserManager.pm
new file mode 100644
index 0000000..ce35329
--- /dev/null
+++ b/share/perl/lib/OpenSim/UserServer/UserManager.pm
@@ -0,0 +1,49 @@
+package OpenSim::UserServer::UserManager;
+
+use strict;
+use Carp;
+use OpenSim::Utility;
+use OpenSim::UserServer::Config;
+
+sub getUserByName {
+        my ($first, $last) = @_;
+        my $res = &OpenSim::Utility::getSimpleResult($OpenSim::UserServer::Config::SYS_SQL{select_user_by_name}, $first, $last);
+        my $count = @$res;
+        my %user = ();
+        if ($count == 1) {
+                my $user_row = $res->[0];
+                foreach (@OpenSim::UserServer::Config::USERS_COLUMNS) {
+                        $user{$_} = $user_row->{$_} || "";
+                }
+        } else {
+                Carp::croak("user not found");
+        }
+        return \%user;
+}
+
+sub getUserByUUID {
+        my ($uuid) = @_;
+        my $res = &OpenSim::Utility::getSimpleResult($OpenSim::UserServer::Config::SYS_SQL{select_user_by_uuid}, $uuid);
+        my $count = @$res;
+        my %user = ();
+        if ($count == 1) {
+                my $user_row = $res->[0];
+                foreach (@OpenSim::UserServer::Config::USERS_COLUMNS) {
+                        $user{$_} = $user_row->{$_} || "";
+                }
+        } else {
+                Carp::croak("user not found");
+        }
+        return \%user;
+}
+
+sub createUser {
+        my $user = shift;
+        my @params = ();
+        foreach (@OpenSim::UserServer::Config::USERS_COLUMNS) {
+                push @params, $user->{$_};
+        }
+        my $res = &OpenSim::Utility::getSimpleResult($OpenSim::UserServer::Config::SYS_SQL{create_user}, @params);
+}
+
+1;