PM-473 "Analisis de los resultados de escaneo de las..." SOLVED

Issue:
    Analisis de los resultados de escaneo de las funciones en ProcessMaker. Plugin/trigger code scanner.
Cause:
    Nueva solicitud de funciones
Solution:
    Se ha implementado esta nueva funcionalidad, que consta de lo siguiente:
        - Escaneo de codigo al importar un plugin (no se aplica a plugins enterprise)
        - Escaneo de codigo al habilitar un plugin (si el plugin ya se encuentra fisicamente en el directorio de los plugins)
        - Escaneo de codigo al importar un proceso
        - Escaneo de codigo al crear/modificar codigo de un trigger
        - Escaneo de codigo al ejecutar un caso que tenga seteados triggers en sus steps (si el trigger tiene codigo
          no deseado, no se ejecuta el trigger)
        - Se ha agregado la opcion "check-plugin-disabled-code" al comando "./gulliver", el mismo muestra
          informacion sobre los plugins con codigo no deseado.
              Ej: $ ./gulliver check-plugin-disabled-code [enterprise-plugin|custom-plugin|all|<plugin-name>]
        - Se ha agregado la opcion "check-workspace-disabled-code" al comando "./processmaker", el mismo muestra
          informacion sobre los workspaces con codigo no deseado en sus triggers.
              Ej: $ ./processmaker check-workspace-disabled-code <myWorkspace>
        - Por defecto ProcessMaker no realiza el escaneo de codigo, si se desea escanear codigo no deseado, se
          debera definir el atributo "enable_blacklist = 1" en el archivo "env.ini", este atributo no se aplica
          a las nuevas opciones creadas para los comandos "./gulliver" y "./processmaker"
        - Para una configuracion personalizada de codigo no deseado (lista negra), se pueden definir las mismas en
          el archivo "path/to/processmaker/workflow/engine/config/blacklist.ini" (si no existe el
          archivo se puede crear), o tambien en el atributo "disable_functions" esto en el archivo "php.ini"
              Ejemplo de "blacklist.ini":
                  ;Classes
                  ;=======
                  DashletInterface
                  ;Functions
                  ;=========
                  eval
                  exec
                  ;date
                  ;echo
                  strlen

workflow/engine/bin/tasks/cliWorkspaces.php

@@ -174,7 +174,7 @@ CLI::taskRun("runStructureDirectories");
 
 CLI::taskName("database-generate-self-service-by-value");
 CLI::taskDescription(<<<EOT
-  Generate or upgrade the table "self-service by value"
+  Generate or upgrade the table "self-service by value".
 
   This command populate the table "self-service by value", this for the cases when
   a task it's defined with "Self Service Value Based Assignment" in "Assignment Rules".
@@ -186,6 +186,19 @@ EOT
 CLI::taskArg("workspace-name", true, true);
 CLI::taskRun("run_database_generate_self_service_by_value");
 
+CLI::taskName("check-workspace-disabled-code");
+CLI::taskDescription(<<<EOT
+  Check disabled code for the specified workspace(s).
+
+  This command is for check disabled code for the specified workspace(s).
+
+  If no workspace is specified, the command will be run in all workspaces. More
+  than one workspace can be specified.
+EOT
+);
+CLI::taskArg("workspace-name", true, true);
+CLI::taskRun("run_check_workspace_disabled_code");
+
   /**
    * Function run_info
    * access public
@@ -522,7 +535,62 @@ function run_database_generate_self_service_by_value($args, $opts)
             } catch (Exception $e) {
                 echo "Errors generating the table \"self-service by value\" of workspace " . CLI::info($workspace->name) . ": " . CLI::error($e->getMessage()) . "\n";
             }
+
+            echo "\n";
         }
+
+        echo "Done!\n";
+    } catch (Exception $e) {
+        echo CLI::error($e->getMessage()) . "\n";
+    }
+}
+
+function run_check_workspace_disabled_code($args, $opts)
+{
+    try {
+        $arrayWorkspace = get_workspaces_from_args($args);
+
+        foreach ($arrayWorkspace as $value) {
+            $workspace = $value;
+
+            echo "> Workspace: " . $workspace->name . "\n";
+
+            try {
+                $arrayFoundDisabledCode = $workspace->getDisabledCode();
+
+                if (count($arrayFoundDisabledCode) > 0) {
+                    $strFoundDisabledCode = "";
+
+                    foreach ($arrayFoundDisabledCode as $value2) {
+                        $arrayProcessData = $value2;
+
+                        $strFoundDisabledCode .= ($strFoundDisabledCode != "")? "\n" : "";
+                        $strFoundDisabledCode .= "  Process: " . $arrayProcessData["processTitle"] . "\n";
+                        $strFoundDisabledCode .= "  Triggers:\n";
+
+                        foreach ($arrayProcessData["triggers"] as $value3) {
+                            $arrayTriggerData = $value3;
+
+                            $strCodeAndLine = "";
+
+                            foreach ($arrayTriggerData["disabledCode"] as $key4 => $value4) {
+                                $strCodeAndLine .= (($strCodeAndLine != "")? ", " : "") . $key4 . " (Lines " . implode(", ", $value4) . ")";
+                            }
+
+                            $strFoundDisabledCode .= "    - " . $arrayTriggerData["triggerTitle"] . ": " . $strCodeAndLine . "\n";
+                        }
+                    }
+
+                    echo $strFoundDisabledCode . "\n";
+                } else {
+                    echo "The workspace it's OK\n\n";
+                }
+            } catch (Exception $e) {
+                echo "Errors to check disabled code: " . CLI::error($e->getMessage()) . "\n\n";
+            }
+        }
+
+        echo "Done!\n";
     } catch (Exception $e) {
         echo CLI::error($e->getMessage()) . "\n";
     }