Skip site navigation (1) Skip section navigation (2)

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 (view raw or flat)
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

pgsql-interfaces by date

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

Privacy Policy | About PostgreSQL
Copyright © 1996-2014 The PostgreSQL Global Development Group