Problem With TCL
От | Paulo Ricardo Stradioti |
---|---|
Тема | Problem With TCL |
Дата | |
Msg-id | BAY7-F2302527EC9AE2E769D2BD3FCC00@phx.gbl обсуждение исходный текст |
Список | 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 по дате отправления: