[Tävling] Skapa en simpel IRC-bot i valfritt språk

#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket;

# Settings
my $server   = 'irc.freenode.org';
my $port     = 6667; 
my $channel  = '#bot_test';
my $nickname = 'easy_plbot';
my $username = 'easy_perl_bot';
my $realname = 'Easy Perl IRC-bot';

# Connect to server
my $s = IO::Socket::INET->new(PeerAddr => $server, PeerPort => $port, Proto => 'tcp') or die('Couldn\'t connect to server.');

# Send a command to the socket
sub send_command {
    my $command = shift;

    print $s "$command\r\n";
}

# Set nickname and user
send_command("NICK $nickname");
send_command("USER $username aoeu htns :$realname");

while (my $d = <$s>) { 
    # Check for the message 004 (if there is one, we're connected)
    if ($d =~ /004/) {
        # Is the nickname already in use?
        if ($d =~ /433/) {
            print 'Nickname already taken.';
        } else {
            last;   
        }       
    }
}

# Join channel
send_command("JOIN $channel\r\n");

# Main loop
while (my $d = <$s>) { 
    # Match the IRC-protocol in one regexp, SWEET!
    if ($d =~ m/^(:([^  ]+))?[   ]*([^  ]+)[  ]+:?([^  ]*)[   ]*:?(.*)$/) {
        my $prefix  = $1;
        my $command = $3;
        my $arg     = $4;   
        my $args    = $5;   

        # Extract nickname from the prefix
        $prefix =~ m/:(.+)!.+/;
        my $who  = $1;

        # Some commands and responses
        if ($command eq 'PING') {
            send_command("PONG :$args");
            print 'PING? PONG!';
        }       
        elsif ($command eq 'PRIVMSG') {
            print "[MSG] $who> $args";
        }       
        elsif ($command eq 'NOTICE') {
            print "[NOTICE] $who> $args";
        }       
        elsif ($command eq 'JOIN') {
            print "[JOIN] $who -> $arg";
        } else {
            print "[$command] $who {$arg} ($args)";
        }       
    }
}

print "\n";

open Unix
open Str
open Printf

(* Settings *)
let server   = "irc.freenode.org"
let port     = 6667
let channel  = "#bot_test"
let nickname = "easy_mlbot"
let username = "easy_ocaml_bot"
let realname = "Easy O'Caml IRC-Bot"

let ic = ref Pervasives.stdin
let oc = ref Pervasives.stdout

(* Connect to the server *)
let connect () =
	let host = gethostbyname server in
	let addr = ADDR_INET(host.h_addr_list.(0), port) in

	let fic, foc = open_connection addr in
	ic := fic;
	oc := foc
;;

(* Send a command to the output stream *)
let send_command command = 
	output_string !oc (command ^ "\r\n");
	Pervasives.flush !oc
;;

(* Print message from server *)
let print message =
	print_endline message;
	Pervasives.flush_all ()
;;

(* Connect *)
connect ();;

(* Set nickname and user *)
send_command ("NICK " ^ nickname);;
send_command (sprintf "USER %s aoeu htns :%s" username realname)

let rec loop () =
	let line = input_line !ic in

	(* Check for the message 004 (if there is one, we're connected) *)
	match string_match (regexp "004") line 0 with
	| true ->
		(* Is the nickname already in use? *)
		(match string_match (regexp "433") line 0 with
  		| true ->
			print "Nickname already taken."
		| false -> ())
	| false -> ()
;;

loop ();;

(* Join channel *)
send_command ("JOIN " ^ channel);;

while true do
	let line = input_line !ic in
	
	(* Matches the IRC-protocol in one regexp, SWEET! *)
	let r = regexp "^\\(:\\([^  ]+\\)\\)?[   ]*\\([^  ]+\\)[  ]+:?\\([^  ]*\\)[   ]*:?\\(.*\\)$" in

	match string_match r line 0 with
	(* We got a match *)
	| true ->
		(* We don't want to be interupted by some annoying Not_found exception *)
		let safe_match n s = try matched_group n s with Not_found -> "" in

		let prefix  = safe_match 1 line in
		let command = safe_match 3 line in
		let arg     = safe_match 4 line in
		let args    = safe_match 5 line in

		(* Extract nickname from the prefix *)
		let who = try String.sub prefix 1 ((String.index prefix '!') - 1) with Not_found -> "" in

		(* Some commands and responses *)
		(match command with
		| "PRIVMSG" -> print ("[MSG] " ^ who ^ "> " ^ args)
		| "NOTICE"  -> print ("[NOTICE] " ^ prefix ^ "> " ^ args)
		| "JOIN"    -> print ("[JOIN] " ^ prefix ^ " -> " ^ arg)
		| "PING"    -> send_command ("PING :" ^ args); print "PING? PONG!"
		| _         -> print ("[" ^ command ^ "] " ^ prefix ^ " {" ^ arg ^ "} (" ^ args ^ ")"))

	| false -> ()
done

import java.io.*;
import java.net.*;
import java.util.regex.*;

public class bot_easy {
	// Send a command to the socket
	static void send_command(String string, OutputStream os) throws IOException {
		os.write((string + "\r\n").getBytes());
		os.flush();
	}

	static String group(Matcher m, int group) {
		return m.group(group) == null ? "" : m.group(group);
	}

	public static void main(String argv[]) throws IOException {
		int port;
		String server, channel, nickname, username, realname, data;
	        Socket socket;
		BufferedReader is;
		OutputStream os;

		// Settings
		server   = "irc.freenode.org";
		port     = 6667;
		channel  = "#bot_test";
		nickname = "easy_jbot";
		username = "easy_java_bot";
		realname = "Easy Java IRC-bot";

		// Connect to server
		socket = new Socket(server, port);

		is = new BufferedReader(new InputStreamReader(socket.getInputStream()));
		os = socket.getOutputStream();

		// Set nickname and user
		send_command("NICK " + nickname, os);
		send_command("USER " + username + " aoeu htns :" + realname, os);

		while (true) {
			data = is.readLine();

			// Check for the message 004 (if there is one, we're connected)
			if (data.indexOf("004") != -1)
				// Is the nickname already in use?
				if (data.indexOf("433") != -1)
					System.out.println("Nickname already taken.");
				else
					break;
		}

		// Join channel
		send_command("JOIN " + channel, os);

		// Main loop
		while (true) {
			String prefix, command, arg, args, who;
			Matcher m;

			data = is.readLine();

			// Matches the IRC-protocol in one regex, SWEET!
			m = Pattern.compile("^(:([^  ]+))?[   ]*([^  ]+)[  ]+:?([^  ]*)[   ]*:?(.*)$").matcher(data);

			// We got a match
			if (m.matches()) {
				prefix  = group(m, 1);
				command = group(m, 3);
				arg     = group(m, 4);
				args    = group(m, 5);

				// Extract nickname from the prefix
				m = Pattern.compile(":(.+)!.+").matcher(prefix);
				who = m.matches() ? group(m, 1) : prefix;

				// Some commands and responses
				if (command.equals("PING")) {
					send_command("PONG :" + args, os);
					System.out.println("PING? PONG!");
				}
				else if (command.equals("PRIVMSG"))
					System.out.println("[MSG] " + who + "> " + args);
				else if (command.equals("NOTICE"))
					System.out.println("[NOTICE] " + who + "> " + args);
				else if (command.equals("JOIN"))
					System.out.println("[JOIN] " + who + " -> " + arg);
				else
					System.out.println("[" + command + "] " + who + " {" + arg + "} (" + args + ")");
			}
		}
	}
}

[MSG] nickname> meddelande

[NOTICE] nickname> meddelande

[JOIN] nickname -> kanal

[meddelande] nickname {argument} (resterande argument)

<?php
$server="irc.freenode.org";
$port="6667";
$chan="#myIRCBOT";
$nickname="myIRCBOT7";
$username="myircbot";
$realname="Irc Bot";


$textFile=fopen("textDump.txt","w"); //skriptet måste ha skrivrättigheter till filen! 
$socket = stream_socket_client("tcp://$server:$port",$errno, $errstr, 30);
$runSystem=true;
if (!$socket)
{
	logText($errstr.' ('.$errno.")<br />\n");
}
else
{
	sendText("NICK ".$nickname,$socket);
	sendText("USER ".$username." aoeu htns :".$realname,$socket);
	while(true)
	{
		$result=fgets($socket);
		if(strpos($result,"004")!==false)
		{
			logText("[NOTE]Successful login!",$textFile);
			break;
		}
		elseif(strpos($result,"433")!==false)
		{
			logText("[NOTE]Unsuccessful login! Nick in use",$textFile);
			$runSystem=false;
			break;
		}
	}
	if($runSystem)
	{
		//Skip the motd..
		while(strpos(fgets($socket),"376")===false);
		
		sendText("JOIN ".$chan,$socket);
	}
	//Main loop
	while($runSystem)
	{
		$data=fgets($socket);
		if(strpos($data,"die bot")!==false)//Allowing clean shutdown of bot
			$runSystem=false;
			
		$matches=array();
		if(preg_match_all("/^:(.*?) (.*?) (.*?)(\s(.*))?$/",$data,$matches)>0)
		{
			$prefix=$matches[1][0];
			$command=$matches[2][0];
			$arg=$matches[3][0];
			$args=$matches[5][0];
			$who=(preg_match("/^(.*?)!/",$prefix,$match)>0)?$match[1]:"";
			
			if($command=="PING")
			{
				sendText("PONG :".$args,$socket);
				logText("PING? PONG!",$textFile);
			}
			elseif($command=="PRIVMSG")
				logText("[MSG] $who > $args",$textFile);
			elseif($command=="NOTICE")
				logText("[NOTICE] $who > $args",$textFile);
			elseif($command=="JOIN")
				logText("[JOIN] $who -> $arg",$textFile);
			else
				logText("[$command] $who > {$arg} ($args)",$textFile);
		}
	}
	sendText("QUIT",$socket);
}
function sendText($string,$handle)
{
	fwrite($handle,($string."\r\n"));
	fflush($handle);
}
function logText($string,$handle)
{
	fwrite($handle,$string."\n");
	fflush($handle);
}
fclose($textFile);
fclose($socket);

?>

<?php echo('<?xml');?> version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
	<head>
		<title>myIRCBOT</title>
		<meta http-equiv="refresh" content="1" />
	</head>
	<body>
		<div>
			<p>
			<?php
				echo nl2br(file_get_contents("textDump.txt"));
			?>
			</p>
		</div>
	</body>
</html>

        while (true) {
            data = is.readLine();

            if(data.startsWith("PING"))
            	send_command("PONG :"+ data.split(":")[1],os);
            
            // Check for the message 004 (if there is one, we're connected)
            if (data.indexOf("004") != -1)
                // Is the nickname already in use?
                if (data.indexOf("433") != -1)
                    System.out.println("Nickname already taken.");
                else    
                    break;  
        }

PRIVMSG #kanal :\001ACTION äter bullar\001

#! /usr/bin/env python
# -*- coding: iso-8859-1 -*-
import sys,os,re,socket

host = 'irc.freenode.net'
port = 6667
nick = ''
chan = ''
user = ''
realname = ''

socket = socket.socket()
socket.connect((host, port))
socket.send("NICK %s\r\n" % nick)
socket.send("USER %s %s bla :%s\r\n" % (user,host,realname))
socket.send("JOIN %s\r\n" % chan)

while 1:
        line=socket.recv(500)
        print line