diff options
author | Matias Linares <matiaslina@openmailbox.org> | 2017-04-12 19:22:26 -0300 |
---|---|---|
committer | Matias Linares <matiaslina@openmailbox.org> | 2017-04-12 19:22:26 -0300 |
commit | 4658cf8b18ed5a2f1ef86bf156710f12252b296e (patch) | |
tree | d5b5465c7162b1a3460ddbb6e72a63290d16ef43 /examples/bot.p6 | |
parent | 846f9af582cd2d68331a334e2933d2b3c82ad099 (diff) | |
download | perl6-matrix-client-4658cf8b18ed5a2f1ef86bf156710f12252b296e.tar.gz |
Update README/examples
Diffstat (limited to 'examples/bot.p6')
-rwxr-xr-x | examples/bot.p6 | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/examples/bot.p6 b/examples/bot.p6 index cfc1247..aa55fd8 100755 --- a/examples/bot.p6 +++ b/examples/bot.p6 @@ -5,7 +5,7 @@ use JSON::Tiny; use Matrix::Client; class Bot { - has $!name = "deprecated"; + has $!name = "!d"; has $!username is required; has Bool $!register = False; has @!room-ids; @@ -28,7 +28,7 @@ class Bot { } method shutdown() { - $!client.finish; + $!client.save-auth-data; } method listen() { @@ -77,11 +77,18 @@ sub MAIN(Str:D $username, Str:D $password, :$home-server = "https://matrix.depre say "Someone is saying hi!"; "Hello @ {DateTime.now}" } + when /poop/ { + parse-names "PILE OF POO" + } + when /wink/ { + parse-names "WINKING FACE" + } default { say "Dunno what's telling me"; Str } } }; signal(SIGINT).tap({ + say "Bye"; $bot.shutdown; exit 0; }); @@ -91,6 +98,7 @@ sub MAIN(Str:D $username, Str:D $password, :$home-server = "https://matrix.depre if !$res.is-success { warn $res.status-line; warn $res.content; + die "Error joinig to rooms"; } } |