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