egghelp/eggheads community

transfer of variables

2004-03-21T16:54:14-04:00

Hi stdragon,

The point is that i also tried to work with the var mychanjoin (cfr some msg's before in this post), but even with that i got on bot2 the value "0" iso having the right time stamp from bot1

Do you or anyone else know how i could solve this matter of transferring the [getchanjoin $nick #channel] to my bot2?

I tried arrays, putbot and var mychanjoin but still without luck

Thnx in advance.

Regards,
Buffy

Statistics: Posted by Buffy_25 — Sun Mar 21, 2004 4:54 pm

transfer of variables

2004-03-21T16:10:08-04:00

bot2:

Code:

bind bot - "accept" procbot proc procbot {bot command text} { global mychanjoin set nick [lindex [split $text] 0] set jointime [lindex [split $text] 1] set [getchanjoin $nick #channel] jointime }

I think the point of this code was to use the var mychanjoin, not [getchanjoin].

So it seems that getchanjoin hasn't been transferred to bot2
I don't know if this is a correct statement : set [getchanjoin $nick #flightsim] jointime (i think we can't modify a getchanjoin...or am i wrong?). But i don't know what else i can try to get that getchanjoin from bot1 to bot2

I hope with this information you can help me a bit more.

Thnx in advance.

Best regards,

Buffy

You are right, set [getchanjoin ...] blah does not modify the getchanjoin. You have to store it in your own variable and use that instead.

Statistics: Posted by stdragon — Sun Mar 21, 2004 4:10 pm

transfer of variables

2004-03-21T04:01:38-04:00

GodOfSuicide,

I tried as you said with bind/putbot, but still didn't work.

I did like this:
1) Added the code on both bots

bot1:

Code:

bind join - * joinproc proc joinproc {nick uhost hand chan} { if {[string equal -nocase $nick "bot1"] || [string match -nocase "*@blabla.com" $uhost]} { foreach nick [chanlist #channel] { putbot bot2 [list accept $nick [getchanjoin $nick #channel]] puthelp "PRIVMSG #controlchan : [list accept $nick [getchanjoin $nick #channel]]" } } }

bot2:

Code:

bind bot - "accept" procbot proc procbot {bot command text} { global mychanjoin set nick [lindex [split $text] 0] set jointime [lindex [split $text] 1] set [getchanjoin $nick #channel] jointime }

3) Then i rehashed both of them (and restarted bot1...and bot1 rejoined in the mean time)
4) I quited my mirc
5) I restarted bot2
6) My mirc joined the channel (bot1 got his getchanjoin)
7) My bot2 rejoined the channel
I saw in #controlchan ->
[09:37] Tcl error [procbot]: nick1 is not on #channel
[09:37] Tcl error [procbot]: nick2 is not on #channel
[09:37] Tcl error [procbot]: nick3 is not on #channel
[09:37] Tcl error [procbot]: nick4 is not on #channel
... (for all the nicks in my channel)

9) But then i was in my #controlchan:
accept my_mirc_nick 1079853981
accept bot2 1079854108
accept bot1 1079853942
accept nick1 0
accept nick2 0
accept nick3 0
(all the other nicks got "0" 'cause my bot1 has been restarted and doesn't have a getchanjoin for them...isn't it?)

Now i would like to see if both bots would have the same getchanjoin for my join (mirc). So i would have hoped that bot1 would have passed his getchanjoin of me to bot2...

so i did like this to check the getchanjoin of my_mirc_nick on both bots:

bot1:

Code:

bind pub - "test1" chantest proc chantest {nick uhost hand chan arg} { global mychanjoin set channel #channel set nick [lindex [split $arg] 0] puthelp "PRIVMSG #controlchan : [getchanjoin $nick #channel]" }

bot2:

Code:

bind pub - "test" chantest proc chantest {nick uhost hand chan arg} { global mychanjoin set channel #channel set nick [lindex [split $arg] 0] puthelp "PRIVMSG #controlchan : [getchanjoin $nick #channel]" }

So i typed in #controlchan :
test1 my_mick (-> i got as response : 1079853981)
test my_nick (-> i got as response : 0)

So it seems that getchanjoin hasn't been transferred to bot2
I don't know if this is a correct statement : set [getchanjoin $nick #flightsim] jointime (i think we can't modify a getchanjoin...or am i wrong?). But i don't know what else i can try to get that getchanjoin from bot1 to bot2

I hope with this information you can help me a bit more.

Thnx in advance.

Best regards,

Buffy

Statistics: Posted by Buffy_25 — Sun Mar 21, 2004 4:01 am

transfer of variables

2004-02-29T07:08:39-04:00

Hi,

Strikelight, thnx for that info. I changed it. But it still doesn't work the transfert of variables...i got all the time the error:
[12:57] Tcl error [chantest]: can't read "mychanjoin(a_nickname,#channel)": no such element inrray

So i tried another way of working. Can you guys pls check if this is possible?

Let's say i have one bot1 in my channel #blabla.
Persons are joining and my bot1 takes their [getchanjoin $nick #channel] in an array:
(script on bot1)
bind join - * joinproc
proc joinproc {nick uhost hand chan} {
if {[onchan bot2 #blabla]} {return 0}
array set mychanjoin {
$nick [getchanjoin $nick #blabla]
}
}

Now when bot2 get's online, i would like that bot1 sends all the info, in his array mychanjoin, to bot2:
(script on bot1)
bind link - * detect:bot
proc detect:bot {botname via} {
if {[islinked "bot2"]} {
foreach {$nick} [array get mychanjoin] {
putbot bot2 "accept $nick [getchanjoin $nick #blabla]"
}
}
}

Now bot2 recieves this info, and i would like to put it in an array on bot2:
(script on bot2)
bind bot - "accept" procbot
proc procbot {bot command text} {
set nick [lindex [split $text] 0]
set timein [lindex [split $text] 1]
set array mychanjoin {
$nick $timein
}
}

Will now bot2 have the same value of [getchanjoin $nick #blabla] as my bot1?

Is this the right way to work?
Thnx.

Best regards,
Buffy

Statistics: Posted by Buffy_25 — Sun Feb 29, 2004 7:08 am

transfer of variables

2004-02-19T09:41:50-04:00

why not transfer the data via putbot / bind bot ?
i do it the same way with my scripts since a leaf bot does all the HTML parsing / exec's and so on...a quick&dirty multithread workaround

Statistics: Posted by GodOfSuicide — Thu Feb 19, 2004 9:41 am

transfer of variables

2004-02-18T23:12:59-04:00

One thing that jumps out at me is that you can not read from a file that you have opened in write mode (w)..... open the file in read mode (r) to get the contents.

Statistics: Posted by strikelight — Wed Feb 18, 2004 11:12 pm

transfer of variables

2004-02-18T18:03:07-04:00

I tried the following:

on Bot1 (that is already online, and Bot2 is temporarily not online):

Code:

bind link - * detect:botbind bot - "!Transferftpinfo" ftp:transferinfobind bot - "!Transferuserinfo" user:transferinfobind link - * getchanjoin:transfertbind pub - "test" chantestbind bot - "jointime" procbotbind join - * joinproc#when a person joins, his getchanjoin is added into $mychanjoin(with nick and channel info also) from Bot1proc joinproc {nick uhost hand chan} {global mychanjoinset channel #channelset mychanjoin($nick,$channel) [getchanjoin $nick $channel]}#when Bot2 was online, and Bot1 came online (opposite as normal), then Bot2 will send his getchanjoins to Bot1, starting with "jointime". Bot1 will store those info's into variablesproc procbot {bot command text} {global mychanjoinset nick [lindex [split $text] 0]set channel [lindex [split $text] 1]set mychanjoin($nick,$channel) [lindex [split $text] 2]}#This is for testing. When i type in #channel : test1 a_nickname_online , then i should get the getchanjoin value from that nickproc chantest {nick uhost hand chan arg} {global mychanjoinset channel #channelset nick [lindex [split $arg] 0]puthelp "PRIVMSG #channel : $mychanjoin($nick,$channel)"}#If Bot2 (that was not on #channel) and joins #channel, then Bot1 sends all the getchanjoins that he had, to Bot2 (so that Bot2, get all the getchanjoins too). Is same as "proc procbot", but then for Bot1proc getchanjoin:transfert {botname via} {if {[islinked "Bot2"]} {global mychanjoinset channel #channelforeach user [chanlist #channel] {putbot Bot2 "jointime $user $channel $mychanjoin($user,$channel)"puthelp "PRIVMSG #channel1 : jointime $user $channel $mychanjoin($user,$channel)"}}}#If Bot2 wasn't online, and then comes online, then Bot1 will send all his info that is in "usersuptime_backup.txt" to Bot2 (those are send in privmsg beginning with !transferuserinfo or !transferftpinfo). Bot2 will detect those first words, and will write them down in a txt file.proc detect:bot {botname via} {if {[islinked "Bot2"]} {timer 10 {set file [open /usr/home/eggdrop/logs/usersuptime_backup.txt w+]set buf [read $file]foreach line [split $buf \n] {set line [string trim $line " "]if {$line == ""} {continue}#putserv "PRIVMSG Bot1 :\001!Transferuserinfo $line"putbot Bot1 !Transferuserinfo $line}set file [open /usr/home/eggdrop/logs/ftpsuptime_backup.txt w+]set buf1 [read $file]foreach line [split $buf1 \n] {set line [string trim $line " "]if {$line == ""} {continue}#putserv "PRIVMSG Bot2 :\001!Transferftpinfo $line"putbot Bot1 !Transferftpinfo $line}timer 60 { file delete /usr/home/eggdrop/logs/usersuptime_backup.txtfile delete /usr/home/eggdrop/logs/ftpsuptime_backup.txt }}}}#Bot1 will write down info coming from Bot2 starting with !tTransferftpinfoproc ftp:transferinfo {botnick command arg} {set file [open /home/eggdrop/logs/ftpsuptime.txt a+]puts $file "$arg"close $file}#Bot1 will write down info coming from Bot2 starting with !Transferuserinfoproc user:transferinfo {botnick command arg} {set file [open /home/eggdrop/logs/usersuptime.txt a+]puts $file "$arg"close $file}

Now my questions are:
How come i don't get a file getting created when i get from another bot the msg starting with !Transferftpinfo , and then in getting in useruptime.txt some info in it :-/
Secondly, how come, when i do on the bot that joined as Bot2, and i want to see the value in $mychanjoin($nick,$channel), this value gives me all the time "0" and not the right getchanjoin (i.e. 1077132933)?

Is there anything wrong in my coding plz?

Thnx in advance.

Best regards,

Buffy

Statistics: Posted by Buffy_25 — Wed Feb 18, 2004 6:03 pm

transfer of variables

2004-01-20T08:43:41-04:00

So let's say i can add in my procedures the following:

"set jointime($nick) [getchanjoin $nick #channel]"

How can i send for each $nick, the jointime to my second bot pls?
So that my 2nd bot will get the following information:
%jointime(David) xxxxxxxxx
%jointime(Belle) xxxxxxxx
....

Is that with a for each loop? Or another way to do it?
So i presume that my 1st bot has all the getchanjoins of each nick in his memory and need to send it to my 2nd bot (maybe through putbot or bind msg). Can i put this into a islinked command, so when 2nd bot joins, he gets automatically all my %jointime($nick's)

Thnx.

Best regards,

Buffy

Statistics: Posted by Buffy_25 — Tue Jan 20, 2004 8:43 am

transfer of variables

2004-01-17T23:06:29-04:00

Hi guys,

I tried to use Sir_Fz's method, but my problem is:
Let's say i have in my first bot in a certain procedure:

set usertotaltime($nick) [duration [expr [clock seconds] - [getchanjoin nickname #channel]]]

So i would like that the variable %usertotaltime for that specific nick is sent to my second bot.

Will that work with:
putbot bot2_name var %usertotaltime(%nick) -> so my second bot will react on that putbot starting with "var"...(as Sir_Fz initiated)
BUT let's say if my bot has in his memory 5 nicks with their uptime, how can i get those 5 nick uptimes into my second bot?
This is my problem.

Also, for those var exchanges, this will only happen between the bots...so do i need to put as flag b ?

Thnx in advance!

Best regards,

Buffy

Statistics: Posted by Buffy_25 — Sat Jan 17, 2004 11:06 pm

transfer of variables

2004-01-16T19:02:47-04:00

If you share user files, maybe the easiest way is to create a fake user, and use setuser xtra to add whatever variables you want to him. Then they will be transferred automatically when the bots link.

Actually I'm not sure if xtra vars are transferred or not... but they might be!

Statistics: Posted by stdragon — Fri Jan 16, 2004 7:02 pm

transfer of variables

2004-01-15T08:03:47-04:00

Thnx guys to try to help me out with this item.

I will try with those remarks written above.
I'll keep you advised!

Best regards,

Buffy

Statistics: Posted by Buffy_25 — Thu Jan 15, 2004 8:03 am

transfer of variables

2004-01-11T19:50:59-04:00

I never used those two, So I don't have any experiance with them to offer them in the solution. But, I'm sure there can be a better solution.

Statistics: Posted by Sir_Fz — Sun Jan 11, 2004 7:50 pm

transfer of variables

2004-01-11T17:55:04-04:00

From reading the initial problem... I don't even understand how the solution provided was remotely related to the original quandry...

I would have suspected a solution along the lines consisting of "bind link", "putbot", etc...

Statistics: Posted by strikelight — Sun Jan 11, 2004 5:55 pm

transfer of variables

2004-01-11T17:36:42-04:00

He doesn't seem to care ?

Statistics: Posted by Sir_Fz — Sun Jan 11, 2004 5:36 pm

transfer of variables

2004-01-11T16:28:10-04:00

Not telling anybody is a very idiotic way to look at security.

What would make more sence is to use what Tcl calls an array. IE, you only populate a single array, where the name is an array key and then the value.

Although chaging settings at will is still insecure, damage limitation is for more managable

Statistics: Posted by ppslim — Sun Jan 11, 2004 4:28 pm