From: Paulo Ricardo Stradioti <rev0ltz@hotmail.com>
To: pgsql-interfaces@postgresql.org
Subject: Problem With TCL
Date: Sun, 31 Jul 2005 07:16:07 +0000
Message-ID: <BAY7-F2302527EC9AE2E769D2BD3FCC00@phx.gbl> (raw)
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 #españa. For our surprise the bot told "No records found for
#españa". 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/
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Reply to all the recipients using the --to and --cc options:
reply via email
To: pgsql-interfaces@postgresql.org
Cc: rev0ltz@hotmail.com
Subject: Re: Problem With TCL
In-Reply-To: <BAY7-F2302527EC9AE2E769D2BD3FCC00@phx.gbl>
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
This inbox is served by DDX for PostgreSQL; see mirroring instructions
for how to clone and mirror all data and code used for this inbox