aboutsummaryrefslogtreecommitdiff
path: root/examples/bot.p6
diff options
context:
space:
mode:
Diffstat (limited to 'examples/bot.p6')
-rwxr-xr-xexamples/bot.p681
1 files changed, 0 insertions, 81 deletions
diff --git a/examples/bot.p6 b/examples/bot.p6
deleted file mode 100755
index 24ab1e6..0000000
--- a/examples/bot.p6
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/env perl6
-use v6;
-use lib "lib";
-use JSON::Tiny;
-use Matrix::Client;
-use Matrix::Client::Exception;
-
-class Bot {
- has $!name = "!d";
- has $!username is required;
- has Bool $!register = False;
-
- has $!on-event;
-
- has Matrix::Client $!client;
-
- submethod BUILD(:$username!, :$password!, :$home-server!,:$on-event!) {
- $!client = Matrix::Client.new(:home-server($home-server));
- $!username = $username;
- $!on-event = $on-event;
-
- $!client.login($!username, $password);
- }
-
- method shutdown() {
- $!client.save-auth-data;
- }
-
- method listen() {
- say "Listening";
- my $since = "";
-
- loop {
- my $sync = { room => timeline => limit => 1 };
- my $response = $!client.sync(sync-filter => $sync, since => $since);
- $since = $response.next-batch;
-
- for $response.joined-rooms -> $room {
- for $room.timeline
- .events
- .grep(*.type eq 'm.room.message') -> $msg {
- if $msg.content<body>.match($!name) {
- my $bot-msg = $!on-event($msg);
- if so $bot-msg {
- say "Sending message $bot-msg";
- try {
- CATCH { when X::Matrix::Response { .message }}
- my $res = $!client.send($room.room-id, ~$bot-msg);
- }
- }
- }
- }
- }
- sleep(10);
- }
- }
-}
-
-sub MAIN(Str:D $username, Str:D $password, :$home-server = "https://matrix.deprecated.org") {
- my $bot = Bot.new:
- username => $username,
- password => $password,
- home-server => $home-server,
- on-event => -> $ev {
- given $ev.content<body> {
- when /"say hi"/ {
- say "Someone says {$ev.content<body>}";
- "Hello @ {DateTime.now}"
- }
- default { say "Dunno what's telling me"; Str }
- }
- };
-
- signal(SIGINT).tap({
- say "Bye";
- $bot.shutdown;
- exit 0;
- });
-
- $bot.listen;
-}