irc.php:
[Code]
<?php
################ Config ##################
$conf[irc_nick] = "NickName";             # IRC NickName
$conf[irc_user] = "UserName";              # IRC UserName
$conf[irc_real] = "RealName";    # IRC RealName
$conf[channels] = array("#kanava", "#toinen");       # Channels
$conf[servers]  = array("serveri1", "serveri2");    # Servers
$conf[def_port] = "6667";                # Default server port
##########################################
# Dont touch anything below this point,  #
# unless you know what you are doing     #
##########################################
require("irc_functions.php");
$conf[debug] = FALSE;
while(TRUE) {
  #Main Loop#
    while(!$connect) {
      #Connecting loop#
        $serverid = rand(0, sizeof($conf[servers]) - 1);
        $server = $conf[servers][$serverid];
        if(preg_match("/:/", $server)) {
          $temp = explode(":", $server);
          $server_host = $temp[0];
          $server_port = $temp[1];
        } else {
          $server_host = $server;
          $server_port = $conf[def_port];
        }
        print(logtimestamp() . " : Connecting to $server_host:$server_port...");
        $connect = fsockopen($server_host, $server_port, $virhenro, $virhe);
        if($connect) {
          print("Success\n");
          if(isset($conf[irc_pass]) && $conf[irc_pass] != "") {
            write_row("PASS $conf[irc_pass]");
          }
          write_row("NICK $conf[irc_nick]");
          write_row("USER $conf[irc_user] 0 * :$conf[irc_real]");
        } else {
          print("Failed.. [$virhenro : $virhe]\n");
        }
      #/Connecting loop#
    }
    #Normal activity#
    while($connect) {
      $rivi = fetch_row();
      $rivi = trim($rivi);
      $temp = explode(":", $rivi);
      if($temp[0] != "") {
        protocol_server($rivi);
      } else {
        protocol_client($rivi);
      }     
    }
    #/Normal activity#
  #/Main Loop#
}
?>
[/Code]
Ja tässä irc_functions.php
[Code]
<?php
function fetch_row() {
  global $connect, $conf;
  while($data != "\n") {
    $data = @fread($connect, 1);
    $out .= $data;
  }
  if($conf[debug]) { print(logtimestamp() . " : DEBUG: RX=$out"); }
  return $out;
}

function write_row($row) {
  global $connect, $conf;
  $data = fwrite($connect, "$row\n");
  if($conf[debug]) { print(logtimestamp() . " : DEBUG: TX=$row\n"); }
  return $data;
}

function logtimestamp() {
  $temp = date("d.m.Y H:i:s");
  return $temp;
}

function protocol_server($rivi) {
  global $conf, $connect;
  $temp = explode(":", $rivi);
  $mesg = trim($temp[0]);
  switch($mesg) {
    case "ERROR": {
      print(logtimestamp() . " : Received server error, reconnecting..\n");
      fclose($connect);
      $connect = FALSE;
      break;
    }
    case "PING": {
      print(logtimestamp() . " : Ping received, replying\n");
      write_row("PONG $temp[1]");
      break;
    }
  }
}

function protocol_client($rivi) {
  global $conf;
  $temp = explode(":", $rivi);
  $temp2 = explode(" ", $temp[1]);
  $mesg = $temp2[1];
  switch($mesg) {
    case "001": {
      $conf[servername] = $temp2[0];
      join_channels();
      break;
    }
    case "PRIVMSG": {
      $host = $temp2[0];
      $nick = explode("!", $host);
      $nick = $nick[0];
      $to = $temp2[2];
      $message = explode(" PRIVMSG $to :", $rivi);
      $message = $message[1];
      $msgtype = $message[0];
      switch($msgtype) {
        case chr(001): {
          message_ctcp($host, $nick, $message);
          break;
        }
        default: {
          if($to[0] == "#") {
            message_channel($host, $nick, $to, $message);
          } else {
            message_private($host, $nick, $message);
          }
          break;
        }
      }
    }
  }
}

function join_channels() {
  global $conf;
  $channels = $conf[channels];
  if(is_array($channels)) {
    foreach($channels as $chan) {
      write_row("JOIN $chan");
    }
  } else {
    write_row("JOIN $channels");
  }
}

function message_ctcp($host, $nick, $message) {
  print(logtimestamp() . " : CTCP $message received from $nick\n");
}

function message_private($host, $nick, $message) {
  print(logtimestamp() . " : Private message from $nick: $message\n");
}

function message_channel($host, $nick, $to, $message) {
  print(logtimestamp() . " : Channel $to message: <$nick> $message\n");
  ## !list komento esimerkki ##
  $temp = explode(" ", $message);
  $ekasana = strtolower($temp[0]);
  if($temp[0] == "!list") {
    write_row("NOTICE $nick: Kirjoitit !list...");
  }
  ## /esimerkki ##
}

?>
********************
Pikku pätsi #1:
- Korjattu ja testattu reconnect
********************
ToDo :
- Serverin "stoned" tarkistus (jos nettiyhteys katkeaa niin yhdistä uudelleen)
  (tosin ei mitään hajua miten sen tekis... ehdotuksia?)