| View previous topic :: View next topic |
| Author |
Message |
Evil
Voice
Joined: 10 May 2007
Posts: 17
|
 Posted: Sat Oct 25, 2008 3:46 pm Post subject: incomming Mail forward to a bot |
 |
|
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 |
|
| Back to top |
|
 |
Nimos
Halfop
Joined: 20 Apr 2008
Posts: 80
|
| Posted: Sat Oct 25, 2008 7:33 pm Post subject: |
|
|
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... |
|
| Back to top |
|
|
Evil
Voice
Joined: 10 May 2007
Posts: 17
|
| Posted: Sun Oct 26, 2008 3:50 am Post subject: |
|
|
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. |
|
| Back to top |
|
|
Evil
Voice
Joined: 10 May 2007
Posts: 17
|
| Posted: Wed Oct 29, 2008 12:21 pm Post subject: |
|
|
| did any have an idea about a tcl script for forward mails via botin a channel ? |
|
| Back to top |
|
|
game_over
Voice
Joined: 26 Apr 2007
Posts: 29
|
| Posted: Thu Oct 30, 2008 11:12 am Post subject: |
|
|
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: | 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/showfiles.php?group_id=13248
then you have to install open ssl and make configurations
I don't have experience whit TLS servers. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
