egghelp/eggheads community

vars and inis

2002-11-04T12:02:04-04:00

god damit.. And I that just have rewritten the hole code ! arghs...

Well.. "You learn by your misstakes".... any how.. screw him :P

I tried to find the "colorcode" for reverse but I cant find it.. anyone?

Statistics: Posted by gk^ — Mon Nov 04, 2002 12:02 pm

vars and inis

2002-11-04T11:59:34-04:00

You need to keep reading over the script a few hundred times, to spot small mistakes like this one.

Code:

if {[string tolower {lindex $text 2]] == ""} {

Statistics: Posted by ppslim — Mon Nov 04, 2002 11:59 am

vars and inis

2002-11-04T11:09:28-04:00

I changed it.. And got a diffrent error.. so I rewrote alot of the code and it turned out to this:

Code:

bind dcc z ftp dcc:ftpproc dcc:ftp {handle idx text} {   putlog "stage 0 - done"   if {[string tolower [lindex $text 1]] == ""} {      putlog "stage 2 - done"      puthelp "putdcc $idx Usage of ftp => ftp  "   } elseif {[string tolower [lindex $text 1]] == "ip"} {      if {[string tolower {lindex $text 2]] == ""} {         puthelp "putdcc $idx Usage of .ftp => .ftp ip "      } else {          putlog "stage 5 - done"          ini_write ftpnfo.ini $hand ip [string tolower [lindex $text 3]]      }   } elseif {[string tolower [lindex $text 1]] == "user"} {      if {[string tolower {lindex $text 2]] == ""} {         puthelp "putdcc $idx Usage of .ftp => .ftp user "      } else {         putlog "stage 6 - done"         ini_write ftpnfo.ini $hand user [string tolower [lindex $text 3]]      }   } elseif {[string tolower [lindex $text 1]] == "pass"} {      if {[string tolower [lindex $text 2]] == ""} {         puthelp "putdcc $idx Usage of .ftp => .ftp pass "      } else {         putlog "stage 7 - done"         ini_write ftpnfo.ini $hand pass [string tolower [lindex $text 3]]      }   } elseif {[string tolower [lindex $text 1]] == "port"} {      if {[string tolower [lindex $text 2]] == ""} {         puthelp "putdcc $idx Usage of .ftp => .ftp port "      } else {         putlog "stage 8 - done"         ini_write ftpnfo.ini $hand port [string tolower [lindex $text 3]]      }   }}

But I still got an error :( .. And I dont know how to fix it..

Error msg:

[16:04] missing close-brace
while executing
"proc dcc:ftp {handle idx text}"
(file "scripts/save.tcl" line 3)
invoked from within
"source scripts/save.tcl
"

Thanx for help

Statistics: Posted by gk^ — Mon Nov 04, 2002 11:09 am

Re: new => the real script

2002-11-04T10:25:06-04:00

Code:

bind dcc z ftp dcc:ftpproc dcc:ftp {handle idx text} {   putlog "stage 0 - done"   if {[string tolower [lindex $text 1]] == "update"} {      putlog "stage 1 - done"      if {[string tolower [lindex $text 2]] == ""}      putlog "stage 2 - done"      puthelp "putdcc $idx Usage of update => .ftp update "   } elseif {[string tolower [lindex $text 2]] == ""} {      putlog "stage 3 - done"      if {[string tolower [lindex $text 3]] == ""} {         putlog "stage 4 - done"         puthelp "putdcc $idx Usage of update ip => .ftp update ip "      } elseif {[string tolower [lindex $text 3]] == "ip"} {         putlog "stage 5 - done"         ini_write ftpnfo.ini $hand ip [string tolower [lindex $text 3]]      } elseif {[string tolower [lindex $text 2]] == "user"} {         putlog "stage 6 - done"         ini_write ftpnfo.ini $hand user [string tolower [lindex $text 3]]      } elseif {[string tolower [lindex $text 2]] == "pass"} {         putlog "stage 7 - done"         ini_write ftpnfo.ini $hand pass [string tolower [lindex $text 3]]      } elseif {[string tolower [lindex $text 2]] == "port"} {         putlog "stage 8 - done"         ini_write ftpnfo.ini $hand port [string tolower [lindex $text 3]]      }      putlog "stage 9 - done"   }   putlog "stage 10 - done"}

Code:

if {[string tolower [lindex $text 2]] == ""}

This is the incorrect line that cuases the error

However, the logic in use is genraly flawed, unless it is due to the error above.

Statistics: Posted by ppslim — Mon Nov 04, 2002 10:25 am

new => the real script

2002-11-04T09:44:37-04:00

Code:

bind dcc z ftp dcc:ftpproc dcc:ftp {handle idx text} {   putlog "stage 0 - done"   if {[string tolower [lindex $text 1]] == "update"} {      putlog "stage 1 - done"      if {[string tolower [lindex $text 2]] == ""}      putlog "stage 2 - done"      puthelp "putdcc $idx Usage of update => .ftp update "   } elseif {[string tolower [lindex $text 2]] == ""} {      putlog "stage 3 - done"      if {[string tolower [lindex $text 3]] == ""} {         putlog "stage 4 - done"         puthelp "putdcc $idx Usage of update ip => .ftp update ip "      } elseif {[string tolower [lindex $text 3]] == "ip"} {         putlog "stage 5 - done"         ini_write ftpnfo.ini $hand ip [string tolower [lindex $text 3]]      } elseif {[string tolower [lindex $text 2]] == "user"} {         putlog "stage 6 - done"         ini_write ftpnfo.ini $hand user [string tolower [lindex $text 3]]      } elseif {[string tolower [lindex $text 2]] == "pass"} {         putlog "stage 7 - done"         ini_write ftpnfo.ini $hand pass [string tolower [lindex $text 3]]      } elseif {[string tolower [lindex $text 2]] == "port"} {         putlog "stage 8 - done"         ini_write ftpnfo.ini $hand port [string tolower [lindex $text 3]]      }      putlog "stage 9 - done"   }   putlog "stage 10 - done"}

As you see I am trying to se how faar the codes goes though using alot of putlog.. But it doesnt even come to putlog stage 0....

If I type .ftp in the telnet/dcc chat I get

[14:38] Tcl error [dcc:ftp]: wrong # args: no script following "{[string tolower [li" argument

So I really cant find out whats wrong...

Statistics: Posted by gk^ — Mon Nov 04, 2002 9:44 am

vars and inis

2002-11-04T09:11:48-04:00

In an earlier post today, I went in depth (depth, not english ) into this area.

Eggdrop will pass arguments to a procedure, which you need to catch. This is done witht he first line of the proc command.

The problem with the above script, is that it expects eggdrop to understand exactly how it is programmed, and send what you want.

This is not how it works. tcl-commands.doc tells you what eggdrop will send, and you are expected to capture what it sends.

You may only need 2 of the 3 arguments sent, regardless of this, it will send all 3.

Statistics: Posted by ppslim — Mon Nov 04, 2002 9:11 am

vars and inis

2002-11-04T09:11:03-04:00

for some reason I needed idx there too...

Statistics: Posted by gk^ — Mon Nov 04, 2002 9:11 am

kind of new stuff

2002-11-04T09:03:30-04:00

Code:

bind dcc z nfo dcc:nfoproc dcc:nfo {hand text} {   putlog "stage - done"}

I get

Tcl error [dcc:nfo]: called "dcc:nfo" with too many arguments

But I need handle and text... Why do I get this error?

Statistics: Posted by gk^ — Mon Nov 04, 2002 9:03 am

vars and inis

2002-11-04T08:39:03-04:00

oh.. sorry.. I didnt post my new version.. changed alot :P

But i think i found the problem.. Thanx

Statistics: Posted by gk^ — Mon Nov 04, 2002 8:39 am

vars and inis

2002-11-04T08:36:43-04:00

Code:

bind pubm - ti.test* ini_las proc ini_las {nick uhost hand chan arg} {    set prtt [ini_read nfo.ini $hand foba]    puthelp "privmsg $chan :nfo is $prtt" }

That is what you posted.

There is no z flag involved, and thyis can be triggered by anyone by typeing "ti.text" on a channel.

When $hand == * is true, it means that eggdrop doesn't recognise you, even if it should.

This is because, none of the hostmasks in your ".whois" matches you.

Statistics: Posted by ppslim — Mon Nov 04, 2002 8:36 am

vars and inis

2002-11-04T08:34:21-04:00

hmm.. wait.. I got an idea.. yeah I know it isnt that common

ini_read doesnt have $hand .. could it be that? Do I have to add a global in the ini_read proc or isnt this the thing?

Statistics: Posted by gk^ — Mon Nov 04, 2002 8:34 am

vars and inis

2002-11-04T08:32:41-04:00

I found the problem.. It is that $hand == "*" instead of my handle...

Why is it like this.. it should know who I am couse I am the onlyone with z flag and I have that as a statement in my bind

Statistics: Posted by gk^ — Mon Nov 04, 2002 8:32 am

vars and inis

2002-11-04T08:30:18-04:00

Is the INI file formatted correctly, and are you using the correct values.

To get value from a INI file, you have to know its topic and name.

You can't simply use

item1=value1
item2=value2

INI files are formatted like

[topic1]
item1=value1
item2=value2
[topic2]
item1=value1
item2=value2

You are passing the value of the $hand variable as the topic (I presume, i have not looked at the ini parser yet). Are you sure this is what you should be passing.

Statistics: Posted by ppslim — Mon Nov 04, 2002 8:30 am

vars and inis

2002-11-04T08:17:54-04:00

Code:

bind pubm - ti.test* ini_lasproc ini_las {nick uhost hand chan arg} {   set prtt [ini_read nfo.ini $hand foba]   puthelp "privmsg $chan :nfo is $prtt"}

Thats the whole code.. But I just get "[ +ti^ ] nfo is ;"
And the value of foba is 2555 in the inifile..
No error msgs, no nothing... :|

Statistics: Posted by gk^ — Mon Nov 04, 2002 8:17 am

vars and inis

2002-11-04T08:08:52-04:00

The first quote is the most correct one, though yu should not use white space at the begining of the command (I have never tested this ti see it it's faulse, but it's the most common and standard method)

Code:

set prtt [ini_read nfo.ini $hand foba]

Beyond this, what errors do you get.

Statistics: Posted by ppslim — Mon Nov 04, 2002 8:08 am