Problem With TCL

From: "Paulo Ricardo Stradioti" <rev0ltz(at)hotmail(dot)com>
To: pgsql-interfaces(at)postgresql(dot)org
Subject: Problem With TCL
Date: 2005-07-31 07:16:07
Message-ID: BAY7-F2302527EC9AE2E769D2BD3FCC00@phx.gbl
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-interfaces

Hi all,

My name is Paulo and I'm trying to make a tcl that allows my IRC Bot
connects to my IRC Services (gnuworld) PostgreSQL database and get
information about our channels.

I thought it was working fine, until I tryed to find information about a
channel called #espaa. For our surprise the bot told "No records found for
#espaa". So I got curious and made other tests... it doesn't works for any
channels with chars like in the name.

I already tryed to google it, but (may be my bad, anyway, ) I didn't find
much.

Could anyone help me please?

My TCL code that checks information about that channels is:

bind pub $cservice(flags) ${cservice(char)}info pub.info:cservice
proc pub.info:cservice {nick uhost hand chan rest} {
global cservice
if {[lindex $rest 0] == ""} {
putserv "Notice $nick :Command should be: \002$cservice(char)purge
\<#ChannelName\>\002"
if {$cservice(dchan) != ""} {
putserv "PRIVMSG $cservice(dchan)
:\002\[\002CSC\002/\002Debug\002\]\002 Failed attemp to get \002PURGE\002
information from \002${nick}\002!${uhost} ($hand). Reason: \002Wrong Command
Syntax\002"
}
return 0
}
if {![string match "#*" [lindex $rest 0]]} {
putserv "NOTICE $nick :\002[string toupper [lindex $rest 0]]\002
doesn't seems to be a valid Channel Name!"
return 0
}
set conexao [pg_connect $cservice(database) -host $cservice(host) -port
$cservice(port)]
putserv "NOTICE $nick :Please wait while I get \002[string toupper
$cservice(command_purge)]\002 information about channel \002[string tolower
[lindex $rest 0]]\002"
set query [pg_exec $conexao "SELECT * FROM channels WHERE
lower(name)='[string tolower [lindex $rest 0]]'";]
if {[pg_result $query -numTuples] > 0} { putserv "NOTICE $nick :Results
Found" } else { putserv "NOTICE $nick :No records found" }
pg_disconnect $conexao
}

Well... another interesting notes: I can see information about that kind of
channel name using a third part PHP nterface. Current server encoding is
'SQL_ASCII'. (I'm not familiar with that... but some guys told that it may
be usefull).

Thanks for your time guys. Hugs.

Paulo

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today - it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

Responses

Browse pgsql-interfaces by date

  From Date Subject
Next Message ljb 2005-08-01 02:21:13 Re: Problem With TCL
Previous Message jing han 2005-07-28 15:18:13 about postgres performance issue