egghelp/eggheads community

chanrelay.tcl

2004-11-25T09:20:16-04:00

It works just fine for me. What did you try (paste some code) and what strings did you feed it and what error messages/unexpected results did you get?

My test (in tclsh):

Code:

foreach a {{(extract_data1)-››-[extract_data2]-››-(Extract_data3)}{(extract_data1)-››-[extract_data2]}{bla bla bla}} {if {[regexp {^\((.+?)\)-..-\[(.+?)\](?:-..-\((.+?)\))?$} $a a data1 data2 data3]} {if {$data3!=""} {puts "match 3: $data1 | $data2 | $data3"} else {puts "match 2: $data1 | $data2"}} else {puts "mismatch: $a"}}

Results in:

match 3: extract_data1 | extract_data2 | Extract_data3
match 2: extract_data1 | extract_data2
mismatch: bla bla bla

Statistics: Posted by user — Thu Nov 25, 2004 9:20 am

chanrelay.tcl

2004-11-24T17:49:29-04:00

nope i tried a few different variations of that regexp... still not working... and i've come across an error.... where by if the in the first data there is a - then it pulls it out from there???

Statistics: Posted by TurboChicken — Wed Nov 24, 2004 5:49 pm

chanrelay.tcl

2004-11-23T12:32:52-04:00

nope it didn't like that

Statistics: Posted by TurboChicken — Tue Nov 23, 2004 12:32 pm

chanrelay.tcl

2004-11-23T01:33:50-04:00

it now works... but it didn't remove the () and the [] was that purpose full or is it abit more difficult to remove them???

It's not difficult at all...in fact it makes things easier as you can ignore those pesky arrow thingies I didn't think they were part of the string you were parsing (()&[])
Make the bind mask "#chan1 *)*]*" and change the regexp to

Code:

[regexp {^\((.+?)\)-..-\[(.+?)\](?:-..-\((.+?)\))?$} $a a data1 data2 data3]

Statistics: Posted by user — Tue Nov 23, 2004 1:33 am

chanrelay.tcl

2004-11-23T00:04:19-04:00

it now works... but it didn't remove the () and the [] was that purpose full or is it abit more difficult to remove them???

coz really that's what i want

but other than that it works perfect......

now all that left is to get it all into a mysql database and then setup searching through it... and well you get the drift... that's y i'm learning to use it... and no i don't want anyone to gimme a script to do it. unless there is a prebuilt one.... i wanna create something that is new...

Statistics: Posted by TurboChicken — Tue Nov 23, 2004 12:04 am

chanrelay.tcl

2004-11-22T23:19:09-04:00

now it's not working at all... nothing nada... i've reverted back to the orginal one and nothing...

didn't know i had to re +R original is working... going to try the new ones

Statistics: Posted by TurboChicken — Mon Nov 22, 2004 11:19 pm

hmm

2004-11-22T23:07:59-04:00

not working... no errors and i have changed bot nick and channels... and i restarted and rehashed the bot... i also tried removing the *>* part so see coz i thought i might be stopping it coz the > part is emboldened

Might be an encoding problem...use the old bind (without the ›) and replace the ›'s in the regexp with \x9B - if that fails, try \u203A ...if that fails, replace them with dots (.)
Oh and btw: ">" is not the same char as "›" even if they look similar.

Statistics: Posted by user — Mon Nov 22, 2004 11:07 pm

chanrelay.tcl

2004-11-22T22:11:34-04:00

not working... no errors and i have changed bot nick and channels... and i restarted and rehashed the bot... i also tried removing the *>* part so see coz i thought i might be stopping it coz the > part is emboldened

Statistics: Posted by TurboChicken — Mon Nov 22, 2004 10:11 pm

chanrelay.tcl

2004-11-22T21:56:33-04:00

Code:

# in bot1 (the one listening for messages):bind pubm R "#chan1 *›*" pub:relayproc pub:relay {n u h c a} {regsub -all {\002|\026|\017|\037|\003(\d{1,2}(,\d{1,2})?)?} $a "" aif {[regexp {^(.+?)-››-(.+?)(?:-››-(.+?))?$} $a a data1 data2 data3]} {if {$data3!={}} {putbot bot2 "rmsg 3: $data1 | $data2 | $data3"} else {putbot bot2 "rmsg 2: $data1 | $data2"}}}

Notice the "›" added to the bind to weed out most unwanted messages. (the regexp will weed out the rest)
Remember to get rid of the old bind by restarting/unbinding and to change the channel name and botnick

Statistics: Posted by user — Mon Nov 22, 2004 9:56 pm

chanrelay.tcl

2004-11-22T21:30:34-04:00

(extract_data1)-››-[extract_data2]-››-(Extract_data3)

() & [] are not included in any of the extract datas and the whole line has some colour formatting so that would need to be removed first i would think (if doesn't NEED to be removed i would like it to be if possible)... and extract_data3 doesn't always exist so some times it would say:

(extract_data1)-››-[extract_data2]

and sometimes there may be some normal chat from the user... so i don't want it to pick up that stuff

as for formatting if those can be extracting into variable i can do the rest i'm pretty sure.

i can do some TCL but i'm just learning.

so if you could tell me a good resource to learn from i could probably do it myself

Statistics: Posted by TurboChicken — Mon Nov 22, 2004 9:30 pm

chanrelay.tcl

2004-11-22T21:15:01-04:00

all i need now is for someone to create the parsing and formatting side of it

Telling us what you want to parse and the desired output format would speed up that process

Statistics: Posted by user — Mon Nov 22, 2004 9:15 pm

chanrelay.tcl

2004-11-22T20:45:25-04:00

/me bow to the might of user

all i need now is for someone to create the parsing and formatting side of it

Statistics: Posted by TurboChicken — Mon Nov 22, 2004 8:45 pm

chanrelay.tcl

2004-11-22T20:31:17-04:00

if i just do it as a plain relay atm... what should i put in?

what do you mean by "plain" and "put in"? Try the script and see what happens?

Statistics: Posted by user — Mon Nov 22, 2004 8:31 pm

chanrelay.tcl

2004-11-22T20:35:23-04:00

if i just do it as a plain relay (as in no parsing etc.) atm... what should i put in?

Statistics: Posted by TurboChicken — Mon Nov 22, 2004 8:28 pm

?

2004-11-22T19:53:39-04:00

preferably i would like it to parse what is said in one channel before it outputs it to another

(extract_data1)-››-[extract_data2]

and then have some way to format the output.

How about using regexp to do the parsing? Or would you like us to invent some other kind of generic text parser?

Code:

# in bot1 (the one listening for messages):bind pubm R "#chan1 *" pub:relayproc pub:relay {n u h c a} {    # insert parsing/formatting here :P    putbot bot2 "rmsg <$n> $a"}# in bot2 (the one displaying the messages):bind bot R rmsg bot:relayproc bot:relay {b k a} {puthelp "PRIVMSG #chan2 :$a"}

in bot1, do:
.+user relay TheNickToRelay!*@*
.chattr relay +R

in bot2:
.chattr bot1 +R

PS: make sure you change "#chan1", "#chan2" to the real channel names and "bot2" to the right botnick

Statistics: Posted by user — Mon Nov 22, 2004 7:53 pm