Output to chan from MySQL db

[Danko]

Hello, I'm using a small code for reading from a Mysql db and posting info to chan..
Here's my code:

Code: Select all

proc finduser {nick host hand channel arg} {
global mysql 

 set search [string map {" " "%"} [lindex $arg]]
 
 set query [mysqlsel $mysql(conn) "SELECT * FROM `users` WHERE `name` LIKE '$search' ORDER BY id DESC LIMIT 3" -list]
 if {$query==""} { putquick "PRIVMSG $channel :$arg not found." ; return } 

  foreach result $query { 
  set id [lindex $result 0] 
  set name [lindex $result 1] 
  set city [lindex $result 2] 
  set newcity [lindex $result 3] 

  putquick "PRIVMSG $channel :Info ($id) $name is from $city"
 } 
}

This output to chan "Info ($id) $name is from $city" is usually okey when $newcity is blank
in mysql db, but if there's some text in newcity field in db, I'd like to change output to "Info ($id) $name is from $city but has moved to $newcity".
So how do I do that..?

[metroid]

There are several methods.

Code: Select all

  putquick "PRIVMSG $channel :Info ($id) $name is from $city[expr {[llength $newcity] ? " but has moved to $newcity" : ""}]" 

or something like,

Code: Select all

  set line "Info ($id) $name is from $city"
  if {[llength $newcity]} {
    lappend line "but has moved to $newcity"
  }
  putquick "PRIVMSG $channel :$line" 

[De Kus]

didnt you rather mean 'append line " but has moved to $newcity"'?

[Danko]

Hoh, thanx - that worked like a charm.

However, a second question qbout MySQL..
My db is MyISAM as described above.. However, when I'm adding data to it (checking if $name allready exists before adding) it's slow and 'hanging' the computer for 1-2 seconds.. I'm no sql guru, but what might I be doing wrong..?