Re: Creating Users and Groups Programmatically

ferbru60 — Wed, 14 Oct 2009 20:49:00 GMT

I think the best is to use the Alfresco REST API.

With PERL for example you can do that (and much more) :

#########################################################
# Classe Alfresco
# Auteur :    Bruno Ferrari - Grenoble INP
# Date :     14/10/2009
# Version :    1.0a
#########################################################

package    Alfresco;

require    Exporter;


our @ISA    = qw(Exporter);
our @EXPORT    = qw
    (
        new
        login
        logout
        errorCode
        errorMessage
        dumpPersonInfos
        getAllPersons
        searchPersons
        createPerson
        deletePerson
        getPersonInfos
        setPersonInfos
        dumpGroupInfos
        createGroup
        deleteGroup
        getAllRootGroups
        getAllGroups
        searchGroups
        getGroupInfos
        getGroupDirectMembers
        getGroupDirectPersons
        getGroupDirectSubGroups
        addPersonToGroup
        removePersonFromGroup
        addSubGroupToGroup
        removeSubGroupFromGroup
    );
#our @EXPORT_OK;
our $VERSION    = "1.0a";


use warnings;
use strict;

### Variables et fonctions
use HTTP::Request::Common;
use HTTP::Request;
use HTTP::Response;
use HTTP::Headers;
use LWP::UserAgent;

use JSON;


#—————————————————————————
sub new
{
    my ($class, $host, $port) = @_;
    

    my $self = { _rp => undef, _verbose => 0 };
    bless $self, $class;
    $self->{_rp} = $self;
    $self->{_host} = $host;
    $self->{_port} = $port;
    $self->{_errorCode} = 0;
    $self->{_errorMsg} = '';
    return $self;
}

#—————————————————————————
sub login ()
{
    my ($self, $username, $password) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $GetReq = HTTP::Request->new
        (
            'POST',
            "http://$host:$port/alfresco/service/api/login",
            $h,
            '{"username" : "' . $username . '","password" : "' . $password . '"}'
        );
    my $res = $ua->request($GetReq);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        $self->{_ticket} = $hashRef->{"data"}->{"ticket"};
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub logout ()
{
    my ($self) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'DELETE',
            "http://$host:$port/alfresco/service/api/login/ticket/$ticket?alf_ticket=$ticket&format=json",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        return ($hashRef->{"status"}->{"code"} == 200);
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub errorCode ()
{
    my ($self) = @_;
    return ($self->{_errorCode});
}

#—————————————————————————
sub errorMessage ()
{
    my ($self) = @_;
    return ($self->{_errorMsg});
}

#—————————————————————————
sub dumpPersonInfos ()
{
    my ($self, $personsInfosRef, $level) = @_;
    
    $level = defined ($level) ? $level : 0;
    foreach my $k (keys %{$personsInfosRef})
    {
        my $value = defined ($personsInfosRef->{$k}) ? $personsInfosRef->{$k} : '';
        my $i = 0;
        while ($i < $level)
        {
            print "\t";
            $i += 1;
        }
        print "$k : $value\n";
    }
}

#—————————————————————————
sub getAllPersons ()
{
    my ($self, $personsInfosRef) = @_;
    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups/$shortname/children?authorityType=GROUP&alf_ticket=$ticket",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub searchPersons ()
{
    my ($self, $filter, $personsInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups/$shortname/children?authorityType=GROUP&alf_ticket=$ticket",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        my $arrayRef = $hashRef->{"people"};
        foreach my $hRef (@{$arrayRef})
        {
            my %memberInfos;
            foreach my $k (keys %{$hRef})
            {
                $memberInfos {$k} = $hRef->{$k}
            }
            push (@{$personsInfosRef}, \%memberInfos);
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub createPerson ()
{
    my ($self, $personInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $content = JSON::encode_json ($personInfosRef);
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'POST',
            "http://$host:$port/alfresco/service/api/people?alf_ticket=$ticket",
            $h,
            $content
        );
     my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub deletePerson ()
{
    my ($self, $userName) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $GetReq = HTTP::Request->new
        (
            'DELETE',
            "http://$host:$port/alfresco/service/api/people/$userName?alf_ticket=$ticket",
            $h
        );
     my $res = $ua->request($GetReq);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub getPersonInfos ()
{
    my ($self, $accountname, $personInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups/$shortname/children?authorityType=GROUP&alf_ticket=$ticket",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        %{$personInfosRef} = %{JSON::decode_json ($res->content)};
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub setPersonInfos ()
{
    my ($self, $accountname, $personInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $content = JSON::encode_json ($personInfosRef);
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'PUT',
            "http://$host:$port/alfresco/service/api/people/$accountname?alf_ticket=$ticket",
            $h,
            $content
        );
     my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub dumpGroupInfos ()
{
    my ($self, $groupInfosRef, $level) = @_;
    
    $level = defined ($level) ? $level : 0;
    foreach my $k (keys %{$groupInfosRef})
    {
        my $value = defined ($groupInfosRef->{$k}) ? $groupInfosRef->{$k} : '';
        my $i = 0;
        while ($i < $level)
        {
            print "\t";
            $i += 1;
        }
        print "$k : $value\n";
    }
}

#—————————————————————————
sub createGroup ()
{
    my ($self, $groupInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $shortName = $groupInfosRef->{"shortName"};
    my $content = JSON::encode_json ($groupInfosRef);
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'POST',
            "http://$host:$port/alfresco/service/api/rootgroups/$shortName?alf_ticket=$ticket",
            $h,
            $content
        );

     my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub deleteGroup ()
{
    my ($self, $shortName) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'DELETE',
            "http://$host:$port/alfresco/service/api/groups/$shortName?alf_ticket=$ticket",
            $h
        );

     my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub getAllRootGroups ()
{
    my ($self, $groupInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/rootgroups?alf_ticket=$ticket",
            $h
        );
     my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        my $arrayRef = $hashRef->{"data"};
        foreach my $hRef (@{$arrayRef})
        {
            my %memberInfos;
            foreach my $k (keys %{$hRef})
            {
                $memberInfos {$k} = $hRef->{$k}
            }
            push (@{$groupInfosRef}, \%memberInfos);
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub getAllGroups ()
{
    my ($self, $groupInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups?shortNameFilter=*&alf_ticket=$ticket",
            $h
        );
     my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        my $arrayRef = $hashRef->{"data"};
        foreach my $hRef (@{$arrayRef})
        {
            my %memberInfos;
            foreach my $k (keys %{$hRef})
            {
                $memberInfos {$k} = $hRef->{$k}
            }
            push (@{$groupInfosRef}, \%memberInfos);
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub searchGroups ()
{
    my ($self, $filter, $groupInfosRef) = @_;

    print "getAllGroups :\n";
    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups?shortNameFilter=$filter&alf_ticket=$ticket",
            $h
        );
     my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        my $arrayRef = $hashRef->{"data"};
        foreach my $hRef (@{$arrayRef})
        {
            my %memberInfos;
            foreach my $k (keys %{$hRef})
            {
                $memberInfos {$k} = $hRef->{$k}
            }
            push (@{$groupInfosRef}, \%memberInfos);
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub getGroupInfos ()
{
    my ($self, $shortname, $groupInfosRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups/$shortname?alf_ticket=$ticket",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        foreach my $k (keys %{$hashRef->{"data"}})
        {
            $groupInfosRef->{$k} = $hashRef->{"data"}->{$k};
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub getGroupDirectMembers ()
{
    my ($self, $shortname, $groupMembersRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups/$shortname/children?alf_ticket=$ticket",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        my $arrayRef = $hashRef->{"data"};
        foreach my $hRef (@{$arrayRef})
        {
            my %memberInfos;
            foreach my $k (keys %{$hRef})
            {
                $memberInfos {$k} = $hRef->{$k}
            }
            push (@{$groupMembersRef}, \%memberInfos);
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub getGroupDirectPersons ()
{
    my ($self, $shortname, $groupMembersRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups/$shortname/children?authorityType=USER&alf_ticket=$ticket",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        my $arrayRef = $hashRef->{"data"};
        foreach my $hRef (@{$arrayRef})
        {
            my %memberInfos;
            foreach my $k (keys %{$hRef})
            {
                $memberInfos {$k} = $hRef->{$k}
            }
            push (@{$groupMembersRef}, \%memberInfos);
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub getGroupDirectSubGroups ()
{
    my ($self, $shortname, $groupMembersRef) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'GET',
            "http://$host:$port/alfresco/service/api/groups/$shortname/children?authorityType=GROUP&alf_ticket=$ticket",
            $h
        );
    my $res = $ua->request($req);
    if ($res->is_success)
    {
        my $hashRef = JSON::decode_json ($res->content);
        my $arrayRef = $hashRef->{"data"};
        foreach my $hRef (@{$arrayRef})
        {
            my %memberInfos;
            foreach my $k (keys %{$hRef})
            {
                $memberInfos {$k} = $hRef->{$k}
            }
            push (@{$groupMembersRef}, \%memberInfos);
        }
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub addPersonToGroup ()
{
    my ($self, $userName, $shortName) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'POST',
            "http://$host:$port/alfresco/service/api/groups/$shortName/children/$userName?alf_ticket=$ticket",
            $h
        );

    my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}


#—————————————————————————
sub removePersonFromGroup ()
{
    my ($self, $userName, $shortName) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'DELETE',
            "http://$host:$port/alfresco/service/api/groups/$shortName/children/$userName?alf_ticket=$ticket",
            $h
        );

    my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub addSubGroupToGroup ()
{
    my ($self, $subGroupName, $groupName) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'POST',
            "http://$host:$port/alfresco/service/api/groups/$groupName/children/GROUP_$subGroupName?alf_ticket=$ticket",
            $h
        );

    my $res = $ua->request ($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

#—————————————————————————
sub removeSubGroupFromGroup ()
{
    my ($self, $subGroupName, $groupName) = @_;

    my $host = $self->{_host};
    my $port = $self->{_port};
    my $ticket = $self->{_ticket};
    my $ua = LWP::UserAgent->new;
    my $h = HTTP::Headers->new;
    $h->header ('Content-Type' => 'application/json', Accept=>'application/json');
    my $req = HTTP::Request->new
        (
            'DELETE',
            "http://$host:$port/alfresco/service/api/groups/$groupName/children/GROUP_$subGroupName?alf_ticket=$ticket",
            $h
        );

    my $res = $ua->request($req);
    if ($res->is_success)
    {
        return 1;
    }
    else
    {
        $self->{_errorCode} = $res->{_rc};
        $self->{_errorMsg} = $res->{_msg};
        return 0;
    }
}

1;‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍

And use It like that :

use warnings;
use strict;

use Alfresco;

my $host = 'localhost';
my $port = 8080;

print "host : $host\n";

print "admin: ";
my $admin = <STDIN>;
chomp ($admin);

print "password: ";
my $password = <STDIN>;
chomp ($password);

my $alfresco = new Alfresco ($host, $port);
if ($alfresco->login ($admin, $password))
{
   print "$admin is logged on…\n";
   print "Person creation :\n";
   print "userName : ";
   my $userName = <STDIN>;
   chomp ($userName);
   print "firstName : ";
   my $firstName = <STDIN>;
   chomp ($firstName);
   print "lastName : ";
   my $lastName = <STDIN>;
   chomp ($lastName);
   print "email : ";
   my $email = <STDIN>;
   chomp ($email);
   
   my %personInfos;
   $personInfos {"userName"} = $userName;
   $personInfos {"password"} = $userName;
   $personInfos {"firstName"} = $firstName;
   $personInfos {"lastName"} = $lastName;
   $personInfos {"email"} = $email;

   if ($alfresco->createPerson (\%personInfos))
   {
      print "$userName created !\n";
      my %infos;
      if ($alfresco->getPersonInfos ($userName, \%infos))
      {
         $alfresco->dumpPersonInfos (\%infos, 1);
      }
      else
      {
         print "getPersonInfos ($userName, …) failed !\n";
      }
   }
   else
   {
      print "Can't create $userName\n";
   }
   if ($alfresco->logout ())
   {
      print "$admin is now logged out\n";
   }
   else
   {
      print "unable to logged out $admin…\n";
   }
}
else
{
   print "$admin can't log in $host:$port\n";
}‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍

I hope It helps

Bruno

topic Creating Users and Groups Programmatically in Alfresco Archive

Creating Users and Groups Programmatically

Re: Creating Users and Groups Programmatically

Re: Creating Users and Groups Programmatically