Migração de Blog

Bom pessoal, estou pensando em migrar esse blog pro Wordpress, pra uma hospedagem mesmo, se realmente ou fizer isso, logo mais teremos um nova interface.

Read more...

Gambas 2 - Listar dados em comboxbox

Achei aqui no meu Google Docs, uma dica que tinha guardado a muito tempo.


Pode ser que seja útil pra alguém.


' Gambas class file
 PUBLIC combo AS ComboBox
PUBLIC SUB ToggleButton1_Click()
  
 

   listacombo(ComboBox1, "select * from cadastro")
 

END

PROCEDURE listacombo(Combo AS ComboBox, busca AS String)
  DIM r AS Result
  DIM conta AS Integer
   conexao.conectar_banco
   r = conexao.bd.Exec(busca)
   r.MoveFirst
   Combo.Add(r!nome_cad)
   FOR conta = 1 TO r.Count - 1
       r.MoveNext
       Combo.Add(r!nome_cad)
   NEXT
END

Read more...

Script para deletar e-mail de determinado remetente na fila do Postfix

#!/usr/bin/perl -w
#
# pfdel - deletes message containing specified address from
# Postfix queue. Matches either sender or recipient address.
#
# Usage: pfdel <email_address>
#

use strict;

# Change these paths if necessary.
my $LISTQ = "/usr/sbin/postqueue -p";
my $POSTSUPER = "/usr/sbin/postsuper";

my $email_addr = "";
my $qid = "";
my $euid = $>;

if ( @ARGV !=  1 ) {
        die "Usage: pfdel <email_address>\n";
} else {
        $email_addr = $ARGV[0];
}

if ( $euid != 0 ) {
        die "You must be root to delete queue files.\n";
}


open(QUEUE, "$LISTQ |") ||
  die "Can't get pipe to $LISTQ: $!\n";

my $entry = <QUEUE>;    # skip single header line
$/ = "";                # Rest of queue entries print on
                        # multiple lines.
while ( $entry = <QUEUE> ) {
        if ( $entry =~ / $email_addr$/m ) {
                ($qid) = split(/\s+/, $entry, 2);
                $qid =~ s/[\*\!]//;
                next unless ($qid);

                #
                # Execute postsuper -d with the queue id.
                # postsuper provides feedback when it deletes
                # messages. Let its output go through.
                #
                if ( system($POSTSUPER, "-d", $qid) != 0 ) {
                        # If postsuper has a problem, bail.
                        die "Error executing $POSTSUPER: error " .
                           "code " .  ($?/256) . "\n";
                }
        }
}
close(QUEUE);

if (! $qid ) {
        die "No messages with the address <$email_addr> " .
          "found in queue.\n";
}

exit 0;

Read more...

Preparar ambiente para instalação do Oracle client

xhost local:oracle
su - oracle
export ORACLE_BASE=/opt/oracle
export ORACLE_SID=ORCL
export DISPLAY=:0.0
./runInstaller

Read more...

Comandos basicos do editor vi.

      $ vi nome_do_arquivo

      Uma vez carregado o vi, veja abaixo uma lista dos principais comandos:

      Observacao:
      Para passar para o modo comando pressione ESC.

      Comandos basicos de insercao de texto:
      i Insere texto antes do cursor
      a Insere texto depois do cursor
      r Insere texto no início da linha onde se encontra o cursor
      A Insere texto no final da linha onde se encontra o cursor
      o Adiciona linha abaixo da linha atual
      O Adiciona linha acima da linha atual
      Ctrl + h Apaga o ultimo caracter

      Comandos basicos de movimentacao:
      Ctrl+f Move o cursor para a proxima tela
      Ctrl+b Move o cursor para a tela anterior
      H Move o cursor para a primeira linha da tela
      M Move o cursor para o meio da tela
      L Move o cursor para a ultima linha da tela
      h Move o cursor um caracter a esquerda
      j Move o cursor para a proxima linha
      k Move o cursor para linha anterior
      l Move o cursor um caracter a direita
      w Move o cursor para o inicio da proxima palavra (Ignora a pontuacao)
      W Move o cursor para o inicio da proxima palavra (Nao ignora a pontuacao)
      b Move o cursor para o inicio da palavra anterior (Ignora a pontuacao)
      B Move o cursor para o inicio da palavra anterior (Nao ignora a pontuacao
      0 Move o cursor para o inicio da linha atual
      ^ Move o cursor para o primeiro caracter nao branco da linha atual
      $ Move o cursor para o final da linha atual
      nG Move o cursor para a linha n
      G Move o cursor para a ultima linha do arquivo

      Comandos basicos para localizar texto:
      /palavra Busca pela palavra ou caracter em todo o texto
      ?palavra Move o cursor para a ocorrencia anterior da palavra
      n Repete o ultimo comando / ou ?
      N Repete o ultimo comando / ou ? , na direcao reversa
      Ctrl+g Mostra o nome do arquivo, o numero da linha corrente e o total de linhas

      Comandos basicos para alteracao de texto:
      x Deleta o caracter que esta sob o cursor
      dw Deleta a palavra, da posicao atual do cursor ate o final
      dd Deleta a linha atual
      D Deleta a linha a partir da posicao atual do cursor ate o final
      rx Substitui o caracter sob o cursor pelo especificado em x(é opcional indicar o caracter)
      Rx Substitui a palavra sob o cursor pela palavra indicada em x
      u Desfaz a ultima modificacao
      U Desfaz todas as modificacoes feitas na linha atual
      J Une a linha corrente a proxima
      s:/palavra1/palavra2 Substitui a primeira ocorrencia de "palavra1" por "palavra2"

      Comandos para salvar o texto:
      :wq Salva o arquivo e sai do editor
      :w nome_do_arquivo Salva o arquivo corrente com o nome especificado
      :w! nome_do_arquivo Salva o arquivo corrente no arquivo especificado
      :q Sai do editor
      :q! Sai do editor sem salvar as alteracoes realizadas

Read more...

Problema de charset OTRS

Tive um problema com apache e OTRS, nosso banco ORACLE estava no charset iso-8859-1.

Foi necessário jogar essas linhas no arquivos

/etc/init.d/httpd


LANG='AMERICAN_AMERICA.WE8ISO8859P1'; export LANG
NLS_LANG='AMERICAN_AMERICA.WE8ISO8859P1'; export NLS_LANG
NLS_NUMERIC_CHARACTERS=,.; export NLS_NUMERIC_CHARACTERS

Feito isso de um restart no apache

service httpd restart

Com isso deve resolver o problema.

Read more...

Substituir palavras no vim

# vim arquivo.txt

ESC - :%s/PalavraAntiga/PalavraNova/gc

Read more...