#!/usr/bin/expect -f

###############################################################################
#
# Este script foi desenvolvido para consultar a caixa de e-mail, por OpenSSL,
# e avisar pelo balãozinho de info. do KDE4 quando tiver g-mails não lidos.
#
################################################################################


# Quanto tempo (em segundos) até a próxima consulta
set tempo 400

# Abre o terminal principal do sistema para escrita
# Quando realizar puts $sys_out "mensagem", a mensagem
# irá abrir no balãozinho do KDE4 (na bandeija do sistema)
set sys_out [ open /dev/pts/0 w ]

# e-mail e senha
set user "meu.gmail@gmail.com"
set pass "minha_senha_vem_aqui"

# loop infinito de consulta
# para terminar o script, só matando o processo através do kill
while { 1==1 } {
   # sequencia de passo para se conectar ao imap do gmail
   spawn openssl s_client -crlf -quiet -connect imap.gmail.com:993
   expect "* OK Gimap ready for requests from*" { send ". login $user $pass\r" }
   expect "* OK * authenticated (Success)*" { send ". status inbox (unseen)\r" }
   expect -re "(\[0-9\]+)" { if { $expect_out(1,string) != 0 } { puts $sys_out "Você tem $expect_out(1,string) g-mail(s) não lido(s)" } }
   send ". logout"
   close -i $spawn_id
   wait -i $spawn_id
   
   # Atualiza o buffer de saída do KDE4, senão não aparece nada até o buffer ficar cheio
   # A idéia é que a mensagem apareça quando se dá o puts
   chan flush $sys_out

   # Espera um tempo até consultar a caixa de e-mail novmente
   sleep $tempo
}