incomming Mail forward to a bot

Evil · Post by **Evil** » Sat Oct 25, 2008 3:46 pm

Hi

I am searching for a script what forward an incmming Mail to a Bot and the bot posted that in a channel ( IRC )

thanks for your help

Nimos · Post by **Nimos** » Sat Oct 25, 2008 7:33 pm

what kind of mail is it?

if it is a pop3 mailserver, you can contact it via dccsend, but im not very good with that...

Evil · Post by **Evil** » Sun Oct 26, 2008 3:50 am

I am not sure what are the best way to do that.

the Mail acc is an pop3

did any do this before? when yes I habe no idea what i have to do

So i need an step by step what i have to do. THe best are with tcl script.

Evil · Post by **Evil** » Wed Oct 29, 2008 12:21 pm

did any have an idea about a tcl script for forward mails via botin a channel ?

game_over · Post by **game_over** » Thu Oct 30, 2008 11:12 am

I try pop3 connection on a mail server before. But i have success whit pop3 without TLS (Transport Layer Security) this is communication protocol to some servers like pop.gmail.com On simple pop3 servers (you have to search email whit no TLS connection) works perfect POP3 and SMTP.

here exaple (unfinished) for POP3 comunication protocol for (simple servers)

Code: Select all

bind pub - !mail hhh:hoo
proc hhh:hoo {nick uhost hand chan text} {
            set ml [socket "127.0.0.1" 110]
			fconfigure $ml -buffering none -translation binary
			if {[gets $ml] != ""} {
			catch {sendSMTP $ml "USER USERRRR" "get"} user
			putlog "$user"
			catch {sendSMTP $ml "PASS PASSS" "get"} pass
			putlog "$pass"
			catch {sendSMTP $ml "STAT" "get"} stat
			putlog "$stat"
			catch {sendSMTP $ml "QUIT" "get"} closesesion
			putlog "$closesesion"
			close $ml
		} else { putquick "PRIVMSG $nick :Server close connection!"; close $ml; return 0}
}

proc sendSMTP {ml args mode} {
     if {$mode == "get"} {
         puts $ml "[lrange $args 0 end]"
           return [gets $ml]
        } elseif {$mode == "NOget"} {
                  puts $ml "[lrange $args 0 end]"
    }
}

if you whant to have connection whit any servers (and TLS servers) you have to dw TLS.tcl and his module tls.so from here http://sourceforge.net/project/showfile ... p_id=13248
then you have to install open ssl and make configurations

I don't have experience whit TLS servers.