{"id":761,"date":"2014-09-18T11:46:32","date_gmt":"2014-09-18T14:46:32","guid":{"rendered":"http:\/\/blog.abratel.com.br\/?p=761"},"modified":"2014-09-24T11:09:39","modified_gmt":"2014-09-24T14:09:39","slug":"761","status":"publish","type":"post","link":"https:\/\/blog.abratel.com.br\/?p=761","title":{"rendered":"Dois scripts para facilitar a vida com o qmail freebsd"},"content":{"rendered":"

qmail-fila<\/a><\/p>\n

qmail-adm<\/a><\/p>\n

Cr\u00e9ditos FreeBSD Brasil<\/p>\n

#!\/bin\/sh<\/p>\n

dominio=”@dominio.com.br”<\/p>\n

main()
\n{
\n clear
\n echo “======= Gerenciamento auxiliar do MTA QMAIL =======”
\n echo “===================================================”
\n echo “Opcoes:”
\n echo
\n echo “1 – Listar todas as mensagens na fila.”
\n echo “2 – Listar todas as mensagens na fila Remota.”
\n echo “3 – Listar todas as mensagens na fila Local.”
\n echo “4 – Mostrar STATUS das filas do Qmail.”
\n echo “5 – Ver o conteudo de uma mensagem especifica.”
\n echo “6 – Apagar uma mensagem especifica da fila.”
\n echo “7 – Apagar mensagens com um Assunto (Subject: ) especifico.”
\n echo “8 – Apagar mensagens com Remetente (From: ) especifico.”
\n echo “9 – Apagar mensagens com Destinario (To: ) especifico.”
\n echo “10 – Apagar TODAS as mensagens das filas do Qmail.”
\n echo “11 – Sair.”
\n echo “15 – Avancado.”
\n echo -n “Qual opcao voce deseja? ”
\n read opcao
\n case $opcao in
\n 1) listar_todas ;;
\n 2) listar_r ;;
\n 3) listar_l ;;
\n 4) status ;;
\n 5) ver_msg ;;
\n 6) apaga_msg ;;
\n 7) subject ;;
\n 8) from ;;
\n 9) to ;;
\n 10) apagar_todas ;;
\n 11) exit ;;
\n 15) menu_avancado ;;
\n *) echo “Opcao desconhecida.” ; echo ; main ;;
\n esac
\n}<\/p>\n

###### funcoes auxiliares <\/p>\n

restart_qmail()
\n {
\n svc -k \/service\/qmail
\n svc -u \/service\/qmail
\n }<\/p>\n

status ()
\n {
\n\t echo “”
\n\t echo “Status atual do Qmail: ”
\n\t echo “”
\n\t sleep 2
\n\t fila-qmail -s
\n\t echo “”
\n\t \/var\/qmail\/bin\/qmail-qstat
\n\t echo “”
\n\t svstat \/service\/qmail
\n\techo “”
\n }<\/p>\n

remotas_locais()
\n {
\n echo “”
\n echo -n ” Mensagens Remotas ou Locais? [R\/L]: ”
\n read ROL<\/p>\n

case ${ROL} in
\n\t [Rr])
\n\t ROLRESP=”R”
\n\t ;;
\n\t [Ll])
\n\t ROLRESP=”L”
\n ;;
\n \t *)
\n\t remotas_locais
\n ;;
\n esac
\n }<\/p>\n

#### funcoes principais<\/p>\n

listar_todas()
\n {
\n echo “”
\n echo “Listando as mensagens nas filas Remota e Local: ”
\n fila-qmail -l
\n echo “”
\n } <\/p>\n

listar_r()
\n {
\n echo””
\n echo “Listando as mensagens na fila Remota: ”
\n fila-qmail -R
\n echo “”
\n }<\/p>\n

listar_l()
\n {
\n echo “”
\n echo “Listando as mensagens na fila Local: ”
\n fila-qmail -L
\n echo “”
\n }<\/p>\n

ver_msg()
\n {
\n echo “”
\n echo ” O numero de Identificacao da mensagem – Msg ID – pode ser”
\n echo “identificado como o primeiro numero que precede um email,”
\n echo “quando as mensagens nas filas sao listadas.”
\n echo “”
\n echo ” Por exemplo:”
\n echo ” 762178 [14, R] – O primeiro numero, fora dos parenteses,”
\n echo ” indica o numero da mensagem. Nesse caso, 762178.”
\n echo “”
\n echo -n ” Deseja visualizar o conteudo da mensagem numero: ”
\n read NROMSG <\/p>\n

echo “”
\n fila-qmail -v${NROMSG} | less<\/p>\n

} <\/p>\n

apaga_msg()
\n {
\n echo “”
\n echo ” O numero de Identificacao da mensagem – Msg ID – pode ser”
\n echo “identificado como o primeiro numero que precede um email,”
\n echo “quando as mensagens nas filas sao listadas.”
\n echo “”
\n echo ” Por exemplo:”
\n echo ” 762178 [14, R] – O primeiro numero, fora dos parenteses,”
\n echo ” indica o numero da mensagem. Nesse caso, 762178.”
\n echo “”
\n echo -n ” Deseja apagar qual mensagem da fila? ”
\n read NROMSG<\/p>\n

fila-qmail -d${NROMSG}<\/p>\n

restart_qmail
\n status<\/p>\n

}<\/p>\n

subject()
\n {
\n echo “”
\n echo ” Para maior praticidade, a pesquisa sera Case Insensitive,”
\n echo “nao diferenciando letras maiusculas de letras minusculas.”
\n echo “”
\n echo -n ” Deseja apagar todas as mensagens com qual Assunto [Subject: ] ”
\n read ASSUNTO<\/p>\n

remotas_locais<\/p>\n

fila-qmail -c -l | \\
\n grep -i -B 4 “${ASSUNTO}” | \\
\n grep “, ${ROLRESP}” | awk ‘{print “echo \\”Apagando mensagem “$1″\\” ; ” “fila-qmail -d”$1}’ > \/tmp\/XyZkPPty<\/p>\n

sh \/tmp\/XyZkPPty
\n COUNT=”`cat \/tmp\/XyZkPPty | wc -l`”
\n rm -f \/tmp\/XyZkPPty<\/p>\n

echo “”
\n echo ” Foram apagadas ${COUNT} mensagens que continham”
\n\techo “a expressao ‘${ASSUNTO}’ como parte do Assunto…”
\n echo “”
\n echo “Reiniciando o Qmail…”<\/p>\n

restart_qmail
\n\tstatus
\n }<\/p>\n

from()
\n {
\n echo “”
\n echo ” Para maior praticidade, a pesquisa sera Case Insensitive,”
\n echo “nao diferenciando letras maiusculas de letras minusculas.”
\n echo “”
\n echo -n ” Deseja apagar todas as mensagens de qual Remetente [From: ] ”
\n read FROM<\/p>\n

remotas_locais<\/p>\n

fila-qmail -c -l | \\
\n grep -i -B 2 “${FROM}” | \\
\n grep “, ${ROLRESP}” | awk ‘{print “echo \\”Apagando mensagem “$1″\\” ; ” “fila-qmail -d”$1}’ > \/tmp\/XyZkPPty<\/p>\n

sh \/tmp\/XyZkPPty
\n COUNT=”`cat \/tmp\/XyZkPPty | wc -l`”
\n rm -f \/tmp\/XyZkPPty<\/p>\n

echo “”
\n echo ” Foram apagadas ${COUNT} mensagens que continham”
\n echo “a expressao ‘${FROM}’ como parte do endereco do Remetente…”
\n echo “”
\n echo “Reiniciando o Qmail…”<\/p>\n

restart_qmail
\n status
\n }<\/p>\n

to()
\n {
\n echo “”
\n echo ” Para maior praticidade, a pesquisa sera Case Insensitive,”
\n echo “nao diferenciando letras maiusculas de letras minusculas.”
\n echo “”
\n echo -n ” Deseja apagar todas as mensagens de qual Destinatario [To: ] ”
\n read TO<\/p>\n

remotas_locais<\/p>\n

fila-qmail -c -l | \\
\n grep -i -B 3 “${TO}” | \\
\n grep “, ${ROLRESP}” | awk ‘{print “echo \\”Apagando mensagem “$1″\\” ; ” “fila-qmail -d”$1}’ > \/tmp\/XyZkPPty<\/p>\n

sh \/tmp\/XyZkPPty
\n COUNT=”`cat \/tmp\/XyZkPPty | wc -l`”
\n rm -f \/tmp\/XyZkPPty<\/p>\n

echo “”
\n echo ” Foram apagadas ${COUNT} mensagens que continham”
\n echo “a expressao ‘${TO}’ como parte do endereco do Remetente…”
\n echo “”
\n echo “Reiniciando o Qmail…”<\/p>\n

restart_qmail
\n status
\n }<\/p>\n

apagar_todas()
\n {
\n echo “”
\n echo ” Todas as mensagens de todas as filas do QMail serao apagadas.”
\n echo “”
\n echo -n ” Deseja mesmo continuar? [S\/N] ”<\/p>\n

read SIMNAO<\/p>\n

case ${SIMNAO} in
\n [Ss])<\/p>\n

\t fila-qmail -D && \\
\n\t restart_qmail && \\
\n\t status
\n ;;<\/p>\n

*)
\n\t echo “”
\n echo “Saindo…”
\n ;;
\n esac<\/p>\n

}<\/p>\n

virus_dat_version() {
\n\techo “”
\n\t\/usr\/local\/bin\/uvscan –version | grep -v “EVALUATION”
\n\techo “”
\n}<\/p>\n

############## Menu Avancado ###############
\n ## Nao tem nada de Avancado mas nao deve ##
\n ## ser usado por quem nao sabe como ele ##
\n ## funciona… enfim, leiam as man pages ##
\n ## do svc, do svscan, svstat e o resto do ##
\n ## Daemontools inteiro…\t\t ##
\n ############################################<\/p>\n

menu_avancado()
\n{
\n clear
\n echo “===== Controle dos servicos de e-mail =====”
\n echo “”
\n echo “Servico qmail-send [modulo nivel 1]:”
\n echo “”
\n echo “01 – Matar o qmail-send.”
\n echo “02 – Iniciar o qmail-send.”
\n echo “03 – Reprocessar as filas de email.”
\n echo “04 – STATUS do qmail-send e das filas de e-mail.”
\n echo “05 – Reiniciar o Qmail [qmail-send].”
\n echo “06 – Verificar os logs do qmail-send.”
\n echo “07 – Verificar os logs do qmail-queue.”
\n echo “”
\n echo “”
\n echo “Servico Qmail SMTP:”
\n echo “10 – Matar o daemon SMTP.”
\n echo “11 – Iniciar o daemon SMTP.”
\n echo “12 – STATUS do daemon SMTP.”
\n echo “13 – Reiniciar o daemon SMTP.”
\n echo “14 – Verificar os logs do SMTP.”
\n echo “”
\n echo “”
\n echo “Servico Qmail POP3:”
\n echo “20 – Matar o daemon POP3.”
\n echo “21 – Iniciar o daemon POP3.”
\n echo “22 – STATUS do daemon POP3.”
\n echo “23 – Reiniciar o daemon POP3.”
\n echo “24 – Verificar os logs do POP3.”
\n echo “”
\n echo “”
\n echo “Anti Virus:”
\n echo “30 – Logs dos ultimos virus encontrados.”
\n echo “31 – Logs do qmail-queue junto ao antivirus.”
\n echo “32 – Apagar todas as mensagens com virus do Quarantine.”
\n echo “33 – Apagar todas as mensagens com virus verificadas agora.”
\n echo “34 – Contar virus encontrados.”
\n echo “35 – Mostrar as definicoes (dat-version) de virus atuais.”
\n echo “”
\n echo “”
\n echo “Servico Courier-IMAP:”
\n echo “36 – Para o servico IMAP (caso instalado).”
\n echo “37 – Inicia o servico IMAP (caso instalado).”
\n echo “38 – Verificar os logs do IMAP (caso instalado).”
\n echo “”
\n echo “”
\n echo “50 – Sair.”
\n echo -n “Qual opcao voce deseja? ”
\n read opctao
\n case $opctao in
\n 01) kill_qsend ;;
\n 02) up_qsend ;;
\n 03) alrm_queue ;;
\n 04) status ;;
\n 05) qmailrestart ;;
\n 06) qsend_logs ;;
\n 07) queue_logs ;;
\n 10) kill_smtp ;;
\n 11) up_smtp ;;
\n 12) status_smtp ;;
\n 13) restart_smtp ;;
\n 14) qsmtp_logs ;;
\n 20) kill_pop3 ;;
\n 21) up_pop3 ;;
\n 22) status_pop3 ;;
\n 23) restart_pop3 ;;
\n 24) qpop3_logs ;;
\n 30) virus_log ;;
\n 31) queue_logs ;;
\n 32) rm_quarantine ;;
\n 33) rm_working ;;
\n 34) virus_count ;;
\n 35) virus_dat_version ;;
\n 36) stop_imapd ;;
\n 37) start_imapd ;;
\n 38) vlogs_imapd ;;
\n 50) exit ;;
\n *) echo “Opcao desconhecida.” ; echo ; main ;;
\n esac
\n}<\/p>\n

kill_qsend()
\n {
\n echo “”
\n echo -n ” Matando o Qmail [qmail-send]…”
\n svc -k \/service\/qmail
\n echo ” OK”
\n echo “”
\n exit
\n }<\/p>\n

up_qsend()
\n {
\n echo “”
\n echo “Iniciando o Qmail [qmail-send]…”
\n svc -u \/service\/qmail
\n echo ” O qmail-send foi iniciado e esta supervisionado.”
\n echo “”
\n exit
\n }<\/p>\n

alrm_queue()
\n {
\n echo “”
\n echo ” Reprocessando todas as mensagens nas filas Locais e Remotas”
\n svc -a \/service\/qmail
\n echo ” Pronto.”
\n exit
\n } <\/p>\n

qmailrestart()
\n {
\n echo “”
\n echo -n ” Forcando a reinicializacao do Qmail… ”
\n restart_qmail
\n echo “OK”
\n echo “”
\n echo ” O Qmail foi reiniciado e deve estar no ar,”.
\n echo ” verifique o status do MTA:”
\n status
\n exit
\n }<\/p>\n

qsend_logs()
\n {
\n echo “”
\n echo -n ” Quantas linhas de log do Qmail voce deseja analisar? ”
\n read linhaslog
\n echo “”
\n echo ” Analisando as ultimas ${linhaslog} linhas dos logs do qmail: ”
\n echo “”
\n tail -${linhaslog} \/var\/log\/qmail\/current
\n exit
\n }<\/p>\n

queue_logs()
\n {
\n echo “”
\n echo -n ” Quantas linhas de log do qmail-queue voce deseja analisar? ”
\n read logqueue
\n echo “”
\n echo ” Analisando as ultimas ${logqueue} linhas dos logs do qmail-queue: ”
\n echo “”
\n tail -${logqueue} \/var\/spool\/qmailscan\/qmail-queue.log
\n exit
\n }<\/p>\n

kill_smtp()
\n {
\n echo “”
\n echo -n ” Matando o Qmail SMTP [qmail-smtpd]…”
\n svc -k \/service\/smtpd
\n echo ” OK”
\n echo “”
\n exit
\n }<\/p>\n

up_smtp()
\n {
\n echo “”
\n echo “Iniciando o Qmail SMTP [qmail-smtpd]…”
\n svc -u \/service\/smtpd
\n echo ” O qmail-smtpd foi iniciado e esta sendo supervisionado.”
\n echo “”
\n exit
\n }<\/p>\n

status_smtp()
\n {
\n echo “”
\n echo ” Status do daemon SMTP [qmail-smtpd]: ”
\n svstat \/service\/smtpd
\n exit
\n }<\/p>\n

restart_smtp()
\n {
\n echo “”
\n echo ” Forcando a reinicializacao do daemon SMTP [qmail-smtpd]… ”
\n kill_smtp
\n up_smtp
\n }<\/p>\n

qsmtp_logs()
\n {
\n echo “”
\n echo -n ” Quantas linhas de logs do qmail-smtpd voce deseja analisar? ”
\n read smtplogs
\n echo ” Analisando as ultimas ${smtplogs} linhas de logs do qmail-smtpd: ”
\n echo “”
\n tail -${smtplogs} \/service\/smtpd\/log\/main\/current
\n exit
\n }<\/p>\n

kill_pop3()
\n {
\n echo “”
\n echo -n ” Matando o Qmail POP3 [qmail-pop3d]…”
\n svc -k \/service\/pop3d
\n echo ” OK”
\n echo “”
\n exit
\n }<\/p>\n

up_pop3()
\n {
\n echo “”
\n echo “Iniciando o Qmail POP3 [qmail-pop3d]…”
\n svc -u \/service\/pop3d
\n echo ” O qmail-pop3d foi iniciado e esta sendo supervisionado.”
\n echo “”
\n exit
\n }<\/p>\n

status_pop3()
\n {
\n echo “”
\n echo ” Status do daemon POP3 [qmail-pop3d]: ”
\n svstat \/service\/pop3d
\n exit
\n }<\/p>\n

restart_pop3()
\n {
\n echo “”
\n echo “Forcando a reinicializacao do daemon POP3 [qmail-pop3d]… ”
\n kill_pop3
\n up_pop3
\n }<\/p>\n

qpop3_logs()
\n {
\n echo “”
\n echo -n ” Quantas linhas de logs do qmail-pop3d voce deseja analisar? ”
\n read pop3logs
\n echo ” Analisando as ultimas ${pop3logs} linhas de logs do qmail-pop3d: ”
\n echo “”
\n tail -${pop3logs} \/service\/pop3d\/log\/main\/current
\n exit
\n }<\/p>\n

virus_log()
\n {
\n echo “”
\n echo -n ” Quantas linhas de logs de virus encontrados voce deseja analisar? ”
\n read viruslog
\n echo ” Analisando as ultimas ${viruslog} linhas de logs sobre virus encontrados:”
\n echo “”
\n tail -${viruslog} \/var\/spool\/qmailscan\/viruses.log
\n exit
\n }<\/p>\n

rm_quarantine()
\n {
\n echo “”
\n echo ” Apagando todos os emails armazenados em quarentena… ”
\n find \/var\/spool\/qmailscan\/quarantine\/ -name “*${dominio}*” -exec rm -f {} \\;
\n echo ” Apagados!”
\n exit
\n }<\/p>\n

rm_working()
\n {
\n echo “”
\n echo ” Apagando todas as mensagens verificadas por virus ha pouco…”
\n find \/var\/spool\/qmailscan\/working\/ -name “*${dominio}*” -exec rm -f {} \\;
\n echo ” Apagados!”
\n exit
\n }<\/p>\n

virus_count()
\n {
\n echo “”
\n echo ” Total de virus interceptados segundo os logs recentes: ”
\n cat \/var\/spool\/qmailscan\/viruses.log | grep uvscan | wc -l
\n echo ” Virus!”
\n exit
\n }<\/p>\n

stop_imapd()
\n{
\n echo “”
\n if [ -x \/usr\/local\/etc\/rc.d\/imapd.sh ]; then
\n echo -n “Parando Courier-IMAP…”
\n \/usr\/local\/etc\/rc.d\/imapd.sh stop
\n echo ” OK”
\n else
\n echo “O courier-imap nao parece estar corretamente”
\n echo “configurado via ports… Saindo.”
\n fi
\n echo “”
\n exit
\n}<\/p>\n

start_imapd()
\n{
\n echo “”
\n if [ -x \/usr\/local\/etc\/rc.d\/imapd.sh ]; then
\n echo -n “Iniciando Courier-IMAP…”
\n \/usr\/local\/etc\/rc.d\/imapd.sh start
\n echo ” OK”
\n else
\n echo “O courier-imap nao parece estar corretamente”
\n echo “configurado via ports… Saindo.”
\n fi
\n echo “”
\n exit
\n}<\/p>\n

vlogs_imapd()
\n{
\n echo “”
\n echo -n ” Quantas linhas de logs do courier-imap voce deseja analisar? ”
\n read imaplog
\n echo ” Analisando as ultimas ${imaplog} linhas de logs do courier-imap:”
\n echo “”
\n grep -i “imapd:” -C1 \/var\/log\/maillog | tail -${imaplog}
\n echo “”
\n exit
\n}<\/p>\n

# Inicia esse programa em shell
\n main<\/p>\n

——————————<\/p>\n

#!\/usr\/bin\/perl
\n#
\n# fila-qmail – programa pra gerenciar a complexa e poderosa fila de mensagens
\n# locais e remotas do MTA Qmail.
\n##
\n# Baseado no script de Kasperv e Michelle algumacoisa…
\n##
\n# FreeBSD, Qmail, Vpopmail, Qmail-scanner, spamassassin, Daemontools,
\n# McAfee UVScan – Unix Virus Scanner, Mysql, e o necessario pra isso tudo funcionar junto.<\/p>\n

use strict;
\nuse diagnostics;<\/p>\n

my ($CID) = ‘dominio.com.br’;<\/p>\n

#################### Variaveis que PODEM ser alteradas pela usuario.<\/p>\n

#####
\n# Caminho completo pro seu diretorio de filas do qmail…
\nmy ($queue) = ‘\/var\/qmail\/queue\/’;<\/p>\n

#####
\n# Se voce possuir algum script ou comando externo que inicie e mate
\n# o seu Qmail, entao defina-os nas variaveis $stopmail e $startmail
\n# NAO pode haver mais de uma variavel com esses nomes.<\/p>\n

# Caso voce utilize o Daemontools…
\nmy ($stopqmail) = ‘\/usr\/local\/bin\/svc -d \/service\/qmail’;
\nmy ($startqmail) = ‘\/usr\/local\/bin\/svc -u \/service\/qmail’;<\/p>\n

# Se preferir, deixe eu matar o qmail sozinho.
\n# my ($stopqmail) = ”;<\/p>\n

#####
\n# Defina aqui o comando ou script que retorne o PID do qmail-send
\n# pidof pode ser instalado pelo Ports do FreeBSD
\n#my ($pidcmd) = ‘pidof qmail-send’;<\/p>\n

######################################################
\n# DAQUI PRA BAIXO COMECA O PROGRAMA. NAO MEXA MUITO #
\n# SE NAO SOUBER OQ ESTAS FAZENDO… #
\n######################################################<\/p>\n

# Se nao existir protousuario input
\nif ($#ARGV == -1) {
\n &Usage();
\n}<\/p>\n

# Define variaveis globais
\nmy ($norestart) = 0;<\/p>\n

# Cria as listas para e-mail nas filas local e remota
\nmy (@queues) = (“remote”, “local”);
\nmy (@msglist) = ();
\nmy (%type) = ();<\/p>\n

foreach my $currentqueue (@queues) {<\/p>\n

# Lista as mensagens de cada fila
\n opendir(DIR,”${queue}$currentqueue”);
\n my (@dirlist) = grep !\/\\.\/, readdir DIR;
\n closedir DIR;
\n foreach my $dir (@dirlist) {
\n\topendir (SUBDIR,”${queue}${currentqueue}\/$dir”);
\n\tmy (@files) = grep !\/\\.\/, map “$dir\/$_”, readdir SUBDIR;
\n\tforeach my $file (@files) {
\n\t push @msglist, “$file”;
\n\t ($currentqueue eq “remote”) ? ($type{“$file”} = ‘R’) : ($type{“$file”} = ‘L’);
\n\t}
\n\tclosedir SUBDIR;
\n }<\/p>\n

}<\/p>\n

# Verifica user-level input
\nmy ($color) = 1;
\n# Saida SEMPRE colorida.<\/p>\n

my ($summary) = 0;
\nmy (@actions) = ();
\nforeach my $arg (@ARGV) {
\n SWITCH: {
\n $arg eq ‘-l’ and do { push @actions, “&ListMsg(‘A’)”; last SWITCH; };
\n $arg eq ‘-R’ and do { push @actions, “&ListMsg(‘L’)”; last SWITCH; };
\n $arg eq ‘-L’ and do { push @actions, “&ListMsg(‘R’)”; last SWITCH; };
\n $arg eq ‘-N’ and do { $summary = 1; last SWITCH; };
\n $arg eq ‘-c’ and do { $color = 0; last SWITCH; };
\n $arg eq ‘-s’ and do { push @actions, “&Stats()”; last SWITCH; };
\n $arg =~ \/^-v(.+)\/ and do { push @actions, “&ViewMsg($1)”; last SWITCH; };
\n $arg =~ \/^-d(.+)\/ and do { push @actions, “&DelMsg($1)”; last SWITCH; };
\n $arg eq ‘-D’ and do { push @actions, “&DelAll()”; last SWITCH; };
\n &Usage();
\n }
\n}<\/p>\n

foreach my $action(@actions) {
\n eval “$action”;
\n}<\/p>\n

exit(0);<\/p>\n

sub ListMsg {
\n my ($q) = shift;
\n my (%ret, %date, %from, %subj, %to, %cc, %fsize);<\/p>\n

if ($summary == 0) {<\/p>\n

\tforeach my $msg(@msglist) {<\/p>\n

\t # Descobre o return-path
\n\t open (MSG, “${queue}info\/$msg”);
\n\t $ret{$msg} = ;
\n\t substr($ret{$msg}, 0, 1) = ”;
\n\t chop ($ret{$msg});
\n\t close (MSG);<\/p>\n

\t # Descobre o tamanho do e-mail em disco.
\n\t $fsize{$msg} = (stat(“${queue}mess\/$msg”))[7];<\/p>\n

\t # Pegar dados basicos do cabecalho do e-mail
\n\t open (MSG, “${queue}mess\/$msg”);
\n\t while () {
\n\t\tif ($_ =~ \/^Date: \/) {
\n\t\t $date{$msg} = $’;
\n\t\t chop ($date{$msg});
\n\t\t} elsif ( $_ =~ \/^From: \/) {
\n\t\t $from{$msg} = $’;
\n\t\t chop ($from{$msg});
\n\t\t} elsif ( $_ =~ \/^Subject: \/) {
\n\t\t $subj{$msg} = $’;
\n\t\t chop ($subj{$msg});
\n\t\t} elsif ( $_ =~ \/^To: \/) {
\n\t\t $to{$msg} = $’;
\n\t\t chop ($to{$msg});
\n\t\t} elsif ( $_ =~ \/^Cc: \/) {
\n\t\t $cc{$msg} = $’;
\n\t\t chop ($cc{$msg});
\n\t\t} elsif ( $_ eq “\\n”) {
\n\t\t last;
\n\t\t}
\n\t }
\n\t}<\/p>\n

}<\/p>\n

if ($color == 1) {<\/p>\n

\tforeach my $msg(@msglist) {
\n\t unless ($q eq $type{$msg}) {
\n\t\tmy ($dir, $rmsg) = split (\/\\\/\/, $msg);
\n\t\tprint chr(27).”[01;34m$rmsg ($dir, $type{$msg})\\n”;
\n\t\tif ($summary == 0) {
\n\t\t defined($ret{$msg}) and print ” \\e[01;31mReturn-path\\e[00m: $ret{$msg}\\n”;
\n\t\t defined($from{$msg}) and print ” \\e[01;31mFrom\\e[00m: $from{$msg}\\n”;
\n\t\t defined($to{$msg}) and print ” \\e[01;31mTo\\e[00m: $to{$msg}\\n”;
\n\t\t defined($cc{$msg}) and print ” \\e[01;31mCc\\e[00m: $cc{$msg}\\n”;
\n\t\t defined($subj{$msg}) and print ” \\e[01;31mSubject\\e[00m: $subj{$msg}\\n”;
\n\t\t defined($date{$msg}) and print ” \\e[01;31mDate\\e[00m: $date{$msg}\\n”;
\n\t\t defined($fsize{$msg}) and print ” \\e[01;31mSize\\e[00m: $fsize{$msg} bytes\\n\\n”;
\n\t\t}
\n\t }
\n\t}<\/p>\n

} else {<\/p>\n

\tforeach my $msg(@msglist) {
\n\t unless ($q eq $type{$msg}) {
\n\t\tmy ($dir, $rmsg) = split (\/\\\/\/, $msg);
\n\t\tprint “$rmsg ($dir, $type{$msg})\\n”;
\n\t\tif ($summary == 0) {
\n\t\t defined($ret{$msg}) and print ” Return-path: $ret{$msg}\\n”;
\n\t\t defined($from{$msg}) and print ” From: $from{$msg}\\n”;
\n\t\t defined($to{$msg}) and print ” To: $to{$msg}\\n”;
\n\t\t defined($cc{$msg}) and print ” Cc: $cc{$msg}\\n”;
\n\t\t defined($subj{$msg}) and print ” Subject: $subj{$msg}\\n”;
\n\t\t defined($date{$msg}) and print ” Date: $date{$msg}\\n”;
\n\t\t defined($fsize{$msg}) and print ” Size: $fsize{$msg} bytes\\n\\n”;
\n\t\t}
\n\t }
\n\t}<\/p>\n

}
\n &Stats();
\n}<\/p>\n

# Mostra conteudo da mensagem
\nsub ViewMsg {
\n my ($rmsg) = shift;<\/p>\n

unless ($rmsg =~ \/^\\d+$\/) {<\/p>\n

\tprint “$rmsg nao e’ um numero de e-mail valido!\\n”;<\/p>\n

} else {<\/p>\n

\t# Encontra o email
\n\tmy ($ok) = 0;
\n\tforeach my $msg(@msglist) {
\n\t if ($msg =~ \/$rmsg$\/) {
\n\t\t$ok = 1;
\n\t\tprint “\\n ————–\\n NUMERO DO E-MAIL NA FILA: $rmsg \\n ————–\\n\\n”;
\n\t\topen (MSG, “${queue}mess\/$msg”);
\n\t\twhile () {
\n\t\t print $_;
\n\t\t}
\n\t\tclose (MSG);
\n\t\tlast;
\n\t }
\n\t}<\/p>\n

\t# Se nao encontrar a msg
\n\tif ($ok == 0) {
\n\t print “Mensagem numero $rmsg nao foi encontrada na fila!\\n”;<\/p>\n

\t}
\n }<\/p>\n

}<\/p>\n

# Deleta uma mensagem da fila
\nsub DelMsg {
\n my ($rmsg) = shift;<\/p>\n

unless ($rmsg =~ \/^\\d+$\/) {<\/p>\n

\tprint “$rmsg nao e’ uma mensagem valida!\\n”;<\/p>\n

} else {<\/p>\n

\t# Mata o qmail
\n\t&stopQmail() or die “O processo qmail nao pode ser interrompido: $!”;<\/p>\n

\t# Encontra o email
\n\tmy ($ok) = 0;
\n\tforeach my $msg(@msglist) {
\n\t if ($msg =~ \/$rmsg$\/) {
\n\t\t$ok = 1;
\n\t\tunlink “${queue}mess\/$msg”;
\n\t\tunlink “${queue}info\/$msg”;
\n\t\tif ($type{$msg} eq ‘R’) {
\n\t\t unlink “${queue}remote\/$msg”;
\n\t\t} else {
\n\t\t unlink “${queue}local\/$msg”;
\n\t\t}
\n\t\tlast;
\n\t }
\n\t}<\/p>\n

\t# Se nao achar o email,
\n\tif ($ok == 0) {
\n\t print “O e-mail $rmsg nao foi encontrado!\\n”;
\n\t}<\/p>\n

\t# Ressuscita Qmail
\n\t&startQmail();<\/p>\n

}
\n}<\/p>\n

# Apaga todas as mensagens de ambas as filas.
\nsub DelAll {
\n my ($rmsg) = shift;<\/p>\n

# Para o qmail
\n &stopQmail() or die “O processo qmail nao pode ser interrompido: $!”;<\/p>\n

# Search messages
\n my ($ok) = 0;
\n foreach my $msg (@msglist) {
\n\t$ok = 1;
\n\tprint “Apagando o email $msg…\\n”;
\n\tunlink “${queue}mess\/$msg”;
\n\tunlink “${queue}info\/$msg”;
\n\tif ($type{$msg} eq ‘R’) {
\n\t unlink “${queue}remote\/$msg”;
\n\t} else {
\n\t unlink “${queue}local\/$msg”;
\n\t}
\n }<\/p>\n

# Se nao houverem mensagens…
\n if ($ok == 0) {
\n\tprint “Nao foram encontradas mensagens nas filas!\\n”;
\n }<\/p>\n

# Reinicia o Qmail…
\n &startQmail();
\n}<\/p>\n

# Stats, oras…
\nsub Stats {
\n my ($l) = 0;
\n my ($r) = 0;<\/p>\n

foreach my $msg(@msglist) {
\n\tif ($type{$msg} eq ‘R’) { $r++; }
\n\telse { $l++; }
\n }<\/p>\n

if ($color == 1) {
\n\tprint chr(27).”[01;31mMensagens na fila Local”.chr(27).”[00m: $l\\n”;
\n\tprint chr(27).”[01;31mMensagens na fila Remota”.chr(27).”[00m: $r\\n”;
\n } else {
\n\tprint “Mensagens na fila Local: $l\\n”;
\n\tprint “Mensagens na fila Remota: $r\\n”;
\n }
\n}<\/p>\n

# Pega o processo do qmail
\nsub qmailPid {
\n my $qmpid = `\/bin\/ps waux | \/usr\/bin\/grep qmail-send | \/usr\/bin\/grep -v “\/bin\/ps” | \/usr\/bin\/awk ‘{print \\$2}’`;
\n# my $qmpid = `$pidcmd`;
\n chomp ($qmpid);
\n if ($qmpid =~ \/^\\d+$\/) { return $qmpid; }
\n return 0;
\n}<\/p>\n

# Mata qmail
\nsub stopQmail {
\n my ($qmpid) = &qmailPid();<\/p>\n

# Caso Exista o PID do Qmail, vamos mata-lo.
\n if ($qmpid != 0) {<\/p>\n

\t# Se existir um script ou comando externo para mata-lo, vamos usa-lo.
\n\tif ($stopqmail ne ”) {<\/p>\n

\t print “Chamando comando externo para parar o qmail…\\n”;
\n\t if (system($stopqmail) > 0) {
\n\t\treturn 0;
\n\t }<\/p>\n

\t# Senao, vamos tentar matar nos mesmos!
\n\t} else {
\n\t print “Terminando qmail (pid $qmpid)… essa operacao pode levar algum tempo caso existam mensagens sendo entregues.\\n”;
\n\t kill ‘TERM’, $qmpid;<\/p>\n

\t while (&qmailPid() eq “$qmpid\\n”){
\n\t\tsleep 1;
\n\t }
\n\t}<\/p>\n

# Se o qmail nao estiver rodando, nao vamos querer reinicia-lo depois
\n # evitando alteracoes no ambiente externo.
\n } else {
\n\tprint “Qmail nao esta no ar.\\n”;
\n\t$norestart = 1;
\n }<\/p>\n

return 1;
\n}<\/p>\n

# Starta qmail
\nsub startQmail {
\n my ($qmpid) = &qmailPid();<\/p>\n

if ($qmpid != 0) {
\n\tprint “Qmail esta ativo novamente, por isso nao sera reiniciado.\\n”;<\/p>\n

} elsif ($norestart == 1) {
\n\tprint “Qmail nao estava em execussao quando o fila-qmail foi chamado, por isso nao sera reiniciado \\n”;<\/p>\n

} else {
\n\tprint “Reiniciando qmail… “;
\n\tsystem($startqmail);
\n\tprint “OK (esperamos).\\n”;
\n }<\/p>\n

return 1;
\n}<\/p>\n

sub Usage {
\nprint “\\n”;
\nprint chr(27).”[01;39m\\n\\t\\t\\tQmail\/FreeBSD Mail Service da $CID\\n”.chr(27).”[00m”;
\nprint “\\n”;
\nprint chr(27).”[01;33m”;
\nprint ” __ _ _ _ _ \\n”;
\nprint ” \/ _(_) | __ _ __ _ _ __ ___ __ _(_) | \\n”;
\nprint ” | |_| | |\/ _` | _____ \/ _` | ‘_ ` _ \\\\ \/ _` | | | \\n”;
\nprint ” | _| | | (_| | |_____| | (_| | | | | | | (_| | | | \\n”;
\nprint ” |_| |_|_|\\\\__,_| \\\\__, |_| |_| |_|\\\\__,_|_|_| \\n”;
\nprint ” |_| \\n”;
\nprint chr(27).”[00m”;
\nprint “\\n”;
\nprint chr(27).”[01;31m\\t\\t\\tEl Super fila-qmail v0.2 da $CID\\n\\n”.chr(27).”[00m”;<\/p>\n

print “\\n”;
\n print chr(27).”[01;34mOpcoes possiveis sao:\\n”.chr(27).”[00m”;
\n print ” -l : lista todas as mensagens nas filas remota e local.\\n”;
\n print ” -L : lista apenas mensagens na fila local.\\n”;
\n print ” -R : lista apenas mensagens na fila remota.\\n”;
\n print ” -s : mostra a saida do qmail-qstat.\\n”;
\n print ” -vN : mostra o conteudo da mensagem numero N.\\n”;
\n print ” -dN : apaga a mensagem numero N da fila.\\n”;
\n print ” -D : deleta todas as mensagens nas filas remota e local.\\n”;<\/p>\n

print “\\n”;
\n print chr(27).”[01;35mOpcoes adicionais:\\n”.chr(27).”[00m”;
\n print ” -c : NAO imprime cores – ideal para criar scripts.\\n”;
\n print ” -N : lista apenas o numero das mensagens nas respectivas filas.\\n”;
\n print ” (pode ser usado com -l, -L ou -R – ex: fila-qmail -N -l)\\n\\n”;
\n print “NOTA: E’ possivel executar varios comandos simultaneamente.\\n\\n”;
\n exit 1;
\n}<\/p>\n","protected":false},"excerpt":{"rendered":"

qmail-fila qmail-adm Cr\u00e9ditos FreeBSD Brasil #!\/bin\/sh dominio=”@dominio.com.br” main() { clear echo “======= Gerenciamento auxiliar do MTA QMAIL =======” echo “===================================================” echo “Opcoes:” echo echo “1 – Listar todas as mensagens na fila.” echo “2 – Listar todas as mensagens na fila Remota.” echo “3 –…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[10],"tags":[],"_links":{"self":[{"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=\/wp\/v2\/posts\/761"}],"collection":[{"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=761"}],"version-history":[{"count":5,"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=\/wp\/v2\/posts\/761\/revisions"}],"predecessor-version":[{"id":769,"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=\/wp\/v2\/posts\/761\/revisions\/769"}],"wp:attachment":[{"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=761"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=761"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.abratel.com.br\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=761"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}