Create text file to attach to a ticket

[Legacy User]

Hi guys,

Has anyone here ever had to export the contents of a Spel string variable into a .txt file?

Unfortunately I have not yet been able to use the native 'expand' function to generate a file on the server. I can only read the contents of a file via Spel.

I know it is possible to do this using the native 'exec' function with the help of the Windows command 'CMD / C ECHO', but this alternative is not very efficient when multiple application servers from different operating systems are used.

I need to be able to do this to later attach this newly created file to a specific ticket.

 

Has anyone here already overcome this challenge?

[Legacy User]

Hi Daniel,

as you remember you can use Perl (and call Perl methods) using spel. And Perl as programming language was designed to work with text so this could be a starting point.

Going further here is a way to upload and attach file using spel: SPEL: How to upload attachment using SPEL 

Regards,

Timur

[Legacy User]

cdtj

Look this!

Resolved!

#!/opt/CAisd/bin/pdm_perl -w
########################################################################
## Modulo:          z_functions.pm
## Autor:          Daniel Becker Bighelini
## Criado em:          13/06/2016
## Modificado por:     Daniel Becker Bighelini
## Modificado em:     18/04/2018
########################################################################
use pdm_perlext;
use pdm_misc;
use strict;
use warnings;
use Env qw(NX_ROOT);
use Getopt::Std;
use Encode;
use utf8;
use File::Spec;

sub z_who_am_i  { ( caller(1) )[3] }
sub z_whow_as_i { ( caller(2) )[3] }

sub api::z_save_file
{
     ########################################################################
     ## Metodo:          api::z_save_file
     ## Autor:          Daniel Becker Bighelini
     ## Modificado em:     18/04/2018
     ## Descricao:          Exporta o conteudo de uma variavel para dentro de um arquivo
     ## Parametros:
     ##               zs_str               Variavel string
     ##               zs_filepath          Caminho e nome do arquivo que devera ser criado
     ##               zi_depurar          [OPCIONAL] Nivel de depuracao da funcao 0-nenhum / 1-resumido / 2-detalhado)
     ##               zs_metodo          [OPCIONAL] Nome do metodo que sera identificado no bloco
     ##
     ## Exemplos:
     ##               send_wait(0, top_object(), "call_attr", "api", "z_save_file", zs_str, zs_filepath, zi_depurar, zs_metodo);
     ##               send_wait(0, top_object(), "call_attr", "api", "z_save_file", zs_str, zs_filepath);
     ########################################################################

     # Capturando os parametros
     my $zs_str = $_[0];
     my $zs_filepath = $_[1];
     my $zi_depurar = $_[2];
     my $zs_metodo = $_[3] . " " . z_who_am_i;

     ## Entrada para debug mode
     if ($zi_depurar > 0) {
          z_bloco_inicio($zi_depurar, $zs_metodo);
          log_nx($LOG_SIGNIFICANT, "$zs_metodo Quant. de argumentos : " . @_);
          my @args = @_;
          foreach my $i (0 .. $#args) {
               log_nx($LOG_SIGNIFICANT, "$zs_metodo ARG #$i $args[$i]");
          }
     } else {
          log_nx($LOG_SIGNIFICANT, "$zs_metodo $zs_filepath");
     }

     #######################################################################################
     ## Inicio do codigo

     log_nx($LOG_SIGNIFICANT, "$zs_metodo Salvando o arquivo '$zs_filepath'...") if $zi_depurar;
     open(my $fh, '>', $zs_filepath) or do {
          log_nx($LOG_ERROR, "$zs_metodo ERRO ao salvar arquivo: '$!'");
          set_return_data(16, $!, 0, 0);
          set_error(1);
          return;
     };
     print $fh "$zs_str";
     close $fh;
     
     my $zs_abs_path = File::Spec->rel2abs($zs_filepath);
     log_nx($LOG_SIGNIFICANT, "$zs_metodo Arquivo '$zs_abs_path' salvo com sucesso!") if $zi_depurar;
     set_return_data(16, $zs_abs_path, 0, 0);
     
     z_bloco_fim($zi_depurar, $zs_metodo);
     ## Fim do codigo
     ###################################
}


sub api::z_delete_file
{
     ########################################################################
     ## Metodo:          api::z_delete_file
     ## Autor:          Daniel Becker Bighelini
     ## Modificado em:     18/04/2018
     ## Descricao:          Exclui um ou mais arquivos.
     ## Parametros:
     ##               zs_filepath          Caminho e nome do arquivo que devera ser excluido
     ##               zi_depurar          [OPCIONAL] Nivel de depuracao da funcao 0-nenhum / 1-resumido / 2-detalhado)
     ##               zs_metodo          [OPCIONAL] Nome do metodo que sera identificado no bloco
     ##
     ## Exemplos:
     ##               send_wait(0, top_object(), "call_attr", "api", "z_delete_file", zs_filepath, zi_depurar, zs_metodo);
     ##               send_wait(0, top_object(), "call_attr", "api", "z_delete_file", zs_filepath);
     ########################################################################

     # Capturando os parametros
     my $zs_filepath = $_[0];
     my $zi_depurar = $_[1];
     my $zs_metodo = $_[2] . " " . z_who_am_i;

     ## Entrada para debug mode
     if ($zi_depurar > 0) {
          z_bloco_inicio($zi_depurar, $zs_metodo);
          log_nx($LOG_SIGNIFICANT, "$zs_metodo Quant. de argumentos : " . @_);
          my @args = @_;
          foreach my $i (0 .. $#args) {
               log_nx($LOG_SIGNIFICANT, "$zs_metodo ARG #$i $args[$i]");
          }
     } else {
          log_nx($LOG_SIGNIFICANT, "$zs_metodo $zs_filepath");
     }

     #######################################################################################
     ## Inicio do codigo

     log_nx($LOG_SIGNIFICANT, "$zs_metodo Excluindo o arquivo '$zs_filepath'...") if $zi_depurar;
     my $zi_removed = unlink($zs_filepath);
     
     if ($zi_removed eq 0) {
          log_nx($LOG_ERROR, "$zs_metodo ERRO ao excluir o arquivo '$zs_filepath'.");
          set_return_data(16, 'NOK', 0, 0);
          set_error(1);
          return;

     } else {
          log_nx($LOG_SIGNIFICANT, "$zs_metodo $zi_removed arquivo(s) excluido(s) com sucesso!") if $zi_depurar;
          set_return_data(16, 'OK', 0, 0);
     }
     
     z_bloco_fim($zi_depurar, $zs_metodo);
     ## Fim do codigo
     ###################################
}


sub z_bloco_inicio
{
     ########################################################################
     ## Metodo:          z_bloco_inicio
     ## Autor:          Daniel Becker Bighelini
     ## Modificado em:     20/05/2016
     ## Descricao:          Grava em log o inicio de bloco de depuracao
     ## Parametros:
     ##               zi_depurar          Nivel de depuracao da funcao 0-nenhum / 1-resumido / 2-detalhado)
     ##               zs_metodo          Nome do metodo que sera identificado no bloco
     ##
     ## Exemplos:
     ##               z_bloco_inicio(1, "z_calcula_data")
     ########################################################################
     #######################################################################################
     ## Inicio do codigo
     my $zi_depurar = shift;
     my $zs_metodo = shift;

     if ($zi_depurar > 0) {
          log_nx($LOG_SIGNIFICANT, "=" x 60);
          log_nx($LOG_SIGNIFICANT, "$zs_metodo Inicio : " . localtime());
          #log_nx($LOG_SIGNIFICANT, "$zs_metodo Usuario : ");
          log_nx($LOG_SIGNIFICANT, "=" x 60);
     }
     ## Fim do codigo
     ###################################
}


sub z_bloco_fim
{
     ########################################################################
     ## Metodo:          z_bloco_fim
     ## Autor:          Daniel Becker Bighelini
     ## Modificado em:     13/06/2016
     ## Descricao:          Grava em log o fim de bloco de depuracao
     ## Parametros:
     ##               zi_depurar          Nivel de depuracao da funcao 0-nenhum / 1-resumido / 2-detalhado)
     ##               zs_metodo          Nome do metodo que sera identificado no bloco
     ##
     ## Exemplos:
     ##               z_bloco_fim(1, "z_calcula_data")
     ##
     ########################################################################
     #######################################################################################
     ## Inicio do codigo
     my $zi_depurar = shift;
     my $zs_metodo = shift;
     
     if ($zi_depurar > 0) {
          log_nx($LOG_SIGNIFICANT, "=" x 60);
          log_nx($LOG_SIGNIFICANT, "$zs_metodo Fim");
          log_nx($LOG_SIGNIFICANT, "=" x 60);
     }
     ## Fim do codigo
     ###################################
}

# perl packages must end with a true statement!
1;

[yona1987]

Hello Daniel,

 

If you have PAM you could use EXEC to execute a ITPAM macro and the PAM process will create the file and attach it to the specific case.

 

Regards,

[Legacy User]

Unfortunetly i dont use PAM in my organization.

I resolved with PERL function.

Thanks.