Problem With TCL - Mailing list pgsql-interfaces

From Paulo Ricardo Stradioti
Subject Problem With TCL
Date
Msg-id BAY7-F2302527EC9AE2E769D2BD3FCC00@phx.gbl
Whole thread Raw
List 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 #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[stringtoupper [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/



pgsql-interfaces by date:

Previous
From: jing han
Date:
Subject: about postgres performance issue
Next
From: ljb
Date:
Subject: Re: Problem With TCL