TCL Send Mail

Send Mail

bind dcc -|- send send_mail

proc send_mail {hand idx arg} {
    if {[llength $arg] < 2} {
	putdcc $idx "Usage: .send <mail> <message>"
	return 0
    }

    set mail [lindex $arg 0]
    if {![regexp \[@\] $mail]} {
	putdcc $idx "Usage: .send <foo@bar.com> <message>"
	return 0
    }
    foreach mailsend [whom *] {
    set user [lindex $mailsend 0]
    set message [lrange $arg 1 end]
    set msg "($user) $message"
    exec echo $msg | mail $mail
	
	}
}
putlog "Mail Send by IRCHelp.UniBG.oRG+LHG Crew Loaded!!!"