[binaryphp-cvs] binaryphp testfile.php,1.41,1.42

[<ama...@us...>]

Update of /cvsroot/binaryphp/binaryphp
In directory sc8-pr-cvs1:/tmp/cvs-serv18838

Modified Files:
	testfile.php 
Log Message:



Index: testfile.php
===================================================================
RCS file: /cvsroot/binaryphp/binaryphp/testfile.php,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** testfile.php	4 Aug 2003 00:48:37 -0000	1.41
--- testfile.php	4 Aug 2003 04:34:32 -0000	1.42
***************
*** 1,2 ****
  <?php
! ?>
--- 1,16 ----
  <?php
! $sock = socket_create(AF_INET, SOCK_STREAM, 0);
! $connection = socket_connect($sock, 'irc.freenode.net', 6667);
! 
! socket_write($sock, "USER TestBOT TestBOT TestBOT :TestBOT\r\n");
! socket_write($sock, "NICK TestBOT \r\n");
! socket_write($sock,"JOIN #binaryphp \r\n");
! while ($data = socket_read($sock, 2046))
! {
! 	$temp = explode(':', $data);
! 	$temp2 = explode('!', $temp[1]);
! 	$temp3 = explode(' ', $temp2[1]);
! 	if(strpos('TestBOT: PING?', $temp[2]) !== false)
! 		socket_write($sock, 'PRIVMSG ' . $temp3[2] . ' :' . $temp2[0] . ": PONG!\r\n");
! }
! ?>
\ No newline at end of file