egghelp/eggheads community

dcc to chan script

2004-11-30T11:18:51-04:00

add this:

Code:

bind msg o send send_msgproc send_msg {n u h t} {  send_mail $n $u $h dummy $t}

Statistics: Posted by demond — Tue Nov 30, 2004 11:18 am

dcc to chan script

2004-11-30T06:26:44-04:00

Thanks demond, it works perfect

Well, I want this script to be used for sending short, not so important e-mails. It's fasted then to log-in to your webmail and send it from there

Can I ask you another dummy question, will you modify the same script to work when someone type "send some@mail.com blaa" in private, querying the bot (bind msg I guess)

Statistics: Posted by EmOuBi — Tue Nov 30, 2004 6:26 am

dcc to chan script

2004-11-29T22:08:14-04:00

you send the same email several times, each time flagging it with the bothandle of everyone who happens to be on the party line? that seems completely pointless to me, but anyway, here's a channel version:

Code:

set mail /var/qmail/bin/qmail-injectbind pub o !send send_mailproc send_mail {n u h c t} {  set t [split $t]  if ![string match *@* [lindex $t 0]] {    puthelp "notice $n :usage: [set ::lastbind]  "    return  }  exec echo "($h) [join [lrange $t 1 e]]" | $::mail [lindex $t 0]  return 1}

naturally, this will send out email only once per customer/command or you would rather have it multiplied by the number of channel users?

Statistics: Posted by demond — Mon Nov 29, 2004 10:08 pm

dcc to chan script

2004-11-29T16:15:02-04:00

How to make this script to be startet with !send command in the channel ?

Code:

bind dcc -|- send send_mailproc send_mail {hand idx arg} {    if {[llength $arg] < 2} {putdcc $idx "Usage: .send  "return 0    }    set mail [lindex $arg 0]    if {![regexp \[@\] $mail]} {putdcc $idx "Usage: .send  "return 0    }    foreach mailsend [whom *] {    set user [lindex $mailsend 0]    set message [lrange $arg 1 end]    set msg "($user) $message"    exec echo $msg | /var/qmail/bin/qmail-inject $mail}}putlog "Mail Send Loaded"

Statistics: Posted by EmOuBi — Mon Nov 29, 2004 4:15 pm