aboutsummaryrefslogtreecommitdiff
path: root/examples/send-message.p6
diff options
context:
space:
mode:
Diffstat (limited to 'examples/send-message.p6')
-rw-r--r--examples/send-message.p624
1 files changed, 0 insertions, 24 deletions
diff --git a/examples/send-message.p6 b/examples/send-message.p6
deleted file mode 100644
index 4824be5..0000000
--- a/examples/send-message.p6
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env perl6
-use v6;
-use lib 'lib';
-use Matrix::Client;
-
-sub MAIN(:$room-id?, :$room-alias?, *@args) {
- unless $room-id.so || $room-alias.so {
- fail 'Missing room-id or room-alias';
- }
- my Matrix::Client $client .= new:
- :home-server(%*ENV<MATRIX_HOMESERVER>),
- :access-token($*ENV<MATRIX_ACCESS_TOKEN>);
-
- my $id;
- if $room-id.so {
- $id = $room-id;
- } else {
- say "Searching for $room-alias";
- $id = $client.get-room-id($room-alias);
- }
-
- my $event = $client.send($id, @args.join(' '));
- say $event;
-}