<?php

//Thanks http://blogoscoped.com/archive/2005-02-13-n32.html
//More info on http://senkafdo.blogspot.com

error_reporting(E_ERROR | E_PARSE);

$CONFIG = array();
$CONFIG['server'] = ''; // server (i.e. irc.gamesnet.net)
$CONFIG['nick'] = ''; // nick (i.e. demonbot)
$CONFIG['port'] = 6667; // port (standard: 6667)
$CONFIG['channel'] = ''; // channel  (i.e. #php)
$CONFIG['name'] = ''; // bot name (i.e. demonbot)
$CONFIG['file_name'] = ""; // the name of the file to log the chat to
$CONFIG['nick_password'] = "";

set_time_limit(0);
$con = array();

init();

function init()
{
    global $con, $CONFIG;
    $firstTime = true;
    
    $con['socket'] = fsockopen($CONFIG['server'], $CONFIG['port']);
    
    if (!$con['socket']) {
        print ("Could not connect to: ". $CONFIG['server'] ." on port ". $CONFIG['port']);
    } else {
        cmd_send("PASS ". $CONFIG['nick_password']);
        cmd_send("USER ". $CONFIG['nick'] ." sci-flex.org sci-flex.org ". $CONFIG['name']);
        cmd_send("NICK ". $CONFIG['nick']);
        
        while (!feof($con['socket']))
        {
            $con['buffer']['all'] = trim(fgets($con['socket'], 4096));

            if(substr($con['buffer']['all'], 0, 6) == 'PING :') {
                cmd_send('PONG :'.substr($con['buffer']['all'], 6));
                if ($firstTime == true){
                    cmd_send("JOIN ". $CONFIG['channel']);
                    $firstTime = false;
                }
            }
            else if ($old_buffer != $con['buffer']['all'] && !(strpos($con['buffer']['all'], $CONFIG['channel']) === false))
            {
                parse_buffer();
                if (strcmp($con['buffer']['username'], $con['buffer']['identd']) && strcmp($con['buffer']['text'], "") && strcmp($con['buffer']['username'], "freenode-connect"))
                    log_to_file('[SCI-Flex ' . date( "F j, Y, g:i a", time() ) . '] ' . $con['buffer']['username'] . ": " . $con['buffer']['text'] . "\r\n\r\n");
            }
            $old_buffer = $con['buffer']['all'];
        }
    }
}

function cmd_send($command)
{
    global $con;
    fputs($con['socket'], $command."\n\r");
}

function log_to_file ($data)
{
    global $CONFIG;

    $filemode = "ab";
    $need_move = date("d", filemtime($CONFIG['file_name'])) != date("d", time());
    clearstatcache();
    if ($need_move)
        if (copy($CONFIG['file_name'], $CONFIG['file_name'].".".date("Ymd", time()).".txt"))
            $filemode = "wb";
    if ($fp = fopen($CONFIG['file_name'], $filemode))
    {
        if (fwrite($fp, $data) === FALSE)
            echo "Could not write to file " . $CONFIG['file_name'] . ".\r\n";
    }
    else
        echo "File " . $CONFIG['file_name'] . "could not be opened.\r\n";
}

function parse_buffer()
{
    global $con;
        
    $buffer = $con['buffer']['all'];
    $buffer = explode(" ", $buffer, 4);
    
    $buffer['username'] = substr($buffer[0], 1, strpos($buffer['0'], "!")-1);
    
    $posExcl = strpos($buffer[0], "!");
    $posAt = strpos($buffer[0], "@");
    $buffer['identd'] = substr($buffer[0], $posExcl+1, $posAt-$posExcl-1); 
    
    switch (strtoupper($buffer[1]))
    {
        case "JOIN":
        case "QUIT":
        case "PART":
            $buffer['text'] = "*".strtoupper($buffer[1])."S: ". $buffer['username']." (".$buffer['username']."!".$buffer['identd']."@xxxxx)";
        break;
        case "MODE":
        case "PING":
        case "NOTICE":
            $buffer['text'] = "";
        break;
        case "NICK":
            $buffer['text'] = "*NICK: ".$buffer['username']." => ".substr($buffer[2], 1)." (".$buffer['username']."!".$buffer['identd']."@xxxxx)";
        break;
        
        default:
            $buffer['text'] = substr($buffer[3], 1);    
        break;    
    }
    $con['buffer'] = $buffer;
}

?>