diff --git a/acao-sdh/bin/etl-sdh.pl b/acao-sdh/bin/etl-sdh.pl index 23ee3d69..207c3617 100755 --- a/acao-sdh/bin/etl-sdh.pl +++ b/acao-sdh/bin/etl-sdh.pl @@ -13,12 +13,13 @@ use aliased 'Acao::Plugins::SDH::DimSchema'; -my $sedna = Sedna->connect('127.0.0.1', 'acao', 'acao', '12345'); +#my $sedna = Sedna->connect('127.0.0.1', 'acao', 'acao', '12345'); +my $sedna = Sedna->connect('172.30.116.22', 'AcaoDb', 'acao', 'acao'); $sedna->setConnectionAttr(AUTOCOMMIT => Sedna::SEDNA_AUTOCOMMIT_OFF() ); #my $dbi = DimSchema->connect("dbi:Pg:dbname=sdh;host=127.0.0.1;port=5432",'acao','blableblibloblu'); -my $dbi = DimSchema->connect("dbi:Pg:dbname=acao;host=127.0.0.1;port=5432",'acao','12345'); +my $dbi = DimSchema->connect("dbi:Pg:dbname=acaodw;host=127.0.0.1;port=5432",'acao','12345'); BEGIN { die 'Informe a variavel de ambiente ACAO_HOME' unless -d $ENV{ACAO_HOME}; @@ -29,6 +30,7 @@ BEGIN use constant SCHEMA_DOSSIE => catfile($ENV{ACAO_HOME}, 'schemas', 'dossie.xsd'); #use constant SCHEMA_AUDITORIA => catfile($ENV{ACAO_HOME}, 'schemas', 'auditoria.xsd'); use constant SCHEMA_DOCUMENTO => catfile($ENV{ACAO_HOME}, 'schemas', 'documento.xsd'); +use constant SCHEMA_AUTORIZACAO => catfile($ENV{ACAO_HOME}, 'schemas', 'autorizacoes.xsd'); use constant SCHEMA_ATENDIMENTOESPECIFICOSEGARANTA => catfile(HOME_SCHEMAS, 'sdh-atendimentoEspecificoSEGARANTA.xsd'); use constant SCHEMA_CONDICOESDEMORADIA => catfile(HOME_SCHEMAS, 'sdh-condicoesDeMoradia.xsd'); use constant SCHEMA_CONVIVENCIAFAMILIARCOMUNITARIA => catfile(HOME_SCHEMAS, 'sdh-convivenciaFamiliarComunitaria.xsd'); @@ -61,6 +63,7 @@ BEGIN use constant DOSSIE_NS => 'http://schemas.fortaleza.ce.gov.br/acao/dossie.xsd'; use constant DOCUMENTO_NS => 'http://schemas.fortaleza.ce.gov.br/acao/documento.xsd'; +use constant AUTORIZACAO_NS => 'http://schemas.fortaleza.ce.gov.br/acao/autorizacoes.xsd'; #use constant AUDITORIA_NS => 'http://schemas.fortaleza.ce.gov.br/acao/auditoria.xsd'; my $schema_form = { @@ -95,8 +98,8 @@ BEGIN 'formVisitaInstitucional' => XML::Compile::Schema->new(SCHEMA_VISITAINSTITUCIONAL), }; -#my $schema = XML::Compile::Schema->new([SCHEMA_DOCUMENTO, SCHEMA_AUDITORIA]); -my $schema = XML::Compile::Schema->new([SCHEMA_DOCUMENTO]); +my $schema = XML::Compile::Schema->new([SCHEMA_DOCUMENTO, SCHEMA_AUTORIZACAO]); +#my $schema = XML::Compile::Schema->new([SCHEMA_DOCUMENTO]); my $read = $schema->compile(READER => pack_type(DOCUMENTO_NS, 'documento'), any_element => 'TAKE_ALL'); sub getVolumes{