From 09cacbfbd7528cfe742c734d8b4a575be5fadafd Mon Sep 17 00:00:00 2001
From: Mikko Ahlroth <mikko.ahlroth+git@gmail.com>
Date: Sat, 3 Aug 2013 00:40:36 +0300
Subject: [PATCH] Example 'main' function to test bot

---
 lib/nulform.ex | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/lib/nulform.ex b/lib/nulform.ex
index ee56a7f..399a3cf 100644
--- a/lib/nulform.ex
+++ b/lib/nulform.ex
@@ -11,15 +11,36 @@ defmodule Nulform do
         buffer <- {:nulform, :buffer, :reset_connection, connection}
         :gen_server.cast connection, :connect
 
-        listen_loop
+        #{:ok, ircnet_buffer} = :gen_server.start_link Nulform.Buffer, nil, []
+
+        #{:ok, ircnet_connection} = :gen_server.start_link Nulform.Connection,
+        #                    [
+        #                        self(), ircnet_buffer, 1, "irc.cc.tut.fi", 6667,
+        #                        "Nulform", nil, "nulform", "␀form"
+        #                    ], []
+        #ircnet_buffer <- {:nulform, :buffer, :reset_connection, ircnet_connection}
+        #:gen_server.cast ircnet_connection, :connect
+
+        {:ok, urlanalyzer} = :gen_server.start_link Nulform.Plugins.URLAnalyzer,
+                            nil, []
+
+        listen_loop urlanalyzer
     end
 
-    def listen_loop() do
+    def listen_loop(urlanalyzer) do
         receive do
             {:nulform, :msg_in, msg} ->
                 IO.puts(to_binary(msg.connection_id) <> " -> " <> msg.raw_msg)
+                :gen_server.cast urlanalyzer, msg
+
+                case String.split msg.raw_msg do
+                    [_, "376" | _] ->
+                        :gen_server.cast msg.buffer, "JOIN #nulform"
+                    _ ->
+                end
+
         end
-        listen_loop
+        listen_loop urlanalyzer
     end
 
 end