egghelp/eggheads community

tcl connection

2009-07-26T17:36:03-04:00

works fine !!

thanks m8

Statistics: Posted by franko — Sun Jul 26, 2009 5:36 pm

tcl connection

2009-07-26T14:54:00-04:00

example:

Code:

set port 1234set host 127.0.0.1###########################################bind evnt - prerehash prerehash_procset s_socket [socket -server socket_proc -myaddr $host $port]proc prerehash_proc { type } {        global s_socket        close $s_socket}proc socket_proc { sock host port } {        fconfigure $sock -buffering line        fileevent $sock readable "action $sock $host $port"}proc action { chan host port } {        if {![eof $chan]} {                set data [gets $chan]                if {$data != ""} {                        putquick "PRIVMSG #CHANNEL :data from $host:$port -> data = $data"                }        } {                close $chan        }}

its working, but you have to fix your PHP code,
some hints,
1. you don't need to open socket 3 times, you can open it just once, send all data and close it at the end
2. don't send tcl command trough socket, send just data and output it with proper eggdrop script

Statistics: Posted by tomekk — Sun Jul 26, 2009 2:54 pm

tcl connection

2009-07-26T13:47:45-04:00

Hello..
Hope that anybody can help me here

I coded a PHP script which sends Information to the Eggdrop.

My problem is that i dont receive them correctly..

Here a snippet from my PHP script:

Code:

$host="IP";$port="PORT";$pass="PW";$channel="#channel";$channel2="#channel2";if($board[cforum] !=="1"){     if($board[uploadsystem]=="2") {       if ($board['invisible']==0) {                              if ($fp=@fsockopen($host,$port,$errno,$errstr,30)) {                     fputs($fp,$pass."\r\n");                     fputs($fp,"PRIVMSG $channel : \0034\002[New]\003\002 \002$name\002 \0034\002[Poster]\003\002 \002$poster @ $user_c\002\r\n ");                     fclose($fp);                     $fp=@fsockopen($host,$port,$errno,$errstr,30);                     fputs($fp,$pass."\r\n");                     fputs($fp,"PRIVMSG $channel : \0034\002[Section]\003\002 \002$board[title]\002 \0034\002[Loc]\003\002 \002$country[country_name]\002 \0034\002[time]\003\002 \002$time2\002\r\n ");                     fclose($fp);                                                               $fp=@fsockopen($host,$port,$errno,$errstr,30);                     fputs($fp,$pass."\r\n");                     fputs($fp,"PRIVMSG $channel : \0034\002[URL]\003\002 \002$URL\002 \r\n ");                     fclose($fp);                    }}}

Anybody an idea how to receive this Information?

lg franko

Statistics: Posted by franko — Sun Jul 26, 2009 1:47 pm