OpenSim-Test/share/perl/lib/OpenSim/UserServer/UserManager.pm

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;