diff options
Diffstat (limited to 'examples/send-message.p6')
-rw-r--r-- | examples/send-message.p6 | 24 |
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; -} |