mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
89 lines
3.1 KiB
Modula-2
89 lines
3.1 KiB
Modula-2
MODULE test; (* noch 13.4.2017 / 18.5.2017*)
|
|
|
|
IMPORT IRC, Out, Strings := ooc2Strings, Platform;
|
|
|
|
(* i am moving these to global section to make possible for interrupt handler to access instance *)
|
|
VAR
|
|
inst: IRC.instance;
|
|
channels : IRC.Channels;
|
|
b: BOOLEAN;
|
|
|
|
|
|
(*
|
|
PROCEDURE onMessage(VAR msg : ARRAY OF CHAR);
|
|
BEGIN
|
|
Out.String("callback procedure is running, youhoo!"); Out.Ln;
|
|
Out.String("input:"); Out.Ln;
|
|
Out.String(msg); Out.String("|"); Out.Ln;
|
|
Out.Ln;
|
|
END onMessage;
|
|
*)
|
|
PROCEDURE onPrivateMessage(VAR msg, msgtype, user, ident, host: ARRAY OF CHAR);
|
|
BEGIN
|
|
Out.String("*** private message ***"); Out.Ln;
|
|
Out.String("message: '"); Out.String(msg); Out.Char("'"); Out.Ln;
|
|
Out.String("message type: '"); Out.String(msgtype); Out.Char("'"); Out.Ln;
|
|
Out.String("user: '"); Out.String(user); Out.Char("'"); Out.Ln;
|
|
Out.String("ident: '"); Out.String(ident); Out.Char("'"); Out.Ln;
|
|
Out.String("host: '"); Out.String(host); Out.Char("'"); Out.Ln;
|
|
Out.String("*** that's it ***"); Out.Ln;
|
|
IRC.sendMsgToDst(inst, user, "hello, nice to meet you");
|
|
END onPrivateMessage;
|
|
|
|
PROCEDURE onPublicMessage(VAR msg, msgtype, user, ident, rcpt, host: ARRAY OF CHAR);
|
|
BEGIN
|
|
Out.String("*** public message ***"); Out.Ln;
|
|
Out.String("message: '"); Out.String(msg); Out.Char("'"); Out.Ln;
|
|
Out.String("message type: '"); Out.String(msgtype); Out.Char("'"); Out.Ln;
|
|
Out.String("user: '"); Out.String(user); Out.Char("'"); Out.Ln;
|
|
Out.String("ident: '"); Out.String(ident); Out.Char("'"); Out.Ln;
|
|
Out.String("recipient: '"); Out.String(rcpt); Out.Char("'"); Out.Ln;
|
|
Out.String("host: '"); Out.String(host); Out.Char("'"); Out.Ln;
|
|
Out.String("*** that's it ***"); Out.Ln;
|
|
END onPublicMessage;
|
|
|
|
PROCEDURE onPublicMessageWithMention(VAR msg, msgtype, user, ident, rcpt, host: ARRAY OF CHAR);
|
|
BEGIN
|
|
Out.String("*** public message, bot name mentioned ***"); Out.Ln;
|
|
Out.String("message: '"); Out.String(msg); Out.Char("'"); Out.Ln;
|
|
Out.String("message type: '"); Out.String(msgtype); Out.Char("'"); Out.Ln;
|
|
Out.String("user: '"); Out.String(user); Out.Char("'"); Out.Ln;
|
|
Out.String("ident: '"); Out.String(ident); Out.Char("'"); Out.Ln;
|
|
Out.String("recipient: '"); Out.String(rcpt); Out.Char("'"); Out.Ln;
|
|
Out.String("host: '"); Out.String(host); Out.Char("'"); Out.Ln;
|
|
Out.String("*** that's it ***"); Out.Ln;
|
|
END onPublicMessageWithMention;
|
|
|
|
PROCEDURE interrupt(i: LONGINT);
|
|
BEGIN
|
|
(* here we need to flush files to disk before exiting. and probably close the irc connection *)
|
|
IRC.finalize(inst);
|
|
HALT(0);
|
|
END interrupt;
|
|
|
|
BEGIN
|
|
inst.owner := "norayr_tanakian";
|
|
inst.user := "norayr_tanakian";
|
|
inst.nick := "vocbot";
|
|
inst.host := "irc.freenode.net";
|
|
inst.port := "6667";
|
|
inst.callbackPrivate := onPrivateMessage;
|
|
inst.callbackPublic := onPublicMessage;
|
|
inst.callbackPublicMention := onPublicMessageWithMention;
|
|
|
|
|
|
|
|
NEW(channels, 2);
|
|
channels[0].channel := "#oberon-test";
|
|
channels[1].channel := "#pascal-test";
|
|
inst.doLog := TRUE;
|
|
IRC.initChannelList(inst, channels);
|
|
|
|
Platform.SetInterruptHandler(interrupt);
|
|
|
|
IF IRC.Connect(inst) # FALSE THEN
|
|
b := IRC.Auth(inst);
|
|
IRC.Loop(inst);
|
|
END;
|
|
|
|
END test.
|