<?php

/**
 * Copyright 2005-2017 de Solis Soluções Livres Ltda.
 *
 * Este arquivo é parte do programa Gnuteca.
 *
 * O Gnuteca é um software de propriedade da SOLIS, sendo desenvolvido
 * e mantido exclusivamente por esta empresa.
 *
 * A licença de uso está disponível mediante aquisição exclusiva junto à
 * SOLIS. A licença é concedida sem caráter de exclusividade ao licenciado.
 * Os direitos de uso são perpétuos.
 *
 * Embora os códigos fontes sejam fornecidos, o software é de propriedade
 * da SOLIS, não sendo permitido ao adquirente da licença a sua revenda,
 * empréstimo ou cessão (onerosa ou não) à terceiros. Também não é permitido,
 * a qualquer título e tempo, promover no software qualquer tipo de alienação,
 * reprodução, distribuição, divulgação, registro, licenciamento, transferência
 * ou qualquer outro ato que prejudique ou comprometa os direitos de propriedade
 * de software, o nome e a imagem da sua proprietária e do próprio software,
 * além de configurar concorrência à SOLIS.
 *
 * O licenciado, com o acesso ao código fonte do software, terá o direito de
 * promover mudanças no respectivo código. No entanto, nas situações em que ele
 * contar com o suporte oficial prestado pela SOLIS, não poderá promover mudanças
 * no código fonte, sob pena de perda do referido suporte.
 *
 * Para conhecer em detalhes o Termo de Licenciamento do Software Gnuteca
 * leia o arquivo “LICENCA.txt” disponível junto ao código deste software.
 * 
 * 
 * Class GDate
 *
 *
 *
 *
 *
 **/

class gAuthMoodle extends MAuth
{
    private $baseId;
    
    public function __construct($baseId = null) 
    {
        if ( MY_LIBRARY_AUTHENTICATE_TYPE != BusinessGnuteca3BusAuthenticate::TYPE_AUTHENTICATE_LOGIN )
        {
            throw new Exception (_M('A autenticação deve ser via campo Login. Avise o administrador.','gnuteca3'));
        }

        parent::__construct();
    }
    
    /**
     * Método privado para autenticar na base moodle
     * @return (object) conexão 
     */
    private function connect()
    {
        try
        {
            return $this->manager->getDatabase('moodle');
        }
        catch ( Exception $e )
        {
            return false;
        }
    }
    
    /**
     * Método de autenticação do moodle
     * 
     * @param (String) $login
     * @param (String) $password
     * @return boolean, true se autenticou 
     */
    public function authenticate($login, $password=null)
    {
        $MIOLO = MIOLO::getInstance();
        
        try
        {
                if (!$login )
            	{
                    return false;
            	}

                $conn = $this->connect(); //conecta na base

                if ( $conn ) //Se conectou-se ao moodle
                {
                    $busPerson = $MIOLO->getBusiness('gnuteca3', 'BusPerson');
                    //Verifica se autenticou usuário e senha
                    $personData = $this->getPersonByLogin($login);

                    //Tenta autenticar direto no Gnuteca sem SALT
                    $personAuth = $busPerson->authenticate($login,$password);

                    //Se nao tiver autenticado, verifica senha com SALT
                    
                    if ( empty($personAuth) ) 
                    {
                        $personAuth = $busPerson->authenticate($login,$password . $MIOLO->getConf('login.saltKey'));
                    }
                    
                    if ( !empty($personAuth) ) 
                    {
                        return $personAuth;
                    }
                    else //Se nao autenticou direto no gnuteca 
                    {
                        //Tenta sincronizar informacoes do moodle com o gnuteca.
                        $syncPersonId = $this->synchronizePersonFromMoodle($login);
                        
                        if ( !$syncPersonId )
                        {
                            $person = $busPerson->getPerson($login);
                            
                            if ( $person )
                            {
                                $login = $person->login;
                                $syncPersonId = $this->synchronizePersonFromMoodle($login);
                            }
                        }

                        if ( $syncPersonId )
                        {
                            $login = $syncPersonId;
                            
                            //Apos a sincronia tenta autenticar sem SALT
                            $personAuth = $busPerson->authenticate($login,$password);

                            //Se nao autenticar
                            if ( empty($personAuth) ) 
                            {
                                //Tenta autenticar com SALT.
                                $personAuth = $busPerson->authenticate($login,$password . $MIOLO->getConf('login.saltKey'));
                            }                            
                            
                            return $personAuth;
                        }
                        else 
                        {
                            clog('problem sincronia');
                        }
                    }
                }
                else
                {
                    return false;
                }
        }
        catch ( Exception $e )
        {
            return false;
        }
    }
    
   
    /**
     * 
     * @param string $username o login
     */
    public function getPersonFromMoodle($username)
    {
        
        try 
        {
            $dbMoodle = $this->manager->getDatabase('moodle');
            //Seleciona dados da pessoa
            $moodlePerson = $dbMoodle->query("SELECT firstname,lastname,email,phone1,phone2,city,address,username,password FROM mdl_user WHERE username = '$username';",0, NULL, MQuery::FETCH_OBJ)->result[0];
            
            //Se veio informaçoes da pessoa.
            if ( !empty($moodlePerson->username) )
            {
                //retorna o objeto com os dados dela que estava dentro do moodle.
                return $moodlePerson;
            }
            
            return false;
        }
        catch(Exception $e)
        {
            return false;
        }
    }
    
    public function synchronizePersonFromMoodle($login)
    {
        $MIOLO = MIOLO::getInstance();

        //Obtem pessoa do gnuteca.
        $personData = $this->getPersonByLogin($login);

        $busPerson = $MIOLO->getBusiness('gnuteca3', 'BusPerson');
        
        //Se pessoa existir no moodle
        $moodlePerson = $this->getPersonFromMoodle($login);
        
        if ( $moodlePerson )
        {
            //Atualiza os dados do moodle sobre os dados do Gnuteca.
            $personData->personName = $moodlePerson->firstname .' '. $moodlePerson->lastname;
            $personData->email = $moodlePerson->email;
            $personData->locationTypeId = 35; //TODO Entender porque no gnuteca este campo da basperson é obrigatório. Vide ticket
            $personData->location = $moodlePerson->address;
            $personData->login = $moodlePerson->username;
            $personData->password = $moodlePerson->password;

            $bond = new stdClass();
            $bond->linkId = 1;        
            $personData->bond = array($bond);

            //seta o vínculo da pessoa
            $phone1 = new stdClass();
            $phone1->type = 'RES';//Todo: Vinculo tem que saber como vem.
            $phone1->phone = $moodlePerson->phone1;
            $phone2 = new stdClass();
            $phone2->type = 'RES';//Todo: Vinculo tem que saber como vem.
            $phone2->phone = $moodlePerson->phone2;                

            //Existem so dois telefones pra vir do moodle.
            $personData->phone = array($phone1,$phone2);        
            $busPerson->setData($personData);

            //Se a pessoa existe no Gnuteca.
            if ( $personData->personid )
            {
                //Se nao conseguiu atualizar a pessoa.
                if( !$busPerson->updatePerson() ) 
                {
                    return false;
                }                
            }
            else //Se a pessoa nao existe no gnuteca
            {

                //Se nao conseguiu inserir a pessoa do moodle.
                if( !$busPerson->insertPerson() ) 
                {
                    return false;
                }                           
            }

            //Retorna o codigo da pessoa para tentar autenticar.
            return $busPerson->personId;
        }
        else
        {
            return false;
        }
    }
    
    
    public function getPersonByLogin($login)
    {
        $MIOLO = MIOLO::getInstance();

        if ( $login )
        {
            $busPerson = $MIOLO->getBusiness('gnuteca3', 'BusPerson');
            $busPerson->loginS = $login;
            $personData = $busPerson->searchPerson(true);

            return $personData[0];
        }
    }
}
?>
