Pular para o conteúdo principal

Postagens

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
Leia mais
Postagens recentes

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 ) {              
Leia mais

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 anterio
Leia mais

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.
Leia mais

Bloquear extensões por anexo no postfix ao enviar mensagem

Bloquear extensões por anexo no postfix ao enviar mensagem no arquivo /etc/postfix/main.cf header_checks = regexp:/etc/postfix/header_checks no arquivo  /etc/postfix/header_checks /^\s*Content-(Disposition|Type).*name\s*=\s*"?(.+\.(mpg|mpeg|avi|docx|pdf))"?\s*$/ REJECT Erro de anexo. Onde mpg|mpeg|avi seria os anexos que querem bloquear. Bloquear extensões por anexo no postfix ao receber mensagem Requer que o procmail esteja instalado. apt-get install procmail ou yum install procmail Depois disso criar diretório para deixar as mensagem com anexo suspeitos # mkdir /var/spool/procmail No arquivo de configuração do postfix /etc/postfix/main.cf inserir a linha abaixo mailbox_command = /usr/bin/procmail $ echo "mailbox_command = /usr/bin/procmail" >> /etc/postfix/main.cf Depois criar o arquivo /etc/procmailrc touch /etc/procmailrc no arquivo acima inserir as linhas. # bloquear anexo :0 B     * $"filename=.\+\..\+\.(pif
Leia mais