From ed96f954446ee38b23cc3917919c4e85e7711bdd Mon Sep 17 00:00:00 2001
From: Nathan Lasseter <nathan@4574.co.uk>
Date: Mon, 12 Aug 2013 11:05:58 +0000
Subject: Initial Commit

---
 bot.erl | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 bot.erl

(limited to 'bot.erl')

diff --git a/bot.erl b/bot.erl
new file mode 100644
index 0000000..bfc3598
--- /dev/null
+++ b/bot.erl
@@ -0,0 +1,58 @@
+-module(bot).
+-export([connect/0]).
+-compile(export_all).
+
+-include("botsettings.erl").
+
+logger(Log) ->
+	receive
+		{write, Term} ->
+			io:fwrite(Log, "~p: ~p~n", [erlang:localtime(), Term]),
+			logger(Log)
+	end.
+
+connect() ->
+        {ok, Sock} = gen_tcp:connect(?server, ?port, [{packet, line}]),
+	{ok, IoDevice} = file:open(?logfile, [append]),
+	register(logp, spawn(fun() -> logger(IoDevice) end)),
+        gen_tcp:send(Sock, "NICK " ++ ?nickname ++ "\r\n"),
+        gen_tcp:send(Sock, "USER " ++ ?nickname ++ " blah blah :I am SamBot! &help me for more information.\r\n"),
+%	irc_send(Sock, "nickserv", "identify lblhack"),
+	receive after 5000 -> ok end,
+        loop(Sock).
+
+loop(Sock) ->
+        receive
+                {tcp, Sock, Data} ->
+			logp ! {write, Data},
+                        parse_line(Sock, string:tokens(Data, ": \r\n")),
+                        loop(Sock)
+        end.
+
+irc_mode(Sock, Channel, Mode, User) ->
+        S = "MODE " ++ Channel ++ " " ++ Mode ++ " " ++ User ++ "\r\n",
+        gen_tcp:send(Sock, S),
+	logp ! {write, S}.
+
+irc_send(Sock, To, Message) ->
+	Msgs = chop(Message, 0, [], []),
+	send_msgs(Sock, To, Msgs).
+send_msgs(_, _, []) -> ok;
+send_msgs(Sock, To, [H|T]) ->
+        S = "PRIVMSG " ++ To ++ " :" ++ H ++ "\r\n",
+        gen_tcp:send(Sock, S),
+	logp ! {write, S},
+	send_msgs(Sock, To, T).
+
+irc_gen(Sock, Type, To, Message) ->
+	S = Type ++ " " ++ To ++ " :" ++ Message ++ "\r\n",
+        gen_tcp:send(Sock, S),
+	logp ! {write, S}.
+
+chop([], _, A, R) -> R ++ [A];
+chop([$ |T], 220, A, R) -> chop(T, 0, [], R ++ [A]);
+chop([H|T], 220, A, R) -> chop(T, 220, A ++ [H], R);
+chop([H|T], N, A, R) -> chop(T, N+1, A ++ [H], R).
+
+-include("botutils.erl").
+-include("botparse.erl").
-- 
cgit v1.2.1