Manual de fuga

.github/workflows/main.yaml

@@ -0,0 +1,40 @@
+---
+name: Create and publish the Docker image
+
+on:
+  push:
+    branches: ['homol']
+
+env:
+  IMAGE_NAME: ghcr.io/institutoazmina/penhas-backend
+
+jobs:
+  build-and-push-image:
+    runs-on: ubuntu-latest
+    permissions:
+      contents: read
+      packages: write
+
+    steps:
+      - name: Checkout repository
+        uses: actions/checkout@v3
+
+      - name: Login to Github Container Registry
+        uses: docker/login-action@v2
+        with:
+          registry: ghcr.io
+          username: ${{ github.actor }}
+          password: ${{ secrets.GITHUB_TOKEN }}
+
+      - name: Set up Docker Buildx
+        uses: docker/setup-buildx-action@v1
+
+      - name: Build and push
+        uses: docker/build-push-action@v2
+        with:
+          context: ./api/
+          file: ./api/docker/Dockerfile
+          push: true
+          tags: ${{ env.IMAGE_NAME  }}:latest,${{ env.IMAGE_NAME }}:${{ github.sha }}
+          cache-from: type=registry,ref=${{ env.IMAGE_NAME }}:latest
+          cache-to: type=inline

.gitignore

@@ -1,4 +1,5 @@
 .env
+docker-compose-local.yaml
 
 ### VisualStudioCode ###
 .vstags
@@ -8,3 +9,4 @@
 !.vscode/tasks.json
 !.vscode/launch.json
 !.vscode/extensions.json
+*xlsx#

.prettierrc

@@ -0,0 +1,13 @@
+{
+    "tabWidth": 4,
+    "useTabs": false,
+    "endOfLine": "lf",
+    "trailingComma": "es5",
+    "insertPragma": false,
+    "printWidth": 120,
+    "bracketSpacing": true,
+    "arrowParens": "always",
+    "singleQuote": true,
+    "quoteProps": "preserve",
+    "semi": true
+}

api/Makefile.PL

@@ -33,7 +33,6 @@ my %WriteMakefileArgs = (
     "Crypt::Passphrase::Argon2" => 0,
     "Crypt::Rijndael" => "1.16",
     "DBD::Pg" => 0,
-    "DBD::mysql" => 0,
     "DBIx::Class::Core" => 0,
     "DBIx::Class::InflateColumn::Serializer" => 0,
     "DBIx::Class::PassphraseColumn" => 0,
@@ -172,7 +171,6 @@ my %FallbackPrereqs = (
   "Crypt::Passphrase::Argon2" => 0,
   "Crypt::Rijndael" => "1.16",
   "DBD::Pg" => 0,
-  "DBD::mysql" => 0,
   "DBIx::Class::Core" => 0,
   "DBIx::Class::InflateColumn::Serializer" => 0,
   "DBIx::Class::PassphraseColumn" => 0,

api/cover.sh

@@ -0,0 +1,2 @@
+# cpanm -n Devel::Cover
+HARNESS_PERL_SWITCHES=-MDevel::Cover prove -lvr t/

api/deploy_db/deploy/0027-tarefa-padrao.sql

@@ -0,0 +1,50 @@
+-- Deploy penhas:0027-tarefa-padrao to pg
+-- requires: 0026-block-users
+
+BEGIN;
+
+
+-- alter table mf_tarefa drop column campo_livre_1, drop column campo_livre_2, drop column campo_livre_3;
+-- alter table mf_tarefa add column campo_livre json;
+
+create table mf_tarefa (
+    id serial primary key not null,
+
+    titulo varchar not null,
+    descricao varchar not null,
+
+    tipo varchar not null default 'checkbox',
+    codigo varchar,
+
+    campo_livre json,
+
+    agrupador varchar(120) not null default 'Outros',
+
+    criado_em timestamp without time zone not null default now(),
+    -- se é editável ou não pela usuária
+    eh_customizada boolean not null default false
+);
+
+create table mf_cliente_tarefa (
+    id serial primary key not null,
+
+    mf_tarefa_id int not null references mf_tarefa(id),
+    cliente_id bigint not null references clientes(id),
+
+    checkbox_feito boolean not null default false,
+
+    checkbox_feito_checked_first_updated_at timestamp without time zone,
+    checkbox_feito_checked_last_updated_at timestamp without time zone,
+
+    checkbox_feito_unchecked_first_updated_at timestamp without time zone,
+    checkbox_feito_unchecked_last_updated_at timestamp without time zone,
+
+    criado_em timestamp without time zone not null default now(),
+    removido_em timestamp without time zone,
+
+    last_from_questionnaire int references questionnaires(id),
+
+    atualizado_em timestamp without time zone not null default now()
+);
+
+COMMIT;

api/deploy_db/deploy/0028-mf-info.sql

@@ -0,0 +1,74 @@
+-- Deploy penhas:0028-mf-info to pg
+-- requires: 0027-tarefa-padrao
+
+BEGIN;
+
+create unique index ix_mf_codigo_tarefa on mf_tarefa (codigo) where codigo != '';
+
+alter table quiz_config alter column intro set default '[]',
+    alter column yesnogroup set default '[]';
+
+-- guarda a ordem preferencial dos blocos de questionarios do manual de fuga
+create table mf_questionnaire_order (
+    id serial not null primary key,
+
+    sort int not null default 0,
+
+    outstanding_order  boolean not null default false,
+
+    is_last  boolean not null default false,
+
+    published character varying(20) default 'testing',
+
+    questionnaire_id int not null references questionnaires(id)
+);
+
+-- statuses:
+-- onboarding
+-- inProgress
+-- completed
+create table cliente_mf_session_control (
+    cliente_id int not null references clientes(id) ON DELETE CASCADE primary key,
+
+    status varchar not null default 'onboarding',
+
+    current_clientes_quiz_session int references clientes_quiz_session(id),
+    completed_questionnaires_id  int[] not null default '{}'::int[],
+
+    started_at timestamp without time zone not null default now(),
+    completed_at timestamp without time zone
+);
+
+-- novos tipo na quiz_config:
+-- next_mf_questionnaire
+-- next_mf_questionnaire_outstanding
+-- auto_change_questionnaire
+-- yesnomaybe
+-- multiplechoice
+-- tag_user
+-- text << já existia, mas não tem no app
+
+alter table quiz_config add column change_to_questionnaire_id int references questionnaires(id) default null;
+alter table quiz_config add column tarefas json   not null default '[]';
+
+-- not really mf, mas já tem uma table "tags" lá pro feed/noticias
+create table mf_tag (
+    id serial not null primary key,
+    code varchar not null unique,
+    description varchar,
+    created_on timestamp without time zone not null default now()
+);
+
+create table cliente_tag (
+    id serial not null primary key,
+
+    cliente_id int not null references clientes(id) ON DELETE CASCADE,
+    mf_tag_id int not null references mf_tag(id) ON DELETE CASCADE ,
+
+    created_on timestamp without time zone not null default now()
+);
+
+alter table quiz_config add column tag json not null default '[]';
+alter table quiz_config alter tag set not null;
+
+COMMIT;

api/deploy_db/deploy/0029-cliente_offline.sql

@@ -0,0 +1,8 @@
+-- Deploy penhas:0029-cliente_offline to pg
+-- requires: 0028-mf-info
+
+BEGIN;
+
+alter table clientes add column qtde_login_offline int not null default 0;
+
+COMMIT;

api/deploy_db/deploy/0030-ja_completou_mf.sql

@@ -0,0 +1,8 @@
+-- Deploy penhas:0030-ja_completou_mf to pg
+-- requires: 0029-cliente_offline
+
+BEGIN;
+
+alter table clientes add column ja_completou_mf boolean default false;
+
+COMMIT;

api/deploy_db/deploy/0031-mf_block_clear.sql

@@ -0,0 +1,12 @@
+-- Deploy penhas:0031-mf_block_clear to pg
+-- requires: 0030-ja_completou_mf
+
+BEGIN;
+
+create table mf_questionnaire_remove_tarefa (
+    id serial not null primary key,
+    questionnaire_id int not null references questionnaires(id),
+    codigo_tarefa varchar not null
+);
+
+COMMIT;

api/deploy_db/deploy/0032-fix-campo_livre.sql

@@ -0,0 +1,10 @@
+-- Deploy penhas:0032-fix-campo_livre to pg
+-- requires: 0031-mf_block_clear
+
+BEGIN;
+
+alter table mf_tarefa drop column campo_livre;
+alter table mf_cliente_tarefa add column campo_livre json;
+
+
+COMMIT;

api/deploy_db/sqitch.plan

@@ -27,3 +27,9 @@
 0024-sugestao_ponto_apoio_2 [0023-ponto_apoio_keywords_log] 2022-07-16T03:38:26Z renato,,, <renato@renato-MS-7A34> # nova
 0025-pa-sug-form [0024-sugestao_ponto_apoio_2] 2022-08-04T17:03:02Z renato,,, <renato@renato-MS-7A34> # form
 0026-block-users [0025-pa-sug-form] 2023-03-04T15:05:16Z renato,,, <renato@renato-MS-7A34> # block users and report users
+0027-tarefa-padrao [0026-block-users] 2023-03-24T00:14:44Z renato,,, <renato@renato-MS-7A34> # tarefa padrao e tarefa para uma usuaria
+0028-mf-info [0027-tarefa-padrao] 2023-05-25T21:13:39Z renato,,, <renato@renato-Inspiron-7580> # mf cliente
+0029-cliente_offline [0028-mf-info] 2023-07-08T12:40:44Z renato,,, <renato@renato-MS-7A34> # cliente-offline
+0030-ja_completou_mf [0029-cliente_offline] 2023-09-15T13:05:31Z renato,,, <renato@renato-MS-7A34> # ja_completou_mf
+0031-mf_block_clear [0030-ja_completou_mf] 2024-02-01T12:16:07Z renato,,, <renato@renato-MS-7A34> # clear tasks when block start
+0032-fix-campo_livre [0031-mf_block_clear] 2024-03-01T01:37:39Z renato,,, <renato@renato-MS-7A34> # Fix campo_livre movendo da tarefa pro cliente-tarefa

api/dist.ini

@@ -54,7 +54,6 @@ Net::DNS::Native                       = 0
 App::Sqitch                            = 0
 IO::Socket::SSL                        = 0
 DBD::Pg                                = 0
-DBD::mysql                             = 0
 DBIx::Class::TimeStamp                 = 0
 DBIx::Class::PassphraseColumn          = 0
 DBIx::Class::InflateColumn::Serializer = 0

api/docker/Dockerfile

@@ -1,4 +1,4 @@
-FROM phusion/baseimage:focal-1.0.0
+FROM phusion/baseimage:focal-1.2.0
 CMD ["/sbin/my_init"]
 
 RUN apt-get update && apt-get install -y \
@@ -12,7 +12,7 @@ RUN apt-get update && apt-get install -y \
 RUN useradd -ms /bin/bash app;
 
 USER app
-ADD install-perlbrew.sh /tmp/install-perlbrew.sh
+ADD docker/install-perlbrew.sh /tmp/install-perlbrew.sh
 RUN /tmp/install-perlbrew.sh
 
 USER root
@@ -23,7 +23,7 @@ RUN apt-get update && apt-get install -y \
 
 USER app
 
-ADD install-cpan-modules.sh /tmp/install-cpan-modules.sh
+ADD docker/install-cpan-modules.sh /tmp/install-cpan-modules.sh
 RUN /tmp/install-cpan-modules.sh
 
 USER root
@@ -33,13 +33,17 @@ RUN apt-get update && apt-get install -y \
 
 USER app
 
-ADD Makefile_local.PL /tmp/Makefile.PL
-ADD install-cpan-extra-modules.sh /tmp/install-cpan-extra-modules.sh
+ADD ./Makefile.PL /tmp/Makefile.PL
+ADD docker/install-cpan-extra-modules.sh /tmp/install-cpan-extra-modules.sh
 RUN /tmp/install-cpan-extra-modules.sh
 
 USER root
 RUN mkdir /etc/service/api
-COPY api.sh /etc/service/api/run
+COPY docker/api.sh /etc/service/api/run
 
 RUN mkdir /etc/service/penhas-minion-worker
-COPY penhas-minion-worker.sh /etc/service/penhas-minion-worker/run
+COPY docker/penhas-minion-worker.sh /etc/service/penhas-minion-worker/run
+
+COPY . /src
+
+RUN chown 1000:1000 /src/ -R

api/lib/Penhas/CEP/ViaCep.pm

@@ -0,0 +1,27 @@
+package Penhas::CEP::Postmon;
+
+use Moose::Role;
+use feature 'state';
+
+use Furl;
+use JSON qw(decode_json);
+
+sub name {'Postmon'}
+
+sub _find {
+    state $ua = Furl->new(timeout => 20);
+
+    my $cep = pop;
+    my $res = $ua->get('https://viacep.com.br/ws/' . $cep . '/json/');
+
+    return unless $res->is_success;
+
+    my $r = eval { decode_json($res->content) } or return;
+
+    my $street = $r->{logradouro} || '';
+
+    return {street => $street, city => $r->{localidade}, district => $r->{bairro}, state => $r->{uf},
+        ibge => $r->{ibge}};
+}
+
+1;

api/lib/Penhas/Controller.pm

@@ -194,6 +194,11 @@ sub validate_request_params {
     my ($c, %fields) = @_;
 
     my $params = $c->req->params->to_hash;
+    return validate_params($c, $params, %fields);
+}
+
+sub validate_params {
+    my ($c, $params, %fields) = @_;
 
     my $tested = {};
     foreach my $key (keys %fields) {
@@ -252,8 +257,9 @@ sub validate_request_params {
         }
 
         $tested->{$key} = $val;
-        if ($tested->{$key} eq '' && ($type eq 'Bool' || $type eq 'Int' || $type eq 'Num')) {
-            use DDP; p $val;
+        if (defined $tested->{$key} && $tested->{$key} eq '' && ($type eq 'Bool' || $type eq 'Int' || $type eq 'Num')) {
+            use DDP;
+            p $val;
             $tested->{$key} = undef;
 
         }