• Code:

  set iwas(topic) [lrange $arg 0 100]

  $arg is a string, not a list. If you are trying to grab the 100 first characters in the string, use string range.

• Code:

  set newlist [list $iwas(topic)]

  This would create a list with one single list-item, I'm quite sure this is not what you intended. If you wish to convert a string into a list, use the split command with suitable splitcharacters (works in a similar fashion to explode() in php).

• Code:

   if ([string first "--lt" [string tolower $arg]] != -1) {

  This would be php-syntax, not tcl-syntax. Very simplified, if expects the "test" to be a string containing one or more tcl-expressions. This string will then be passed to the tcl-interpreter and the result-code is then tested. As a rule of thumb, you (almost) always want to enclose the string with {} (to prevent early evaluation).

• Code:

  set newlist [[lreplace $newlist $npl $npls $flink]]

  This is very dangerous code, as it will try to execute the result from the lreplace-operation as a separate command, and set newlist to the result of this. In the tcl-preprocessor, [string] means execute string in the current interpreter, and replace [string] with whatever it returns, before the whole commandline is then passed to the current interpreter.

• [12:18] can't read "chan": no such variable
  while executing
  "putserv "TOPIC $chan :$newlist""
  (file "scripts/iwa.tcl" line 179)
  invoked from within
  "source scripts/iwa.tcl"

  This error would suggest that the line putserv "TOPIC $chan :$newlist" was executed as the script was loaded, and not as part of the proc. That is, it would seem there are some unbalanced {} within your script, one of those being this part:

  Code:

        #if requested the site url      if([string first "--url" [string tolower $arg]] != -1)                  set npl [lsearch $newlist "--url"]         set newlist [[lreplace $newlist $npl $npls $sitelink]]      }

  Here, there is no leading { to start the conditional code block, yet there is one } to terminate it -- which in this case terminates the whole proc instead.

Statistics: Posted by nml375 — Fri Feb 22, 2008 3:06 pm

proc iwa:topic {nick uhost handle chan arg} {global iwas db mqset flink ""set iwas(topic) [lrange $arg 0 100]set sitelink "\0030,3 http://www.iwaddicts.net/\003"set newlist [lrange $arg 0 100]# check if we have db conectionif {[iwa:constructor $nick $uhost $handle $chan]} {        set qry "SELECT * FROM  phpbb3_posts AS pLEFT JOIN phpbb3_users AS u ON p.poster_id=u.user_idORDER BY  post_time DESC LIMIT 1"set row [lindex [mysqlsel $db(sqlhand) $qry -list] 0]set toad [lindex $row 6]set tijd [ctime $toad]set user [lindex $row 33]set flink "Latest discussion http://board.iwaddicts.net/[lindex $row 2],[lindex $row 1]#p[lindex $row 0]"}##if requested the latest topic#if([string first "--lt" [string tolower $arg]] != -1){#set npl [lsearch $newlist "--lt"]#set newlist [lreplace $newlist $npl $npls $flink]#}##if requested the site url#if([string first "--url" [string tolower $arg]] != -1)#set npl [lsearch $newlist "--url"]#set newlist [lreplace $newlist $npl $npls $sitelink]#}#make the topic and set it in the channel#set newtopic [join $newlist]putserv "TOPIC $chan :$newlist"putlog "#$handle# changed the topic in $chan to $newtopic"}

[12:18] can't read "chan": no such variable
while executing
"putserv "TOPIC $chan :$newlist""
(file "scripts/iwa.tcl" line 179)
invoked from within
"source scripts/iwa.tcl"

Statistics: Posted by Mukke — Fri Feb 22, 2008 7:19 am

proc iwa:topic {nick uhost handle chan arg} {global iwas db mqset flink ""set iwas(topic) [lrange $arg 0 100]set sitelink "\0030,3| http://www.iwaddicts.net/ |\003"set newlist [list $iwas(topic)] # check if we have db conectionif {[iwa:constructor $nick $uhost $handle $chan]} {        set qry "SELECT * FROM  phpbb3_posts AS pLEFT JOIN phpbb3_users AS u ON p.poster_id=u.user_idORDER BY  post_time DESC LIMIT 1"set row [lindex [mysqlsel $db(sqlhand) $qry -list] 0]set toad [lindex $row 6]set tijd [ctime $toad]set user [lindex $row 33]set flink "| Latest discussion http://board.iwaddicts.net/[lindex $row 2],[lindex $row 1]#p[lindex $row 0] |"}#if requested the latest topicif([string first "--lt" [string tolower $arg]] != -1){set npl [lsearch $newlist "--lt"]set newlist [[lreplace $newlist $npl $npls $flink]]}#if requested the site urlif([string first "--url" [string tolower $arg]] != -1)set npl [lsearch $newlist "--url"]set newlist [[lreplace $newlist $npl $npls $sitelink]]}#make the topic and set it in the channelset newtopic [join $newlist]putserv "TOPIC $chan :$newtopic"putlog "#$handle# changed the topic in $chan to $newtopic"}

Statistics: Posted by Mukke — Fri Feb 22, 2008 7:08 am