aboutsummaryrefslogtreecommitdiff
path: root/examples/bot.raku
diff options
context:
space:
mode:
authorMatias Linares <matiaslina@gmail.com>2020-03-24 19:37:11 -0300
committerMatias Linares <matiaslina@gmail.com>2020-03-24 19:37:11 -0300
commite50b8fa9e02b19ece80ebeb576051e451d3a7812 (patch)
tree037db346e5deacfe21fe0bbae1b496331e3c117e /examples/bot.raku
parente39257df2688137d57d88d502f7198425d5dfcd5 (diff)
downloadperl6-matrix-client-e50b8fa9e02b19ece80ebeb576051e451d3a7812.tar.gz
Rename some things to from perl6 to raku
Diffstat (limited to 'examples/bot.raku')
-rwxr-xr-xexamples/bot.raku81
1 files changed, 81 insertions, 0 deletions
diff --git a/examples/bot.raku b/examples/bot.raku
new file mode 100755
index 0000000..8a9d206
--- /dev/null
+++ b/examples/bot.raku
@@ -0,0 +1,81 @@
+#!/usr/bin/env perl6
+use v6;
+use lib "lib";
+use JSON::Fast;
+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;
+}