aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatias Linares <matiaslina@gmail.com>2020-03-31 20:38:41 -0300
committerMatias Linares <matiaslina@gmail.com>2020-03-31 20:38:41 -0300
commit6671b847b432aca57cf29979dbce45a69d932322 (patch)
treee7107de45b35e7a4dc707d4e76e8f24213486394
downloaddeprecated-bots-master.tar.gz
Initial commitHEADmaster
-rw-r--r--.gitignore10
-rw-r--r--.travis.yml12
-rw-r--r--Changes4
-rw-r--r--LICENSE201
-rw-r--r--META6.json25
-rw-r--r--README.md29
-rw-r--r--bin/deprecated-bots4
-rw-r--r--dist.ini8
-rw-r--r--lib/Matrix/Bot/DeprecatedOrg.pm656
-rw-r--r--lib/Matrix/Bot/Plugin/Dominating.pm696
-rw-r--r--t/01-basic.t16
11 files changed, 461 insertions, 0 deletions
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 <matiaslina@gmail.com>
+
+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<cpan:MATIASL>;
+
+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<matrix>;
+ dd %matrix-config;
+ dd $config<dominating>;
+
+ my $bot = Matrix::Bot.new(
+ home-server => %matrix-config<server>,
+ username => %matrix-config<username>,
+ password => %matrix-config<password>,
+ plugins => [
+ Matrix::Bot::Plugin::Dominating.new(:config($config<dominating>))
+ ],
+ );
+
+ $bot.run;
+}
+
+=begin pod
+
+=head1 NAME
+
+Matrix::Bot::DeprecatedOrg - blah blah blah
+
+=head1 SYNOPSIS
+
+=begin code :lang<perl6>
+
+use Matrix::Bot::DeprecatedOrg;
+
+=end code
+
+=head1 DESCRIPTION
+
+Matrix::Bot::DeprecatedOrg is ...
+
+=head1 AUTHOR
+
+Matias Linares <matiaslina@gmail.com>
+
+=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<Baco>, :matiaslina<Matias>, :YareYare<huaira>, :nstefani<nico_st>, :fedediaz<fede_diaz>, :d365noscope<Manu>;
+
+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<rooms>.map(
+ -> $room-id { Matrix::Bot::Event.new(:$room-id, :$message) }
+ )
+}
+
+method current-game {
+ $.game-id // %.config<starting_game>
+}
+
+multi method handle-room-text($e where *.message.starts-with("!dominating") --> Str) {
+ if $e.message ~~ m/"!dominating change-game " $<game-id> = [ \d+ ]/ {
+ say "Changing game id from {$.current-game} to {$<game-id>}";
+ my $pre-game-id = $!game-id;
+ $!game-id = $<game-id>;
+ return "Changing game id from {$pre-game-id} to {$<game-id>}";
+ }
+}
+
+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<now>.Int;
+
+ my %players = $data<players>.values.map({ .<user_id> => .<username> }).List;
+ my $turn = %players{$data<turns>.head.<user_id>};
+
+ 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<a>, 1;
+
+
+done-testing;