Chamar shell no forms 10g

[s_feitoza]

Bom dia pessoal..

Estou utilizando o Forms 10g e prescisao chamar alguns Shell´s que esta no Servidor. Tentei utilizar o comando HOST mais o mesmo so faz o form ficar dando loop e não apresenta nada... Consigo chamar os outros form e os reports...
Minha dúvida é como eu deveria chamar esses Shells...

Grato desde já Silvio

[dr_gori]

Procure pela package daemon.
Ela executa coisas no servidor. (infelizmente, não tenho ela aqui)

[dr_gori]

Tenho sim!
Ta aqui ela, só não sei se é só compilar e já vai funcionar. Talvez tenha que ter algum arquivo no servidor.

Spec

Selecionar tudo

create or replace package daemon as
  /* Executes a non-query sql statement or plsql block.  Arguments:
     command: the sql statement to execute
     timeout: (optional) number of seconds to wait to send or receive a
              message
     Returns the sqlcode after execution of the statement. */
  function execute_sql(command varchar2, timeout number default 10)
    return number;

  /* Executes a system (host) command.  Arguments:
     command: the command to execute
     timeout: (optional) number of seconds to wait to send or receive a
              message
     Returns the value passed to the operating system by the command. */
  function execute_system(command varchar2, timeout number default 10)
    return number;

  /* Tells the daemon listener to exit.  Arguments:
     timeout: (optional) number of seconds to wait to send the message. */
  procedure stop(timeout number default 10);
end daemon;

Body

Selecionar tudo

create or replace package body daemon as

  function execute_system(command varchar2, timeout number default 10)
    return number is

    s number;
    result varchar2(20);
    command_code number;
    pipe_name varchar2(30);
  begin

    /* Use uniqe_session_name to generate a unique name for the return pipe.
       We include this as part of the inital message to the daemon, and it is
       send along the pipe named 'daemon'.  */
    pipe_name := dbms_pipe.unique_session_name;

    /* Send the 'SYSTEM' command to the daemon. */
    dbms_pipe.pack_message('SYSTEM');
    dbms_pipe.pack_message(pipe_name);
    dbms_pipe.pack_message('export GTA=/usr/Gta;'||command);
    s := dbms_pipe.send_message('daemon', timeout);
    if s <> 0 then
      raise_application_error(-20010,
        'Execute_system: Error while sending.  Status = ' || s);
    end if;

    /* Check for the handshake message.  Note that we are now listening on
       the pipe which is unique to this session. */
    s := dbms_pipe.receive_message(pipe_name, timeout);
    if s <> 0 then
      raise_application_error(-20011,
        'Execute_system: Error while receiving.  Status = ' || s);
    end if;

    /* Get the operating system result code, and display it using
       dbms_output.put_line(). */
    dbms_pipe.unpack_message(result);
    if result <> 'done' then
      raise_application_error(-20012,
        'Execute_system: Done not received.');
    end if;

    dbms_pipe.unpack_message(command_code);
    dbms_output.disable;
    dbms_output.enable(1000000000);
    dbms_output.put_line('System command executed.  result = ' ||
                         command_code);
    return command_code;
  end execute_system;


  function execute_sql(command varchar2, timeout number default 10)
    return number is

    s number;
    result varchar2(20);
    command_code number;
    pipe_name varchar2(30);
  begin


    /* Use uniqe_session_name to generate a unique name for the return pipe.
       We include this as part of the inital message to the daemon, and it is
       send along the pipe named 'daemon'.  */
    pipe_name := dbms_pipe.unique_session_name;

    /* Send the 'SQL' command to the daemon. */
    dbms_pipe.pack_message('SQL');
    dbms_pipe.pack_message(pipe_name);
    dbms_pipe.pack_message('export GTA=/usr/Gta;'||command);
    s := dbms_pipe.send_message('daemon', timeout);
    if s <> 0 then
      raise_application_error(-20020,
        'Execute_sql: Error while sending.  Status = ' || s);
    end if;

    /* Check for the handshake message.  Note that we are now listening on
       the pipe which is unique to this session. */
    s := dbms_pipe.receive_message(pipe_name, timeout);
    if s <> 0 then
      raise_application_error(-20021,
        'Execute_sql: Error while receiving.  Status = ' || s);
    end if;

    /* Get the result code from the SQL statement, and display it using
       dbms_output.put_line(). */
    dbms_pipe.unpack_message(result);
    if result <> 'done' then
      raise_application_error(-20022,
        'Execute_sql: Done not received.');
    end if;

    dbms_pipe.unpack_message(command_code);
    dbms_output.put_line('SQL command executed.  sqlcode = ' || command_code);
    return command_code;
  end execute_sql;


  procedure stop(timeout number default 10) is
    s number;
  begin

    /* Send the 'STOP' command to the daemon. */
    dbms_pipe.pack_message('STOP');
    s := dbms_pipe.send_message('daemon', timeout);
    if s <> 0 then
      raise_application_error(-20030,
        'Stop: Error while sending.  Status = ' || s);
    end if;
  end stop;

end daemon;

Um exemplo do seu uso:
(neste caso, envia um email pelo shell)

Selecionar tudo

declare
  ln_daemon number;
begin

  ln_daemon := daemon.execute_system('echo "Ocorreu ERRO na Importação das Faturas! Veja tabela LOG_FATURA!" | mail -s $(hostname)_LOGFATURA bill@microsoft.com'  ,10000 );
end;

[s_feitoza]

Oi boa tarde... Tentei deu erro...

Eu crio essa package no forms ou no Banco? pois o forms não aceita algumas expressões PL/SQL

Replace por exemplo...

Lembrando que estou com forms 10g e acessando um servidor linux para rodar comandos em shells...

[dr_gori]

É uma package de banco!
Ela roda coisas no sistema operacional onde está o ORACLE instalado!

[gokden]

galera.... to com um erro assim na hora de executar esta package.

Selecionar tudo

ERROR at line 1:
ORA-20011: Execute_system: Error while receiving.  Status = 1
ORA-06512: at "LUCAS.DAEMON", line 61
ORA-06512: at line 1

alguém sabe o porque ??

[facc]

Desculpa ressussitar esse tópico, mas estou tendo o mesmo erro com essa package

[Petermann]

Algum sabe aqui quais são os parametros para executar o codigo da package daemon, para o seguinte codigo:

Selecionar tudo

  PROCEDURE EXPORTA_DELPHI IS
  
    ln_daemon number;
  begin
  
    ln_daemon := daemon.execute_system(I:\click_Textil\ceja\Delphi\Delphi_Exportaçao_Dados\P_CEJA.exe);
  
  end;

[dr_gori]

Tem que colocar também o timeout: (no exemplo abaixo, 10000)

Selecionar tudo

declare
  ln_daemon number;
begin

  ln_daemon := daemon.execute_system('echo "Ocorreu ERRO na Importação das Faturas! Veja tabela LOG_FATURA!" | mail -s $(hostname)_LOGFATURA bill@microsoft.com'  ,10000 );
end;

Mas lembre-se que ele roda no servidor ORACLE, não na máquina local do usuário.