mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
29 lines
393 B
Modula-2
29 lines
393 B
Modula-2
MODULE test;
|
|
|
|
IMPORT IRC, Out;
|
|
|
|
VAR
|
|
|
|
owner, user, nick, host, port, channel: ARRAY 32 OF CHAR;
|
|
|
|
PROCEDURE testBot;
|
|
VAR b : BOOLEAN;
|
|
BEGIN
|
|
IF IRC.Connect(host, port) # FALSE THEN
|
|
|
|
b := IRC.Auth(user, nick, owner);
|
|
|
|
END;
|
|
END testBot;
|
|
|
|
BEGIN
|
|
owner := "norayr_tanakian";
|
|
user := "norayr";
|
|
nick := "arnet";
|
|
host := "irc.freenode.net";
|
|
port := "6667";
|
|
channel := "#oberon";
|
|
|
|
testBot;
|
|
|
|
END test.
|