egghelp/eggheads community

Recruitment Questions script

2003-11-10T17:47:56-04:00

i want to be able to email the answers to the email address, not just a confirmation, how would i go about doing this?

Passing the input directly to exec is dangerous. To avoid having to figure out what chars to escape and how, you could write the body of the mail to a file and 'exec cat the_file | sendmail bla@bla.bla'

Code:

...# completedputserv "PRIVMSG $nick :We're done. Now go away!" putlog "$nick has answered the recruitment questions:"set f [open tmp.file w]puts $f "$nick has answered the recruitment questions at [date] [time]\n"foreach q $surveyQ a $surveyA($uhost) { putlog "Q: $q"putlog "A: $a"puts $f "Q: $q"puts $f "A: $a"}close $fexec cat tmp.file | sendmail mail@emailhere.co.ukfile delete tmp.file...

...OR you could 'open |sendmail bla@bla.bla' and puts directly to the mailer process, but that might not work with the sendmail binary...I don't have one to try it with atm.

Statistics: Posted by user — Mon Nov 10, 2003 5:47 pm

Recruitment Questions script

2003-11-10T12:14:56-04:00

Hehe, i made similar scripts for clan one for memebr one for wars etc..and one which contains all

Statistics: Posted by ]Kami[ — Mon Nov 10, 2003 12:14 pm

Recruitment Questions script

2003-11-10T11:59:01-04:00

When you want to send e-mails have al look @

http://www.egghelp.org/cgi-bin/tcl_arch ... oad&id=108

Allows you to send e-mails through the bot.

Statistics: Posted by Rusher2K — Mon Nov 10, 2003 11:59 am

Recruitment Questions script

2003-11-10T10:56:15-04:00

Ok, using that other thread, i have come up with this:

Code:

....proc recruit:msgm {nick uhost hand args} {    global surveyQ surveyA    if {[info exists surveyA($uhost)]} {       lappend surveyA($uhost) $args       if {[llength $surveyA($uhost)]<[llength $surveyQ]} {          # there are more questions to be asked...          putserv "PRIVMSG $nick :[lindex $surveyQ [llength $surveyA($uhost)]]"       } {          # completed          putserv "PRIVMSG $nick :We're done. Now go away!" exec echo "$nick has answered the recruitment questions at [date] [time] foreach q $surveyQ a $surveyA($uhost) { \"Q: $q\" \"A: $a\" } " | sendmail mail@emailhere.co.uk         putlog "$nick has answered the recruitment questions:"          foreach q $surveyQ a $surveyA($uhost) {             putlog "Q: $q"             putlog "A: $a"          } ....

I have missed out the other parts as those are working fine.
I get this error

Code:

Tcl error [recruit:msgm]: can't read "q": no such variable

I know what this means, but i want to be able to email the answers to the email address, not just a confirmation, how would i go about doing this?[/code]

Statistics: Posted by almighty — Mon Nov 10, 2003 10:56 am

Recruitment Questions script

2003-11-10T08:30:04-04:00

yea i changed it to privmsg i just pasted in the older code,
thanks for the info and link.

Statistics: Posted by almighty — Mon Nov 10, 2003 8:30 am

Recruitment Questions script

2003-11-10T07:54:57-04:00

check this post: http://forum.egghelp.org/viewtopic.php?t=5085#24041

Statistics: Posted by user — Mon Nov 10, 2003 7:54 am

Recruitment Questions script

2003-11-10T00:01:12-04:00

For starters, shouldn't you send them privmsg's instead of notices? That way they can type in the query window.

You need a msgm bind to listen for the answers (I assume you want them to message the bot privately, otherwise use pubm.) Bind on * so you get every line. Now, you probably need a global variable to keep track of "state information" such as what questions have been asked, etc. So, when they type recruit, you set the state variable for that person to be "question 1" or whatever. You send them question 1. In the handler for msgm, whenever you get a message, you check to see if that person's state variable is set. If it is, you record the line to some file (maybe $nick.answers) and ask the next one. To be a little nicer, you could have them type whatever they want and type "next" to signify an end to their answer, unless all your questions are one-liners.

For instance, say the global is called state. It's an array. $state($nick) will say what question the person is answering. If $state($nick) isn't set, the person hasn't typed !recruit yet.

That should give you some idea. For tcl commands, check out www.tcl.tk/man

Statistics: Posted by stdragon — Mon Nov 10, 2003 12:01 am

Recruitment Questions script

2003-11-09T15:29:08-04:00

People enter the channel and if they type the command !recruit the bot notices the person with a question or a few questions.
The the person can answer the question and when they have done so the bot gives the person the next question in line. The answer is stored in a file somewhere. This carrys on for a few questions until they get to the end, where all the answers get emailed to a email address.
I have the following so far, I know its not much, but i was stuck on how to do this next bit.

Code:

putlog "Loading Recruitment Script by Almighty"bind join *|* * msg_join bind pub - !recruit pub:recruitproc msg_join {nick host hand chan} {putserv "NOTICE $nick :Welcome to We Are Now Kings, for the recruitment questions use !recruit. Enjoy your stay!"}proc pub:recruit {nick uhost hand chan args} {global botnickputserv "NOTICE $nick :------\002Recruitment Questions for We Are Now Kings: \002---------"putserv "NOTICE $nick :FIRST QUESTION HERE"putserv "NOTICE $nick :INSERT QUESTIONS HERE"}

Can anyone shine some light on this for me?

Statistics: Posted by almighty — Sun Nov 09, 2003 3:29 pm