// Inicio do código

program fb;

uses
  SysUtils, IBConnection, sqldb, classes;
//exibe uma mensagem de erro na saida padrão e uma descrição de uso do programa
procedure  gravaLog(texto,  caminho  :  string;  log:  tStringList);
begin
   log.Add(texto);
   log.SaveToFile(caminho);
end;

procedure  erro(texto  :  string);
begin
   writeln(output,  'Modulo  Firebird  para  squid');
   writeln(output,  'Versao  1.0.0');
   writeln(output,  'Desenvolvido  por  Renato  Felix  de  Almeida');
   writeln(output,  '');
   writeln(output,  'Modo  de  uso:');
   writeln(output,  paramstr(0)  +  '  servidor;banco;login;senha;sql;param');
   writeln(output,  '');
   writeln(output,  'Onde:');
   writeln(output,  'Servidor  =  Endereco  do  servidor  de  banco  de  dados');
   writeln(output,  'Banco        =  Endereco  do  arquivo  do  banco  de  dados');
   writeln(output,  'login        =  Usuario  do  banco  de  dados');
   writeln(output,  'senha        =  Senha  de  acesso  ao  banco  de  dados');
   writeln(output,  'sql            =  Consulta  sql  que  sera  executada  no  banco de  dados');
   writeln(output,  'param        =  Quantidade  de  parametros  enviados  para  a  consulta');
   writeln(output,  '');
   writeln(output,  'Erro  encontrado:');
   writeln(output,  texto);
   writeln(output,  '');
   writeln(output,  'Pressione  ENTER  para  fechar  o  programa');
   readln(texto);
end;

//esta funçao pega um ítem de uma lista separada por um delimitador
function pegarItem(texto, delimitador : string; item : integer) : string;
   var i, j, p : integer;
   temp : string;
begin
   i  :=  0;
   j  :=  0;
   p  :=  0;
   temp  :=  texto  +  delimitador;

   for  i  :=  1  to length(temp)  do
   begin
      p  :=  pos(delimitador, temp);
      if  j  =  item       then
         begin
            result  :=  copy(temp,  1,  p  -  1);
            exit;
         end
      else
         begin
            j  :=   j  +  1;
            temp  :=   copy(temp,  p  +  1,  length(temp));
         end;
   end;
end;

function  HexParaTexto(texto  :  string)  :  string;
   var  i  :  integer;
   caractere  :  string;
begin
   i  :=  1;
   result  :=  '';
   while  i  <=  length(texto)    do
      begin
         if  texto[i]  =  '%'  then
         begin
            caractere  :=  copy(texto,  i  +  1,  2);
            result  := result  +  char(strToIntDef('$'  +  caractere,  0));
            inc(i);
            inc(i);
         end
         else
            result  :=  result  +  texto[i];
             inc(i);
     end;
end;

var
   dados,  parametros,  servidor,  banco,  usuario,  senha,  consulta  :  string;
   i,  cont  :  integer;
   sql  :  TIBConnection;
   sqlDados  :  tSqlQuery;
   transacao:  TSQLTransaction;
   log  :  tStringList;
   caminho  :  string;
   logar  :  boolean;
begin

   //pegar os parametros enviados pela linha de comando do squid
   for  i  :=  1  to  paramcount  do
      parametros  :=  parametros  +  '  '  +  paramstr(i);
   parametros  :=  trim(parametros);

   //separar os parametros para cada variavel
   servidor  :=  pegarItem(parametros,  ';',  0);
   banco     :=  pegarItem(parametros,  ';',  1);
   usuario   :=  pegarItem(parametros,  ';',  2);
   senha     :=  pegarItem(parametros,  ';',  3);
   consulta  :=  pegarItem(parametros,  ';',  4);
   cont      :=  strToIntDef(pegarItem(parametros,  ';',  5),  0);
   caminho    :=  pegarItem(parametros,  ';',  6);

    logar  :=  trim(caminho)  <>  '';

    if  logar  then  log  :=  tStringList.Create;;

    if  logar  then  gravaLog(parametros,  caminho,  log);

   //validar os parametros
   if  (servidor='')  then
   begin
      erro('Servidor  de  Banco  de  dados  nao  foi  informado!');
      exit;
    end;

   if  (banco='')  then
   begin
       erro('Caminho  do  Banco  de  dados nao  foi  informado!');
       exit;
   end;

   if  (usuario='')  then
   begin
      erro('Usuario  do  Banco  de  dados nao  foi  informado!');
      exit;
   end;

   if  (senha='')  then
   begin
      erro('Senha  do  Banco  de  dados nao  foi  informada!');
      exit;
   end;

   if  (consulta='')  then
   begin
      erro('Consulta  sql  nao  foi  informada!');
      exit;
   end;

   if  (cont=0)  then
   begin
      erro('Quantidade  de  parametros  nao  foi  informada!');
      exit;
   end;

   //criar os objetos para acesso a dados e configurar
   sql  :=  tIbConnection.Create(nil);
   sql.HostName  :=  servidor;
   sql.UserName:=  usuario;
   sql.Password:=  senha;
   sql.DatabaseName:=  banco;

   transacao  :=  TSQLTransaction.Create(sql);
   transacao.DataBase  :=  sql;
   sql.transaction  :=  transacao;

   sqlDados  :=  tsqlQuery.Create(sql);
   sqlDados.Transaction  :=  transacao;
   sqlDados.DataBase  :=  sql;
   sqlDados.SQL.Text:=  consulta;

   //tentar conectar
   try
      sql.Open;
      except
         on  e:  exception  do
         begin
            erro(e.Message);
            if  logar  then  gravaLog('Erro  ao  abrir  banco  de  dados:'  +  #13  +  e.Message,  caminho,  log);
            exit;
         end;
   end;

   //inciar o loop infinito que vai receber os dados do squid
   while  true  do
   begin
      rewrite(output);

      readln(input,  dados);

      if  logar  then  gravaLog(dados,  caminho, log);

   //verificar se o squid esta sendo encerrado
   if  dados  =  ''  then  exit;

   //pegar os parametros e passar para a consulta
   for  i  :=  0  to  cont  -  1  do
      sqlDados.Params[i].AsString:=  HexParaTexto(pegarItem(dados,  '  ',  i));

   //tentar executar a consulta
   try
      sqlDados.Open;
      except
         on  e  :  exception do
         begin
            erro(e.Message);
            if  logar  then  gravaLog('Erro  ao  executar  consulta:'  +  #13  +  e.Message,  caminho,  log);
               exit;
         end;
   end;

   //verificar se a consulta retornou dados
   if  sqlDados.IsEmpty  then
   begin
      writeln(output,  'ERR');
      if  logar  then  gravaLog('Retornou  ERR',  caminho,  log);
   end
   else
   begin
      if  logar  then  gravaLog('Retornou  OK',  caminho,  log);
         writeln(output,  'OK');
   end;
   sqlDados.Close;
   closeFile(output);
end;

end.

// Fim do código