From 6671b847b432aca57cf29979dbce45a69d932322 Mon Sep 17 00:00:00 2001 From: Matias Linares Date: Tue, 31 Mar 2020 20:38:41 -0300 Subject: Initial commit --- .gitignore | 10 ++ .travis.yml | 12 +++ Changes | 4 + LICENSE | 201 +++++++++++++++++++++++++++++++++++ META6.json | 25 +++++ README.md | 29 +++++ bin/deprecated-bots | 4 + dist.ini | 8 ++ lib/Matrix/Bot/DeprecatedOrg.pm6 | 56 ++++++++++ lib/Matrix/Bot/Plugin/Dominating.pm6 | 96 +++++++++++++++++ t/01-basic.t | 16 +++ 11 files changed, 461 insertions(+) create mode 100644 .gitignore create mode 100644 .travis.yml create mode 100644 Changes create mode 100644 LICENSE create mode 100644 META6.json create mode 100644 README.md create mode 100644 bin/deprecated-bots create mode 100644 dist.ini create mode 100644 lib/Matrix/Bot/DeprecatedOrg.pm6 create mode 100644 lib/Matrix/Bot/Plugin/Dominating.pm6 create mode 100644 t/01-basic.t diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..f83f6f2 --- /dev/null +++ b/.gitignore @@ -0,0 +1,10 @@ +/blib/ +/src/*.o +/src/Makefile +/.panda-work +/resources/*.so +/resources/*.dylib +.precomp/ +/Matrix-Bot-DeprecatedOrg-* +*.toml +*~ \ No newline at end of file diff --git a/.travis.yml b/.travis.yml new file mode 100644 index 0000000..0fdac33 --- /dev/null +++ b/.travis.yml @@ -0,0 +1,12 @@ +os: + - linux + - osx +language: perl6 +perl6: + - latest +install: + - rakudobrew build zef + - zef install --deps-only --/test . +script: + - PERL6LIB=$PWD/lib prove -e perl6 -vr --ext .t --ext .t6 --ext .rakutest t +sudo: false diff --git a/Changes b/Changes new file mode 100644 index 0000000..b32cf14 --- /dev/null +++ b/Changes @@ -0,0 +1,4 @@ +Revision history for Matrix-Bot-DeprecatedOrg + +{{$NEXT}} + - Initial version diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..32efefc --- /dev/null +++ b/LICENSE @@ -0,0 +1,201 @@ + The Artistic License 2.0 + + Copyright (c) 2000-2006, The Perl Foundation. + + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + +Preamble + +This license establishes the terms under which a given free software +Package may be copied, modified, distributed, and/or redistributed. +The intent is that the Copyright Holder maintains some artistic +control over the development of that Package while still keeping the +Package available as open source and free software. + +You are always permitted to make arrangements wholly outside of this +license directly with the Copyright Holder of a given Package. If the +terms of this license do not permit the full use that you propose to +make of the Package, you should contact the Copyright Holder and seek +a different licensing arrangement. + +Definitions + + "Copyright Holder" means the individual(s) or organization(s) + named in the copyright notice for the entire Package. + + "Contributor" means any party that has contributed code or other + material to the Package, in accordance with the Copyright Holder's + procedures. + + "You" and "your" means any person who would like to copy, + distribute, or modify the Package. + + "Package" means the collection of files distributed by the + Copyright Holder, and derivatives of that collection and/or of + those files. A given Package may consist of either the Standard + Version, or a Modified Version. + + "Distribute" means providing a copy of the Package or making it + accessible to anyone else, or in the case of a company or + organization, to others outside of your company or organization. + + "Distributor Fee" means any fee that you charge for Distributing + this Package or providing support for this Package to another + party. It does not mean licensing fees. + + "Standard Version" refers to the Package if it has not been + modified, or has been modified only in ways explicitly requested + by the Copyright Holder. + + "Modified Version" means the Package, if it has been changed, and + such changes were not explicitly requested by the Copyright + Holder. + + "Original License" means this Artistic License as Distributed with + the Standard Version of the Package, in its current version or as + it may be modified by The Perl Foundation in the future. + + "Source" form means the source code, documentation source, and + configuration files for the Package. + + "Compiled" form means the compiled bytecode, object code, binary, + or any other form resulting from mechanical transformation or + translation of the Source form. + + +Permission for Use and Modification Without Distribution + +(1) You are permitted to use the Standard Version and create and use +Modified Versions for any purpose without restriction, provided that +you do not Distribute the Modified Version. + + +Permissions for Redistribution of the Standard Version + +(2) You may Distribute verbatim copies of the Source form of the +Standard Version of this Package in any medium without restriction, +either gratis or for a Distributor Fee, provided that you duplicate +all of the original copyright notices and associated disclaimers. At +your discretion, such verbatim copies may or may not include a +Compiled form of the Package. + +(3) You may apply any bug fixes, portability changes, and other +modifications made available from the Copyright Holder. The resulting +Package will still be considered the Standard Version, and as such +will be subject to the Original License. + + +Distribution of Modified Versions of the Package as Source + +(4) You may Distribute your Modified Version as Source (either gratis +or for a Distributor Fee, and with or without a Compiled form of the +Modified Version) provided that you clearly document how it differs +from the Standard Version, including, but not limited to, documenting +any non-standard features, executables, or modules, and provided that +you do at least ONE of the following: + + (a) make the Modified Version available to the Copyright Holder + of the Standard Version, under the Original License, so that the + Copyright Holder may include your modifications in the Standard + Version. + + (b) ensure that installation of your Modified Version does not + prevent the user installing or running the Standard Version. In + addition, the Modified Version must bear a name that is different + from the name of the Standard Version. + + (c) allow anyone who receives a copy of the Modified Version to + make the Source form of the Modified Version available to others + under + + (i) the Original License or + + (ii) a license that permits the licensee to freely copy, + modify and redistribute the Modified Version using the same + licensing terms that apply to the copy that the licensee + received, and requires that the Source form of the Modified + Version, and of any works derived from it, be made freely + available in that license fees are prohibited but Distributor + Fees are allowed. + + +Distribution of Compiled Forms of the Standard Version +or Modified Versions without the Source + +(5) You may Distribute Compiled forms of the Standard Version without +the Source, provided that you include complete instructions on how to +get the Source of the Standard Version. Such instructions must be +valid at the time of your distribution. If these instructions, at any +time while you are carrying out such distribution, become invalid, you +must provide new instructions on demand or cease further distribution. +If you provide valid instructions or cease distribution within thirty +days after you become aware that the instructions are invalid, then +you do not forfeit any of your rights under this license. + +(6) You may Distribute a Modified Version in Compiled form without +the Source, provided that you comply with Section 4 with respect to +the Source of the Modified Version. + + +Aggregating or Linking the Package + +(7) You may aggregate the Package (either the Standard Version or +Modified Version) with other packages and Distribute the resulting +aggregation provided that you do not charge a licensing fee for the +Package. Distributor Fees are permitted, and licensing fees for other +components in the aggregation are permitted. The terms of this license +apply to the use and Distribution of the Standard or Modified Versions +as included in the aggregation. + +(8) You are permitted to link Modified and Standard Versions with +other works, to embed the Package in a larger work of your own, or to +build stand-alone binary or bytecode versions of applications that +include the Package, and Distribute the result without restriction, +provided the result does not expose a direct interface to the Package. + + +Items That are Not Considered Part of a Modified Version + +(9) Works (including, but not limited to, modules and scripts) that +merely extend or make use of the Package, do not, by themselves, cause +the Package to be a Modified Version. In addition, such works are not +considered parts of the Package itself, and are not subject to the +terms of this license. + + +General Provisions + +(10) Any use, modification, and distribution of the Standard or +Modified Versions is governed by this Artistic License. By using, +modifying or distributing the Package, you accept this license. Do not +use, modify, or distribute the Package, if you do not accept this +license. + +(11) If your Modified Version has been derived from a Modified +Version made by someone other than you, you are nevertheless required +to ensure that your Modified Version complies with the requirements of +this license. + +(12) This license does not grant you the right to use any trademark, +service mark, tradename, or logo of the Copyright Holder. + +(13) This license includes the non-exclusive, worldwide, +free-of-charge patent license to make, have made, use, offer to sell, +sell, import and otherwise transfer the Package with respect to any +patent claims licensable by the Copyright Holder that are necessarily +infringed by the Package. If you institute patent litigation +(including a cross-claim or counterclaim) against any party alleging +that the Package constitutes direct or contributory patent +infringement, then this Artistic License to you shall terminate on the +date that such litigation is filed. + +(14) Disclaimer of Warranty: +THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS +IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED +WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR +NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL +LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL +BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL +DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF +ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/META6.json b/META6.json new file mode 100644 index 0000000..a0b5b43 --- /dev/null +++ b/META6.json @@ -0,0 +1,25 @@ +{ + "auth" : "cpan:MATIASL", + "authors" : [ + "Matias Linares" + ], + "build-depends" : [ ], + "depends" : [ + "Matrix::Bot", + "Config", + "Config::Parser::toml", + "LogP6" + ], + "description" : "blah blah blah", + "license" : "Artistic-2.0", + "name" : "Matrix::Bot::DeprecatedOrg", + "perl" : "6.c", + "provides" : { + "Matrix::Bot::DeprecatedOrg" : "lib/Matrix/Bot/DeprecatedOrg.pm6" + }, + "resources" : [ ], + "source-url" : "", + "tags" : [ ], + "test-depends" : [ ], + "version" : "0.0.1" +} diff --git a/README.md b/README.md new file mode 100644 index 0000000..693b286 --- /dev/null +++ b/README.md @@ -0,0 +1,29 @@ +NAME +==== + +Matrix::Bot::DeprecatedOrg - blah blah blah + +SYNOPSIS +======== + +```perl6 +use Matrix::Bot::DeprecatedOrg; +``` + +DESCRIPTION +=========== + +Matrix::Bot::DeprecatedOrg is ... + +AUTHOR +====== + +Matias Linares + +COPYRIGHT AND LICENSE +===================== + +Copyright 2020 Matias Linares + +This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0. + diff --git a/bin/deprecated-bots b/bin/deprecated-bots new file mode 100644 index 0000000..d6d7843 --- /dev/null +++ b/bin/deprecated-bots @@ -0,0 +1,4 @@ +#!/usr/bin/env raku + +use v6; +use Matrix::Bot::DeprecatedOrg; diff --git a/dist.ini b/dist.ini new file mode 100644 index 0000000..7ba0c29 --- /dev/null +++ b/dist.ini @@ -0,0 +1,8 @@ +name = Matrix-Bot-DeprecatedOrg + +[ReadmeFromPod] +; enable = false +filename = lib/Matrix/Bot/DeprecatedOrg.pm6 + +[PruneFiles] +; match = ^ 'xt/' diff --git a/lib/Matrix/Bot/DeprecatedOrg.pm6 b/lib/Matrix/Bot/DeprecatedOrg.pm6 new file mode 100644 index 0000000..d7daea8 --- /dev/null +++ b/lib/Matrix/Bot/DeprecatedOrg.pm6 @@ -0,0 +1,56 @@ +use v6.c; +unit class Matrix::Bot::DeprecatedOrg:ver<0.0.1>:auth; + +use Config; +use Matrix::Bot; +use Matrix::Bot::Plugin::Dominating; + + +sub MAIN($config-file where *.IO.f) is export { + my $config = Config.new().read($config-file); + + my %matrix-config = $config; + dd %matrix-config; + dd $config; + + my $bot = Matrix::Bot.new( + home-server => %matrix-config, + username => %matrix-config, + password => %matrix-config, + plugins => [ + Matrix::Bot::Plugin::Dominating.new(:config($config)) + ], + ); + + $bot.run; +} + +=begin pod + +=head1 NAME + +Matrix::Bot::DeprecatedOrg - blah blah blah + +=head1 SYNOPSIS + +=begin code :lang + +use Matrix::Bot::DeprecatedOrg; + +=end code + +=head1 DESCRIPTION + +Matrix::Bot::DeprecatedOrg is ... + +=head1 AUTHOR + +Matias Linares + +=head1 COPYRIGHT AND LICENSE + +Copyright 2020 Matias Linares + +This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0. + +=end pod diff --git a/lib/Matrix/Bot/Plugin/Dominating.pm6 b/lib/Matrix/Bot/Plugin/Dominating.pm6 new file mode 100644 index 0000000..2d1cb85 --- /dev/null +++ b/lib/Matrix/Bot/Plugin/Dominating.pm6 @@ -0,0 +1,96 @@ +use Config; +use HTTP::UserAgent; +use JSON::Fast; +use Matrix::Bot::Plugin; +use Matrix::Bot::Event; + +unit class Matrix::Bot::Plugin::Dominating is Matrix::Bot::Plugin; + + +has HTTP::UserAgent $!ua; +has Int $!last-updated; +has $!current-player = "d365noscope"; +has $.game-id is rw; +has %.config; + +has %!matrix-players =:baco, :matiaslina, :YareYare, :nstefani, :fedediaz, :d365noscope; + +submethod BUILD(:%!config, :$!game-id) { + $!ua = HTTP::UserAgent.new(); + $!last-updated = DateTime.now.posix; +} + +method current-matrix-player { + %!matrix-players{$!current-player} // "$!current-player"; +} + +method generate-events(Str $message) { + %.config.map( + -> $room-id { Matrix::Bot::Event.new(:$room-id, :$message) } + ) +} + +method current-game { + $.game-id // %.config +} + +multi method handle-room-text($e where *.message.starts-with("!dominating") --> Str) { + if $e.message ~~ m/"!dominating change-game " $ = [ \d+ ]/ { + say "Changing game id from {$.current-game} to {$}"; + my $pre-game-id = $!game-id; + $!game-id = $; + return "Changing game id from {$pre-game-id} to {$}"; + } +} + +multi method event-handler(--> Supply) { + my $handler = supply { + my $last-updated = now.Int; + loop { + CATCH { + when X::AdHoc { + .message.note; + sleep 60; + next; + } + default { .^name.say; .resume } + } + my %form = last_update => ~$last-updated; + my $response = $!ua.post( + "https://dominating12.com/game/{$.current-game}/play/update-state", + %form + ); + + if $response.is-success { + my $data = from-json($response.content); + + $last-updated = $data.Int; + + my %players = $data.values.map({ . => . }).List; + my $turn = %players{$data.head.}; + + if $turn.defined && $turn eq "" { + say "[{DateTime.now()}] {$.current-matrix-player} won!"; + emit($_) for self.generate-events("{$.current-matrix-player} gano!"); + exit 0; + } + + if $turn.defined && $turn ne $!current-player { + say "[{DateTime.now()}] Changing turn from $!current-player to $turn"; + $!current-player = $turn; + if $!current-player ne "" { + emit($_) for self.generate-events("Le toca a $.current-matrix-player !"); + } + } else { + say "[{DateTime.now()}] Still turn of $!current-player"; + } + + sleep 60 * 5; + } else { + note "Error response: {$response.status-line}"; + } + } + } + + return $handler; +} diff --git a/t/01-basic.t b/t/01-basic.t new file mode 100644 index 0000000..d38a8c3 --- /dev/null +++ b/t/01-basic.t @@ -0,0 +1,16 @@ +use v6.c; + +use Test; +use Matrix::Bot::Plugin::Dominating; + +plan 2; + + +ok Matrix::Bot::Plugin::Dominating.new(game-id => 1, config => %()); + +my \Dominating = Matrix::Bot::Plugin::Dominating; + +is Dominating.new(:config(a => 1)).config, 1; + + +done-testing; -- cgit v1.2.3-70-g09d2