egghelp/eggheads community

[SOLVED]Taking 3 Variables and merging to one

2008-05-15T20:26:32-04:00

Wow, thank you alot. Not only did you fix my problem you explained what my errors were. Thank you very much it was a good learning experience for me

Statistics: Posted by eXcel — Thu May 15, 2008 8:26 pm

[SOLVED]Taking 3 Variables and merging to one

2008-05-14T21:37:40-04:00

Where should we start, let's choose the obvious.

Code:

proc topic_set { chan nick } {

Why have u omitted things, and instead generalized the parameter declarations? These are static. You cannot arbitrarily choose what to receive, as doing so destroys symbolic correlation. Change it to look like the code below:

Code:

proc topic_set {nick uhost hand chan arg} {

You must also make the changes noted below. Since you bound this procedure to the public using bind pub o|o .updatetopic topic_set, this is no longer a sub-procedure. I can also see why the parameter declarations above appear incorrect. This public binding to .updatetopic is the 'new addition', thereby corrupting parameter passing whenever it is used. Correcting this involves matching parameter ordering to the binding arguments.

Code:

change all occurrences of:topic_set $chan $nickinto:topic_set $nick $uhost $hand $chan $arg

This corrects the problem with flawed argument/parameter passing, now we move onto the problem you will have next, concerning your variable assignments.

Code:

#CSset topic_cs [open /home/crave/irc/cravebot/scripts/cstopics.log r]set info_topiccs [read $topic_cs]close $topic_cs#CSSset topic_css [open /home/crave/irc/cravebot/scripts/csstopics.log r]set info_topiccss [read $topic_cs]close $topic_css#h3set topic_h3 [open /home/crave/irc/cravebot/scripts/h3topics.log r]set info_topich3 [read $topic_h3]close $topic_h3

The above methods are problematic because your reading entire files into these variables. This induces newlines, carriage returns, etc which become enmeshed into the variable and when interpreted/messaged by the eggdrop signals the terminatation of that line. Meaning, anything your trying to display that is beyond one of those beauties is therefore made null and unprintable. You will need to use the code below to solve this if it becomes a problem, as foreach line [split $text \n] cannot be used because the topic must fit within one line.

Code:

set fulltopic "[join $info_topiccss], [join $info_topiccs], [join $info_topich3]"regsub -all {(?:\n|\r|\t|\v)} $fulltopic "" fulltopicputserv "privmsg chanserv :topic $chan $fulltopic"putserv "notice $nick :Updated Topic"

The above uses a regsub to remove those things...You can substitute "gets" for "read" as I've shown below for the h3 procedure, this will make the regsub unnecessary.

Code:

set info_topich3 [gets $topic_h3]

Gets behaves differently than read, as get only reads the next line from the file given by fileId and discards the terminating newline character.

Next up is this issue of curly bracing and other special tcl characters being written to the file which could throw tcl errors. This is the reason for "set fulltopic "[join $info_topiccss], [join $info_topiccs], [join $info_topich3]". The joins are needed to return from the splits we will be using below.

Code:

set topic $argputs $h3topic $topicclose $h3topic

Change all the above references in all 3 procedures (css,cs,h3) to resemble what I have below, keeping in mind this simply corrects h3. Obviously changes will need to be made for variable names to apply this to css and cs.

Code:

puts $h3topic [split $arg]close $h3topic

Splitting allows you an extra layer of security if malicious users decide to 'test' the strength of the scripting by giving it senseless symbols and random characters as input. Split guarantees issue free performance, instead of crashing you bot these users will just look silly. Combined, all the above steps should rectify your issues.

Statistics: Posted by speechles — Wed May 14, 2008 9:37 pm

[SOLVED]Taking 3 Variables and merging to one

2008-05-14T21:31:13-04:00

Hmm, Well I tried that but still.

Heres what i have

Code:

# MULTICLAN BOT V1 SCRIPTS ## TOPIC SETUP SCRIPT #bind pub o|o .csnews topic_cschangebind pub o|o .cssnews topic_csschangebind pub o|o .h3news topic_h3changebind pub o|o .updatetopic topic_setproc topic_cschange { nick uhost hand chan arg } {set cstopic [open /home/crave/irc/cravebot/scripts/cstopics.log w]set topic $argputs $cstopic $topicclose $cstopicputserv "NOTICE $nick :CS Topic Changed to $arg"topic_set $chan $nick}proc topic_csschange { nick uhost hand chan arg } {set csstopic [open /home/crave/irc/cravebot/scripts/csstopics.log w]set topic $argputs $csstopic $topicclose $csstopicputserv "NOTICE $nick :CS:S Topic Changed to $arg"topic_set $chan $nick}proc topic_h3change { nick uhost hand chan arg } {set h3topic [open /home/crave/irc/cravebot/scripts/h3topics.log w]set topic $argputs $h3topic $topicclose $h3topicputserv "NOTICE $nick :h3 Topic Changed to $arg"topic_set $chan $nick}proc topic_set { chan nick } {#CSset topic_cs [open /home/crave/irc/cravebot/scripts/cstopics.log r]set info_topiccs [read $topic_cs]close $topic_cs#CSSset topic_css [open /home/crave/irc/cravebot/scripts/csstopics.log r]set info_topiccss [read $topic_cs]close $topic_css#h3set topic_h3 [open /home/crave/irc/cravebot/scripts/h3topics.log r]set info_topich3 [read $topic_h3]close $topic_h3set fulltopic "$info_topiccss, $info_topiccs, $info_topich3" putserv "privmsg chanserv :topic $chan $fulltopic"putserv "NOTICE $nick :Updated Topic"}putlog "Mult-Bots V1.0 by Saurav Pokhrel - Topics Script Loaded -"

Statistics: Posted by eXcel — Wed May 14, 2008 9:31 pm

[SOLVED]Taking 3 Variables and merging to one

2008-05-14T18:47:43-04:00

Code:

set fulltopic "$info_topiccss, $info_topiccs, $info_topich3"putserv "privmsg chanserv :topic $chan $fulltopic"

Code:

set fulltopic ""append fulltopic $info_topiccssappend fulltopic ", $info_topiccs"append fulltopic ", $info_topich3"putserv "privmsg chanserv :topic $chan $fulltopic"

Just two of the several ways to combine strings. Both acheiving the same result, same exact contents of $fulltopic.

Statistics: Posted by speechles — Wed May 14, 2008 6:47 pm

[SOLVED]Taking 3 Variables and merging to one

2008-05-15T20:26:50-04:00

Hello,

I am trying to get 3 variables to merge to one for chaning a topic.

I have this

Code:

set fulltopic $info_topiccss,$info_topiccs,$info_topich3putserv "PRIVMSG ChanServ :topic $chan [set fulltopic]"

But when I do this I only get the $info_topiccss part and the rest is ignored. How do I get all 3 to be implemented.

Thanks for your help!

Statistics: Posted by eXcel — Wed May 14, 2008 6:42 pm