<?php
/**
 * Copyright 2005-2017 de Solis Soluções Livres Ltda.
 *
 * Este arquivo é parte do programa SolisGE/Sagu.
 *
 * O SolisGE/Sagu é 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 SolisGE/Sagu
 * leia o arquivo “LICENCA.txt” disponível junto ao código deste software. e
 *
 *
 *
 *
 *
 *
 **/
class bSyncDatabaseFunction implements bSync
{
    protected $file;
    protected $syncModule;

    public function __construct( $file , $module )
    {
        if ( !$file )
        {
            throw new Exception( _M('É necessário informar um arquivo para sincronização de funções.') );
        }

        if ( !is_array($file) )
        {
            $this->file[] = $file;
        }
        else
        {
            $this->file = $file;
        }

        if ( !$module )
        {
            throw new Exception( _M('É necessário informar um modulo para sincronização de funções.') );
        }

        $this->module = $module;

        //cria função padrão drop_function_if_exists
        $this->createDropFunction();
    }

    /**
     * Dropa as funções do arquivo de drop.
     */
    public function synchronizeDropFile()
    {
        //Concacetena o conteúdo de todos os arquivos de sincronizacao em uma String
        $content = $this->concatenarArquivos();
        if ( ! $content )
        {
            return false;
        }

        $drops = explode(PHP_EOL, $content);

        foreach ( $drops as $f )
        {
            $sql = "SELECT * FROM DROP_FUNCTION_IF_EXISTS('" . $f . "');";
            bBaseDeDados::consultar($sql);
        }

        return true;
    }


    /**
     * Funcao principal de sincronizacao das funcoes da base de dados.
     *
     * @return boolean
     */
    public function syncronize()
    {
        $content = $this->concatenarArquivos();
        if ( ! $content )
        {
            return false;
        }

        bBaseDeDados::consultar($content);

        return true;
    }

    /**
     * Faz parser do arquivo sql obtendo a listagem de funções
     *
     * @param type $content conteúdo do arquivo sql
     * @return array of stdClass
     *
     */
    protected function getSqlFunctions( $content )
    {
        $regexp = "/CREATE OR REPLACE FUNCTION ([^\)]*)\(([^\)]*)\)/";

        preg_match_all($regexp, $content, $matches);

        $functions = $matches[1];
        $parameters = $matches[2];

        foreach ( $functions as $line => $info)
        {
            $obj = new stdClass();
            $obj->function = strtolower( $info );
            $obj->params = $parameters[$line];
            $result[] = $obj;
        }

        return $result;
    }

    /**
     * Retorna um array com os arquivos de sincronização de base do módulo informado.
     * @param string $module
     * @return array
     */
    public static function listSyncFiles($module)
    {
        $MIOLO = MIOLO::getInstance();

        $caminho = $MIOLO->getConf('home.miolo').'/modules/'.$module.'/syncdb/functions/';
        $pasta = opendir($caminho);

        $files = array();
        while ( false !== ($filename = readdir($pasta)) )
        {
            if ( pathinfo($filename, PATHINFO_EXTENSION) == 'sql')
            {
                $files[] = $caminho . $filename;
            }
        }

        sort($files);

        return $files;
    }

    /**
     * Cria uma função padrão no banco de dados que serve para drop funções somente
     * se elas existem
     */
    public function createDropFunction()
    {

        $version = bBaseDeDados::consultar( "SELECT current_setting('server_version_num')" );

        if ( $version[0][0] >= '110000' )
        {
            $column = "p.prokind = 'a'";
        }
        else
        {
            $column = 'p.proisagg';
        }

        $sql ="
            CREATE OR REPLACE FUNCTION drop_function_if_exists( name varchar )
            RETURNS void as \$BODY\$
            DECLARE
            v_sql varchar;
            BEGIN
                FOR v_sql IN  SELECT 'DROP ' || (CASE WHEN $column
                                                     THEN
                                                         'AGGREGATE '
                                                     ELSE
                                                         'FUNCTION '
                                                END) || quote_ident(n.nspname) || '.' || quote_ident(p.proname) || '('
                                                     || pg_catalog.pg_get_function_identity_arguments(p.oid) || ') CASCADE;' AS stmt
                                FROM   pg_catalog.pg_proc p
                                JOIN   pg_catalog.pg_namespace n ON n.oid = p.pronamespace
                               WHERE  p.proname ILIKE name
                               ORDER  BY 1
            LOOP
                EXECUTE v_sql;
                END LOOP;
            END
            \$BODY\$
            LANGUAGE 'plpgsql';


            CREATE OR REPLACE FUNCTION drop_function_if_exists( name varchar, param varchar )
            RETURNS void as \$BODY\$
            BEGIN
                PERFORM drop_function_if_exists(lower(name));
            END
            \$BODY\$
            LANGUAGE 'plpgsql';
        ";

        bBaseDeDados::consultar( $sql );
    }

    /**
     * @return array
     */
    public static function syncAllFunctions($syncModule)
    {
        $files  = BSyncDatabaseFunction::listSyncFiles( $syncModule );

        $function = new BSyncDatabaseFunction( $files , $syncModule );
        $result = $function->syncronize();

        return $result;
    }

    /**
     * Retorna o conteúdo de todos os arquivos da classe concatenados.
     *
     * @return string
     */
    public function concatenarArquivos()
    {
        $content = '';
        foreach ( $this->file as $arquivo )
        {
            //Verficação para não executar strip_tag_pg_admin quando for a função unaccent
            if( !(strlen(strstr($arquivo, 'f00001-unaccent')) > 0))
            {
                $content = $content . bSyncExecute::strip_tag_pg_admin(file_get_contents($arquivo));
            }
            else
            {
                $content = $content . file_get_contents($arquivo);
            }
        }

        return $content;
    }
}
?>
