Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:45:40 -04:00
Code Issues Releases Wiki Activity

Merge branch 'master' of github.com:perlbot/perlbuut

Browse source
This commit is contained in:
Ryan Voots 2020-10-31 01:52:45 -04:00
commit 034659ee6a
21 changed files with 580 additions and 510 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
.github/workflows/ci.yml vendored Normal file
View file

@ -0,0 +1,41 @@
name: CI
on:
push:
branches:
- master
pull_request:
branches:
- master
jobs:
perl-job:
runs-on: [self-hosted, "${{ matrix.architecture }}" ]
container:
image: perl:${{ matrix.perl-version }}
strategy:
fail-fast: false
matrix:
architecture:
- X64
- ARM
perl-version:
- '5.32'
- 'latest'
name: Perl ${{ matrix.perl-version }}:${{ matrix.architecture }}
steps:
- uses: actions/checkout@v2
- name: Install libraries and cpm
run: |
apt update && apt -y install libprotobuf-dev libprotoc-dev
cpanm local::lib
eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"
cpanm --mirror http://cpanproxy/ --mirror-only --notest App::cpm
- name: Install depedencies
run: |
eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"
cpm install -g -v --no-test --resolver 02packages,http://cpanproxy/ --configure-timeout 180 --build-timeout 600 --cpanfile=./cpanfile
- name: Run tests
run: |
eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"
prove

8
README.pod
View file

@ -2,6 +2,12 @@
=head1 ABOUT =head1 ABOUT
=begin html
<a href="https://github.com/perlbot/perlbuut/actions?query=workflow%3ACI"><img src="https://github.com/perlbot/perlbuut/workflows/CI/badge.svg"></a>
=end html
This is the source code for perlbot, the resident infobot on Freenode’s This is the source code for perlbot, the resident infobot on Freenode’s
#perl channel. See: #perl channel. See:
@ -24,6 +30,6 @@ This is a semi-complicated situation as while the code is obstensibly open sourc
buu has agreed to put his code under the GPL version 3 ( L<https://en.wikipedia.org/wiki/GNU_General_Public_License#Version_3> ) or at your option any later version. buu has agreed to put his code under the GPL version 3 ( L<https://en.wikipedia.org/wiki/GNU_General_Public_License#Version_3> ) or at your option any later version.
Shlomi Fish licences his changes under any and all of the Expat license, the Shlomi Fish licenses his changes under any and all of the Expat license, the
CC0, the same terms as perl 5, and the Artistic 2.0 license. CC0, the same terms as perl 5, and the Artistic 2.0 license.
=cut =cut

45
bin/run-tests Executable file
View file

@ -0,0 +1,45 @@
#! /usr/bin/env perl
#
# Author Shlomi Fish <shlomif@cpan.org>
# Version 0.0.1
#
use strict;
use warnings;
use autodie;
# We'd rather avoid exec() here because from our experience, it sometimes
# does not work too reliably on MSWin32.
exit( ( system( "prove", glob("t/*.t") ) == 0 ) ? 0 : 1 );
__END__
=head1 COPYRIGHT & LICENSE
Copyright 2019 by Shlomi Fish
This program is distributed under the MIT / Expat License:
L<http://www.opensource.org/licenses/mit-license.php>
Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
files (the "Software"), to deal in the Software without
restriction, including without limitation the rights to use,
copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following
conditions:
The above copyright notice and this permission notice shall be
included in all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
OTHER DEALINGS IN THE SOFTWARE.
=cut

247
cpanfile
View file

@ -1,165 +1,82 @@
requires 'Sys::Linux::Namespace' => 'v0.13.0'; requires "App::EvalServerAdvanced::Protocol";
requires 'POE'; requires "autodie";
requires 'Parse::RecDescent'; requires "CGI";
requires 'Config::General'; requires "Config::General";
requires 'Cache::FastMmap'; requires "Crypt::Mode::CBC";
requires 'POE::Component::IRC::Common'; requires "CryptX";
requires 'POE::Component::IRC'; requires "Data::Dumper";
requires 'Text::Handlebars'; requires "DateTime::Event::Cron";
requires "DateTime::Event::Holiday::US";
requires 'Geo::IP'; requires "DBD::SQLite";
requires 'XML::RSS::Parser'; requires "DBI";
requires 'WWW::Shorten'; requires "Encode";
requires 'WWW::Mechanize'; requires "Encode";
requires 'URI::Encode'; requires "Encode";
requires 'Text::Glob'; requires "Encode";
requires "experimental";
requires 'DBD::SQLite'; requires "Exporter";
requires 'DBI'; requires "feature";
requires 'Net::DNS'; requires "FindBin";
requires 'HTML::TreeBuilder'; requires "GeoIP2::Database::Reader";
requires 'Net::INET6Glue::INET_is_INET6'; requires "HTML::Entities";
requires "HTML::TreeBuilder";
requires 'Net::Dict'; requires "HTML::TreeBuilder::XPath";
requires 'HTML::TreeBuilder::XPath'; requires "HTTP::Status";
requires "IO::Socket::INET";
requires 'Data::Dumper'; requires "IRC::FromANSI::Tiny";
requires 'Scalar::Util'; #Required by Data::Dumper requires "IRC::Utils";
requires 'BSD::Resource'; requires "JSON";
requires 'File::Glob'; requires "JSON::MaybeXS";
requires 'POSIX'; requires "JSON::MaybeXS";
requires 'POSIX::strptime'; requires "JSON::MaybeXS";
requires "JSON::MaybeXS";
requires 'List::Util'; requires "lib";
requires 'List::MoreUtils'; requires "lib::relative";
requires 'List::UtilsBy'; requires "List::Util";
requires 'Data::Munge'; requires "List::Util";
requires 'Scalar::MoreUtils'; requires "LWP::Simple";
requires 'Regexp::Common'; requires "LWP::UserAgent";
requires 'Encode'; requires "Memoize";
requires 'Digest::MD5'; requires "Memoize";
requires 'Digest::SHA'; requires "MIME::Base64";
requires 'DateTime'; requires "Module::ScanDeps";
requires 'DateTimeX::Easy'; requires "Net::CIDR";
requires 'Date::Parse'; requires "Net::Dict";
requires "Net::DNS";
requires 'Moose'; requires "Net::INET6Glue::INET_is_INET6";
requires 'MooseX::Declare'; requires "Parse::RecDescent";
requires "Path::Tiny";
requires 'Function::Parameters'; requires "POE";
requires "POE::Component::IRC";
requires 'Rand::MersenneTwister'; requires "POE::Component::IRC::Common";
# requires 'arybase'; # removed in 5.29 requires "POE::Component::IRC::Common";
requires 'Errno'; requires "POE::Component::IRC::Plugin::AutoJoin";
requires 'JSON'; requires "POE::Component::IRC::Plugin::Connector";
requires 'JSON::PP'; requires "POE::Component::IRC::Plugin::NickReclaim";
requires 'JSON::XS'; requires "POE::Component::IRC::State";
requires 'JSON::MaybeXS'; requires "POE::Component::Server::SimpleHTTP";
requires 'Cpanel::JSON::XS'; requires "POE::Component::Server::TCP";
requires "POE::Filter::Reference";
requires 'LWP::Protocol::https'; requires "POE::Session";
requires 'Mojo::DOM'; requires "POE::Wheel::ReadWrite";
requires 'Mojo::DOM::CSS'; requires "POE::Wheel::Run";
requires 'Mojo::Collection'; requires "POE::Wheel::SocketFactory";
requires 'YAPE::Regex::Explain'; requires "PPI";
requires 'bigint'; requires "Regexp::Assemble";
requires 'Math::BigInt'; requires "Regexp::Optimizer";
requires 'Math::BigFloat'; requires "Socket";
requires 'Math::BigRat'; requires "strict";
requires 'indirect'; requires "Term::ANSIColor";
requires 'Moo'; requires "Text::Glob";
requires 'autovivification'; requires "Text::Metaphone";
requires "Twitter::API";
requires 'Linux::Seccomp'; requires "Unicode::UCD";
requires 'Cwd'; requires "URI::Encode";
# requires 'Algorithm::Permute'; requires "URI::Escape";
requires 'File::Slurper'; requires "utf8";
requires 'Path::Tiny'; requires "warnings";
requires 'Time::Moment'; requires "WWW::Mechanize";
requires 'Switch::Plain'; requires "WWW::Shorten";
requires 'Quote::Code'; requires "WWW::Shorten::TinyURL";
# requires 'JSON::Tiny'; # broken in the canary requires "XML::RSS::Parser";
requires "Test::Differences";
requires 'List::SomeUtils';
requires 'IO::Async';
requires 'Future';
requires 'Class::Tiny';
requires 'Capture::Tiny';
requires 'Return::MultiLevel';
requires 'Try::Tiny::ByClass';
requires 'IPC::Run';
requires 'Text::Metaphone';
requires 'DBD::SQLite::BundledExtensions';
requires 'Text::Levenshtein';
requires 'Text::Metaphone';
requires 'Math::Round';
requires 'Twitter::API';
requires 'Types::Standard';
requires 'Perl::Tidy';
requires 'File::Temp';
requires 'Permute::Named::Iter';
requires 'Marpa::R2';
requires 'Syntax::Keyword::Try';
requires 'File::Open';
requires 'App::EvalServerAdvanced';
requires 'Dir::ls';
requires 'Object::Tap';
requires 'XML::LibXML';
# requires 'Sereal'; # comment out temporarily
requires 'Email::Sender::Transport::Test';
requires 'Task::Kensho::Async';
requires 'Task::Kensho::Config';
#requires 'Task::Kensho::Date';
#requires 'Task::Kensho::DBDev';
requires 'Task::Kensho::Email';
requires 'Task::Kensho::Logging';
requires 'Task::Kensho::ModuleDev';
requires 'Task::Kensho::OOP';
#requires 'Task::Kensho::Testing';
#requires 'Task::Kensho::XML';
requires 'Text::Unidecode';
requires 'experimental';
requires 'Math::Calc::Parser';
requires 'ReadonlyX';
requires 'Const::Fast';
requires 'DateTime::Event::Holiday::US';
requires 'App::EvalServerAdvanced::ConstantCalc';
requires 'Crypt::OpenSSL::X509';
requires 'Math::Random::Secure'; # undeclared dep of Data::Random::Flexible
requires 'Data::Random::Flexible';
requires 'Acme::AsciiEmoji';
requires 'PadWalker';
requires 'Encode::Simple';
requires 'PPR';
requires 'Keyword::Simple';
requires 'Unicode::UTF8';
requires 'List::Gather';
requires 'Lingua::EN::Inflexion';
requires 'local::lib';
requires 'Array::Utils';
requires 'DBD::SQLite';
requires 'Mojo::SQLite';
requires 'FFI::Platypus';
requires 'Perl6::Take';
requires 'List::AllUtils';
requires 'IRC::FromANSI::Tiny';
requires 'Unicode::GCString';
requires 'Unicode::Util';
requires 'Unicode::Collate';
requires 'more';
requires 'Data::Dumper::Compact';
requires 'Carp::Always';
requires 'V';
requires 'Path::Tiny';
requires 'CryptX';
requires 'MIME::Base64';
requires 'DateTime::Event::Cron';
requires 'Regexp::Assemble';
requires 'Regexp::Optimizer';

7
cpanfile2
View file

@ -1,7 +0,0 @@
Usage:
% scan-prereqs-cpanfile
--diff=META.json # Generate diff from META.json
--diff=cpanfile # Generate diff from cpanfile
--ignore=extlib/

164
cpanfile_diffed
View file

@ -1,164 +0,0 @@
--- cpanfile_scanned 2017-06-21 17:40:10.000000000 -0400
+++ cpanfile_sorted 2017-06-21 17:41:53.000000000 -0400
@@ -1,80 +1,91 @@
requires 'autodie';
requires 'Cache::FastMmap';
requires 'Cache::File';
requires 'Cache::Mmap';
requires 'Config::General';
requires 'Cpanel::JSON::XS';
requires 'Data::Dumper';
requires 'DBD::SQLite';
requires 'DBI';
requires 'Encode';
requires 'HTTP::Status';
requires 'IO::String';
requires 'JSON::MaybeXS';
requires 'perl', '5.24';
requires 'POE';
requires 'POE::Component::IRC';
requires 'POE::Component::IRC::Common';
requires 'POE::Component::IRC::Plugin::AutoJoin';
requires 'POE::Component::IRC::Plugin::Connector';
requires 'POE::Component::IRC::Plugin::NickReclaim';
requires 'POE::Component::IRC::State';
requires 'POE::Component::Server::SimpleHTTP';
requires 'POE::Component::Server::TCP';
requires 'POE::Filter::Line';
requires 'POE::Filter::Reference';
requires 'POE::Filter::Stream';
requires 'POE::Session';
requires 'POE::Wheel::ReadWrite';
requires 'POE::Wheel::Run';
requires 'POE::Wheel::SocketFactory';
requires 'Scalar::Util';
requires 'Socket';
requires 'Sys::Linux::Mount';
requires 'Sys::Linux::Namespace';
requires 'Template';
requires 'Term::ANSIColor';
requires 'Text::ParseWords';
requires 'Tie::Hash::NamedCapture';
requires 'Data::Dumper';
requires 'BSD::Resource';
requires 'Cache::FastMmap';
requires 'Parse::RecDescent';
requires 'Text::Glob';
-requires 'Memoize';
feature 'perlbot_plugins' => sub {
requires 'App::EvalServerAdvanced::Protocol';
requires 'Text::Metaphone';
requires 'Geo::IP';
requires 'WWW::Mechanize';
requires 'WWW::Shorten';
-requires 'WWW::Shorten::TinyURL';
requires 'DBD::SQLite::BundledExtensions';
};
feature 'eval_needed' => {
-requires 'Linux::Clone';
requires 'Moo';
requires 'Linux::Seccomp';
+requires 'Mojo::Collection';
+requires 'Mojo::DOM';
+requires 'Mojo::DOM::CSS';
requires 'Moo';
+requires 'Marpa::R2';
requires 'JSON';
+requires 'JSON::PP';
+requires 'JSON::Tiny';
+requires 'JSON::XS';
+requires 'arybase';
+requires 'autovivification';
+requires 'bigint';
+requires 'Capture::Tiny';
+requires 'Class::Tiny';
requires 'BSD::Resource';
+requires 'Syntax::Keyword::Try';
+requires 'Capture::Tiny';
+requires 'Class::Tiny';
+requires 'Cpanel::JSON::XS';
+requires 'Cwd';
+requires 'Data::Munge';
+requires 'Date::Parse';
+requires 'DateTime';
+requires 'DateTimeX::Easy';
+requires 'Digest::MD5';
+requires 'Digest::SHA';
+requires 'Errno';
+requires 'File::Glob';
+requires 'File::Open';
requires 'File::Slurper';
requires 'File::Temp';
}
feature 'eval_optional' => {
}
--- cpanfile_scanned 2017-06-21 18:24:13.000000000 -0400
+++ cpanfile_sorted 2017-06-21 17:41:53.000000000 -0400
@@ -1,50 +1,91 @@
requires 'Encode';
+requires 'Function::Parameters';
+requires 'Future';
+requires 'Geo::IP';
+requires 'HTML::TreeBuilder';
+requires 'HTML::TreeBuilder::XPath';
+requires 'indirect';
+requires 'IO::Async';
+requires 'IPC::Run';
+requires 'JSON';
requires 'JSON::MaybeXS';
+requires 'JSON::PP';
+requires 'JSON::Tiny';
+requires 'JSON::XS';
-requires 'Linux::Clone';
requires 'Linux::Seccomp';
+requires 'List::MoreUtils';
+requires 'List::SomeUtils';
requires 'List::Util';
+requires 'List::UtilsBy';
+requires 'LWP::Protocol::https';
+requires 'Marpa::R2';
+requires 'Math::BigFloat';
+requires 'Math::BigInt';
+requires 'Math::BigRat';
+requires 'Math::Round';
+requires 'Mojo::Collection';
+requires 'Mojo::DOM';
+requires 'Mojo::DOM::CSS';
+requires 'Moose';
+requires 'MooseX::Declare';
+requires 'Net::Dict';
+requires 'Net::DNS';
+requires 'Net::INET6Glue::INET_is_INET6';
+requires 'Path::Tiny';
requires 'Perl::Tidy';
requires 'Permute::Named::Iter';
+requires 'POE';
+requires 'POE::Component::IRC';
+requires 'POE::Component::IRC::Common';
+requires 'POSIX';
+requires 'Quote::Code';
+requires 'Rand::MersenneTwister';
+requires 'Regexp::Common';
+requires 'Return::MultiLevel';
+requires 'Scalar::MoreUtils';
+requires 'Scalar::Util'; #Required by Data::Dumper
+requires 'Switch::Plain';
+requires 'Syntax::Keyword::Try';
+requires 'Sys::Linux::Namespace'.013;
+requires 'Text::Levenshtein';
+requires 'Text::Metaphone';
+requires 'Time::Moment';
+requires 'Try::Tiny::ByClass';
+requires 'Types::Standard';
+requires 'URI::Encode';
+requires 'WWW::Mechanize';
+requires 'WWW::Shorten';
+requires 'XML::RSS::Parser';
+requires 'YAPE::Regex::Explain';

50
cpanfile_scanned
View file

@ -1,50 +0,0 @@
requires 'BSD::Resource';
requires 'Cache::FastMmap';
requires 'Cache::File';
requires 'Cache::Mmap';
requires 'Config::General';
requires 'DBD::SQLite';
requires 'DBI';
requires 'Encode';
requires 'File::Slurper';
requires 'File::Temp';
requires 'HTTP::Status';
requires 'IO::String';
requires 'JSON::MaybeXS';
requires 'Linux::Clone';
requires 'Linux::Seccomp';
requires 'List::Util';
requires 'Memoize';
requires 'Moo';
requires 'POE';
requires 'POE::Component::IRC';
requires 'POE::Component::IRC::Common';
requires 'POE::Component::IRC::Plugin::AutoJoin';
requires 'POE::Component::IRC::Plugin::Connector';
requires 'POE::Component::IRC::Plugin::NickReclaim';
requires 'POE::Component::IRC::State';
requires 'POE::Component::Server::SimpleHTTP';
requires 'POE::Component::Server::TCP';
requires 'POE::Filter::Line';
requires 'POE::Filter::Reference';
requires 'POE::Filter::Stream';
requires 'POE::Session';
requires 'POE::Wheel::ReadWrite';
requires 'POE::Wheel::Run';
requires 'POE::Wheel::SocketFactory';
requires 'Parse::RecDescent';
requires 'Perl::Tidy';
requires 'Permute::Named::Iter';
requires 'Scalar::Util';
requires 'Socket';
requires 'Sys::Linux::Mount';
requires 'Sys::Linux::Namespace';
requires 'Template';
requires 'Term::ANSIColor';
requires 'Text::Glob';
requires 'Text::Handlebars';
requires 'Text::Metaphone';
requires 'Text::ParseWords';
requires 'Tie::Hash::NamedCapture';
requires 'autodie';
requires 'perl', '5.24';

23
cpanfiletest.pl
View file

@ -1,23 +0,0 @@
use strict;
use warnings;
use Module::CPANfile;
use Data::Dumper;
my $file = Module::CPANfile->load("/home/ryan/bots/perlbuut/cpanfile");
my $prereqs = $file->prereqs;
my @phases = $prereqs->phases;
my @prereqs;
for my $phase (@phases) {
# TODO try/catch and check other types
for my $type (qw/requires recommends/) {
push @prereqs, $prereqs->requirements_for($phase, $type)->required_modules;
}
}
# TODO uniq
print Dumper(\@prereqs);

230
cpanfile_sorted → evalserver_cpanfile
View file

@ -1,91 +1,165 @@
requires 'App::EvalServerAdvanced'; requires 'Sys::Linux::Namespace' => 'v0.13.0';
requires 'arybase'; requires 'POE';
requires 'autovivification'; requires 'Parse::RecDescent';
requires 'bigint';
requires 'BSD::Resource';
requires 'Cache::FastMmap';
requires 'Capture::Tiny';
requires 'Class::Tiny';
requires 'Config::General'; requires 'Config::General';
requires 'Cpanel::JSON::XS'; requires 'Cache::FastMmap';
requires 'Cwd'; requires 'POE::Component::IRC::Common';
requires 'Data::Dumper'; requires 'POE::Component::IRC';
requires 'Data::Munge'; requires 'Text::Handlebars';
requires 'Date::Parse';
requires 'DateTime'; requires 'Geo::IP';
requires 'DateTimeX::Easy'; requires 'XML::RSS::Parser';
requires 'WWW::Shorten';
requires 'WWW::Mechanize';
requires 'URI::Encode';
requires 'Text::Glob';
requires 'DBD::SQLite'; requires 'DBD::SQLite';
requires 'DBD::SQLite::BundledExtensions';
requires 'DBI'; requires 'DBI';
requires 'Net::DNS';
requires 'HTML::TreeBuilder';
requires 'Net::INET6Glue::INET_is_INET6';
requires 'Net::Dict';
requires 'HTML::TreeBuilder::XPath';
requires 'Data::Dumper';
requires 'Scalar::Util'; #Required by Data::Dumper
requires 'BSD::Resource';
requires 'File::Glob';
requires 'POSIX';
requires 'POSIX::strptime';
requires 'List::Util';
requires 'List::MoreUtils';
requires 'List::UtilsBy';
requires 'Data::Munge';
requires 'Scalar::MoreUtils';
requires 'Regexp::Common';
requires 'Encode';
requires 'Digest::MD5'; requires 'Digest::MD5';
requires 'Digest::SHA'; requires 'Digest::SHA';
requires 'Encode'; requires 'DateTime';
requires 'Errno'; requires 'DateTimeX::Easy';
requires 'File::Glob'; requires 'Date::Parse';
requires 'File::Open';
requires 'File::Slurper';
requires 'File::Temp';
requires 'Function::Parameters';
requires 'Future';
requires 'Geo::IP';
requires 'HTML::TreeBuilder';
requires 'HTML::TreeBuilder::XPath';
requires 'indirect';
requires 'IO::Async';
requires 'IPC::Run';
requires 'JSON';
requires 'JSON::MaybeXS';
requires 'JSON::PP';
requires 'JSON::Tiny';
requires 'JSON::XS';
requires 'Linux::Seccomp';
requires 'List::MoreUtils';
requires 'List::SomeUtils';
requires 'List::Util';
requires 'List::UtilsBy';
requires 'LWP::Protocol::https';
requires 'Marpa::R2';
requires 'Math::BigFloat';
requires 'Math::BigInt';
requires 'Math::BigRat';
requires 'Math::Round';
requires 'Mojo::Collection';
requires 'Mojo::DOM';
requires 'Mojo::DOM::CSS';
requires 'Moo';
requires 'Moose'; requires 'Moose';
requires 'MooseX::Declare'; requires 'MooseX::Declare';
requires 'Net::Dict';
requires 'Net::DNS'; requires 'Function::Parameters';
requires 'Net::INET6Glue::INET_is_INET6';
requires 'Parse::RecDescent';
requires 'Path::Tiny';
requires 'Perl::Tidy';
requires 'Permute::Named::Iter';
requires 'POE';
requires 'POE::Component::IRC';
requires 'POE::Component::IRC::Common';
requires 'POSIX';
requires 'Quote::Code';
requires 'Rand::MersenneTwister'; requires 'Rand::MersenneTwister';
requires 'Regexp::Common'; # requires 'arybase'; # removed in 5.29
requires 'Return::MultiLevel'; requires 'Errno';
requires 'Scalar::MoreUtils'; requires 'JSON';
requires 'Scalar::Util'; #Required by Data::Dumper requires 'JSON::PP';
requires 'JSON::XS';
requires 'JSON::MaybeXS';
requires 'Cpanel::JSON::XS';
requires 'LWP::Protocol::https';
requires 'Mojo::DOM';
requires 'Mojo::DOM::CSS';
requires 'Mojo::Collection';
requires 'YAPE::Regex::Explain';
requires 'bigint';
requires 'Math::BigInt';
requires 'Math::BigFloat';
requires 'Math::BigRat';
requires 'indirect';
requires 'Moo';
requires 'autovivification';
requires 'Linux::Seccomp';
requires 'Cwd';
# requires 'Algorithm::Permute';
requires 'File::Slurper';
requires 'Path::Tiny';
requires 'Time::Moment';
requires 'Switch::Plain'; requires 'Switch::Plain';
requires 'Syntax::Keyword::Try'; requires 'Quote::Code';
requires 'Sys::Linux::Namespace'.013; # requires 'JSON::Tiny'; # broken in the canary
requires 'Text::Glob';
requires 'Text::Handlebars'; requires 'List::SomeUtils';
requires 'IO::Async';
requires 'Future';
requires 'Class::Tiny';
requires 'Capture::Tiny';
requires 'Return::MultiLevel';
requires 'Try::Tiny::ByClass';
requires 'IPC::Run';
requires 'Text::Metaphone';
requires 'DBD::SQLite::BundledExtensions';
requires 'Text::Levenshtein'; requires 'Text::Levenshtein';
requires 'Text::Metaphone'; requires 'Text::Metaphone';
requires 'Text::Metaphone'; requires 'Math::Round';
requires 'Time::Moment';
requires 'Try::Tiny::ByClass';
requires 'Twitter::API'; requires 'Twitter::API';
requires 'Types::Standard'; requires 'Types::Standard';
requires 'URI::Encode'; requires 'Perl::Tidy';
requires 'WWW::Mechanize'; requires 'File::Temp';
requires 'WWW::Shorten'; requires 'Permute::Named::Iter';
requires 'XML::RSS::Parser'; requires 'Marpa::R2';
requires 'YAPE::Regex::Explain'; requires 'Syntax::Keyword::Try';
requires 'File::Open';
requires 'App::EvalServerAdvanced';
requires 'Dir::ls';
requires 'Object::Tap';
requires 'XML::LibXML';
# requires 'Sereal'; # comment out temporarily
requires 'Email::Sender::Transport::Test';
requires 'Task::Kensho::Async';
requires 'Task::Kensho::Config';
#requires 'Task::Kensho::Date';
#requires 'Task::Kensho::DBDev';
requires 'Task::Kensho::Email';
requires 'Task::Kensho::Logging';
requires 'Task::Kensho::ModuleDev';
requires 'Task::Kensho::OOP';
#requires 'Task::Kensho::Testing';
#requires 'Task::Kensho::XML';
requires 'Text::Unidecode';
requires 'experimental';
requires 'Math::Calc::Parser';
requires 'ReadonlyX';
requires 'Const::Fast';
requires 'DateTime::Event::Holiday::US';
requires 'App::EvalServerAdvanced::ConstantCalc';
requires 'Crypt::OpenSSL::X509';
requires 'Math::Random::Secure'; # undeclared dep of Data::Random::Flexible
requires 'Data::Random::Flexible';
requires 'Acme::AsciiEmoji';
requires 'PadWalker';
requires 'Encode::Simple';
requires 'PPR';
requires 'Keyword::Simple';
requires 'Unicode::UTF8';
requires 'List::Gather';
requires 'Lingua::EN::Inflexion';
requires 'local::lib';
requires 'Array::Utils';
requires 'DBD::SQLite';
requires 'Mojo::SQLite';
requires 'FFI::Platypus';
requires 'Perl6::Take';
requires 'List::AllUtils';
requires 'IRC::FromANSI::Tiny';
requires 'Unicode::GCString';
requires 'Unicode::Util';
requires 'Unicode::Collate';
requires 'more';
requires 'Data::Dumper::Compact';
requires 'Carp::Always';
requires 'V';
requires 'Path::Tiny';
requires 'CryptX';
requires 'MIME::Base64';
requires 'DateTime::Event::Cron';
requires 'Regexp::Assemble';
requires 'Regexp::Optimizer';

22
myscandeps.pl Normal file
View file

@ -0,0 +1,22 @@
use Module::ScanDeps;
use Data::Dumper;
my @files = ('./bin/cpan_fetch.pl', './bin/generate_metaphones.pl', './bin/test_eval.pl', './asndb/mkasn.pl', './plugins/head.pm', './plugins/echo.pm', './plugins/packages.pm', './plugins/translate.pm', './plugins/save_config.pm', './plugins/nick_lookup.pm', './plugins/tell.pm', './plugins/conf.pm', './plugins/oeis.pm', './plugins/reload_plugins.pm', './plugins/seen.pm', './plugins/part.pm', './plugins/utf8.pm', './plugins/cache_check.pm', './plugins/title.pm', './plugins/geoip.pm', './plugins/twitter.pm', './plugins/8ball.pm', './plugins/conf_dump.pm', './plugins/unicode.pm', './plugins/shorten.pm', './plugins/karma.pm', './plugins/join.pm', './plugins/perldoc.pm', './plugins/allowpaste.pm', './plugins/help.pm', './plugins/rss_title.pm', './plugins/get.pm', './plugins/plugins.pm', './plugins/define.pm', './plugins/default.pm', './plugins/host.pm', './plugins/arg.pm', './plugins/quote.pm', './plugins/pastebinadmin.pm', './plugins/null.pm', './plugins/host_lookup.pm', './plugins/zippit.pm', './plugins/talktome.pm', './plugins/factoids.pm', './plugins/karma_modify.pm', './plugins/google.pm', './plugins/compose.pm', './plugins/more.pm', './plugins/core.pm', './plugins/chatbot.pm', './plugins/rss.pm', './plugins/supereval.pm', './plugins/restart.pm', './plugins/karmatop.pm', './package_lists/generate_list_debian.pl', './lib/Bot/BB3.pm', './lib/Bot/BB3/Logger.pm', './lib/Bot/BB3/PluginManager.pm', './lib/Bot/BB3/ConfigParser.pm', './lib/Bot/BB3/DebugCrypt.pm', './lib/Bot/BB3/MacroQuote.pm', './lib/Bot/BB3/Roles/Console.pm', './lib/Bot/BB3/Roles/RestAPI.pm', './lib/Bot/BB3/Roles/Evalpastebin.pm', './lib/Bot/BB3/Roles/SocketMessageIRC.pm', './lib/Bot/BB3/Roles/IRC.pm', './lib/Bot/BB3/Roles/PasteBot.pm', './lib/Bot/BB3/PluginConfigParser.pm', './lib/Bot/BB3/PluginWrapper.pm');
my $hash_ref = scan_deps(
# files => \@files,
files => ["plugins/geoip.pm"],
recurse => 0,
);
my @keys = keys %$hash_ref;
my @used = sort {$a cmp $b} grep {!m|Bot/BB3|} grep {exists $hash_ref->{$_}{used_by} } @keys;
my @mods = map {s|/|::|g; s|.pm$||r} @used;
#print Dumper(\@mods);
for my $mod (@mods) {
printf "requires '%s';\n", $mod;
}

4
plugins/core.pm
View file

@ -29,10 +29,12 @@ sub {
if ( Module::CoreList->can('deprecated_in') ) { if ( Module::CoreList->can('deprecated_in') ) {
my $dep = Module::CoreList->deprecated_in($module); my $dep = Module::CoreList->deprecated_in($module);
print " and deprecated in $dep" if $dep; print " and deprecated in $dep" if $dep;
return 'handled';
} }
if ( Module::CoreList->can('removed_from') ) { if ( Module::CoreList->can('removed_from') ) {
my $rem = Module::CoreList->removed_from($module); my $rem = Module::CoreList->removed_from($module);
print " and removed from $rem" if $rem; print " and removed from $rem" if $rem;
return 'handled';
} }
} }
else { else {
@ -42,10 +44,12 @@ sub {
print 'Found', scalar @modules, ':', join ',', print 'Found', scalar @modules, ':', join ',',
map { $_ . ' in ' . Module::CoreList->first_release($_) } map { $_ . ' in ' . Module::CoreList->first_release($_) }
@modules; @modules;
return 'handled';
} }
else { else {
print "Module $module does not appear to be in core. Perhaps capitalization matters or try using the 'cpan' command to search for it."; print "Module $module does not appear to be in core. Perhaps capitalization matters or try using the 'cpan' command to search for it.";
return 'handled';
} }
} }
} }

26
plugins/factoids.pm
View file

@ -10,6 +10,8 @@ use Text::Metaphone;
use strict; use strict;
use Encode qw/decode/; use Encode qw/decode/;
use JSON::MaybeXS qw/encode_json/; use JSON::MaybeXS qw/encode_json/;
use PPI;
use PPI::Dumper;
use Data::Dumper; use Data::Dumper;
use List::Util qw/min max/; use List::Util qw/min max/;
@ -553,13 +555,20 @@ sub get_fact_substitute ($self, $subject, $name, $said) {
my ($aliasserver, $aliasnamespace) = $self->get_alias_namespace($said); my ($aliasserver, $aliasnamespace) = $self->get_alias_namespace($said);
my ($server, $namespace) = $self->get_namespace($said); my ($server, $namespace) = $self->get_namespace($said);
if ( ($said->{body} =~ m{^(?:\s*substitute)?\s*(.*?)\s*=~\s*s /([^/]+ ) /([^/]* )/([gi]*)\s*$}ix) if ($said->{body} =~ m{^(?:\s*substitute)?\s*(.*?)\s*=~\s*s(.*)$}ix)
|| ($said->{body} =~ m{^(?:\s*substitute)?\s*(.*?)\s*=~\s*s\|([^|]+ ) \|([^|]* )\|([gi]*)\s*$}ix)
|| ($said->{body} =~ m{^(?:\s*substitute)?\s*(.*?)\s*=~\s*s\{([^\}]+)\}\{([^\}]*?)\}([gi]*)\s*$}ix)
|| ($said->{body} =~ m{^(?:\s*substitute)?\s*(.*?)\s*=~\s*s\(([^)]+ )\)\(([^)]*? )\)([gi]*)\s*$}ix)
|| ($said->{body} =~ m{^(?:\s*substitute)?\s*(.*?)\s*=~\s*s <([^>]+ ) > <([^>]*? ) >([gi]*)\s*$}ix))
{ {
my ($subject, $match, $subst, $flags) = ($1, $2, $3, $4); my ($subject, $regex) = ($1, $2);
my $pdoc = PPI::Document->new(\$regex);
return "Failed to parse $regex" unless $pdoc;
# TODO handle tr|y///
my $token = $pdoc->find(sub {$_[1]->isa('PPI::Token::Regexp::Substitute')})->[0];
return "Couldn't find s/// in $regex" unless $token;
my $match = $token->get_match_string;
my $subst = $token->get_substitute_string;
my $flags = join '', keys +{$token->get_modifiers()}->%*;
# TODO does this need to be done via the ->get_fact() instead now? # TODO does this need to be done via the ->get_fact() instead now?
my $fact = $self->_db_get_fact(_clean_subject($subject), 0, $server, $namespace); my $fact = $self->_db_get_fact(_clean_subject($subject), 0, $server, $namespace);
@ -572,11 +581,6 @@ sub get_fact_substitute ($self, $subject, $name, $said) {
#moving this to its own function for cleanliness #moving this to its own function for cleanliness
$result = $self->_fact_substitute($pred, $match, $subst, $flags); $result = $self->_fact_substitute($pred, $match, $subst, $flags);
# my( $self, $body, $name, $said ) = @_;
# $body =~ s/^\s*learn\s+//;
# my( $subject, $predicate ) = split /\s+as\s+/, $body, 2;
# TODO why is this calling there? # TODO why is this calling there?
# let this fail for now # let this fail for now
my $ret = $self->get_fact_learn("learn $subject as $result", $name, $said, $subject, $result); my $ret = $self->get_fact_learn("learn $subject as $result", $name, $said, $subject, $result);

26
plugins/oeis.pm
View file

@ -6,15 +6,13 @@ use CGI;
use LWP::Simple; use LWP::Simple;
use WWW::Shorten 'TinyURL'; use WWW::Shorten 'TinyURL';
sub { sub query_oeis {
my($said) = @_; my ($q)=@_;
my $q = $said->{"body"};
warn 1; warn 1;
if( $q =~ /^\s*(?:(?:help|wtf|\?|\:)\s*)?$/i ) if( $q =~ /^\s*(?:(?:help|wtf|\?|\:)\s*)?$/i )
{ {
print "see http://oeis.org/"; return([], ["see http://oeis.org/"]);
return;
} }
warn 2; warn 2;
my $uri = "http://oeis.org/search?q=" . CGI::escape($q)."&fmt=text"; my $uri = "http://oeis.org/search?q=" . CGI::escape($q)."&fmt=text";
@ -24,8 +22,7 @@ sub {
my $nrfound = $1; my $nrfound = $1;
unless( /^%N (\S+) (.*)/m ) unless( /^%N (\S+) (.*)/m )
{ {
print "Reply from OEIS in unknown format 2"; return([ "Reply from OEIS in unknown format 2"],[]);
return;
} }
warn 3; warn 3;
my($anum, $title) = ($1, $2); my($anum, $title) = ($1, $2);
@ -35,21 +32,28 @@ sub {
warn 3.5; warn 3.5;
if (1 == $nrfound) { if (1 == $nrfound) {
my $outuri = sprintf "http://oeis.org/%s", $anum; my $outuri = sprintf "http://oeis.org/%s", $anum;
print sprintf "%s %.256s: %.512s", $outuri, $title, $elts; return ([],[sprintf( "%s %.256s: %.512s", $outuri, $title, $elts)]);
} else { } else {
my $outuri1 = "http://oeis.org/searchs?q=" . CGI::escape($q); my $outuri1 = "http://oeis.org/searchs?q=" . CGI::escape($q);
warn 3.6; warn 3.6;
# my $outuri = makeashorterlink($outuri1) || $outuri1; # my $outuri = makeashorterlink($outuri1) || $outuri1;
print sprintf "%s %.10s(1/%d) %.256s: %.512s", $outuri1, $anum, $nrfound, $title, $elts; return([], [sprintf( "%s %.10s(1/%d) %.256s: %.512s", $outuri1, $anum, $nrfound, $title, $elts)]);
} }
} elsif (/^no matches/mi) { } elsif (/^no matches/mi) {
print "No matches found"; return([], ["No matches found"]);
warn 4 warn 4
} else { } else {
warn 5; warn 5;
print "Reply from OEIS in unknown format: $_"; return([ "Reply from OEIS in unknown format: $_"], []);
} }
} }
sub {
my($said) = @_;
my $q = $said->{"body"};
my ($err, $out) = query_oeis($q);
print "Error: @$err\n" if @$err;
print "@$out\n";
}
__DATA__ __DATA__
Search for a sequence in the On-Line Encyclopedia of Integer Sequences (http://tinyurl.com/2blo2w) Syntax, oeis 1,1,2,3,5 Search for a sequence in the On-Line Encyclopedia of Integer Sequences (http://tinyurl.com/2blo2w) Syntax, oeis 1,1,2,3,5

23
t/arg-plugin.t Normal file
View file

@ -0,0 +1,23 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More;
use lib::relative './lib', '../lib', '..';
use t::simple_plugin;
use Encode qw/encode/;
load_plugin("arg");
check("&n", "perlbot", ['FOO'], "empty but valid");
check("&a", "", ['FOO'], "macro args"); # this one is difficult to test for, it really gets the arguments to the parent macro
check("", "", ['FOO'], "empty arguments, needs better check");
check("&h", "irc.client.example.com", ['FOO'], "host");
check("&c", "##NULL", ['FOO'], "channel");
check("&o", 0, ['FOO'], "is op?");
check("&s", "irc.server.example.com", ['FOO'], "server");
done_testing();

15
t/core-plugin.t Normal file
View file

@ -0,0 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More;
use lib::relative './lib', '../lib', '..';
use t::simple_plugin;
load_plugin("core");
check("", "usage: core Module::Here", ["handled"], "usage help");
check("CGI", "CGI Added to perl core as of 5.004 and deprecated in 5.019007", ["handled"], "deprecated");
check("Data::Dumper", "Data::Dumper Added to perl core as of 5.005", ["handled"], "never gonna give it up");
done_testing();

16
t/echo-plugin.t Normal file
View file

@ -0,0 +1,16 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More;
use lib::relative './lib', '../lib', '..';
use t::simple_plugin;
use Encode qw/encode/;
load_plugin("echo");
check("", "", [1], "empty but valid");
check("Hello World", "Hello World", [1], "HW");
check("\N{SNOWMAN}", encode("utf8", "\N{SNOWMAN}"), [1], "Encoding correctly");
done_testing();

48
t/lib/t/common.pm Normal file
View file

@ -0,0 +1,48 @@
package t::common;
use strict;
use warnings;
use utf8;
use parent 'Exporter';
our @EXPORT=qw/load_plugin make_said/;
# This doesn't let us test multiple plugins at a time, which might be needed for the compose plugin
# This can be fixed later
our $plugin;
sub load_plugin {
my $name = shift;
my $fullname = "plugins/$name.pm";
$plugin = require $fullname;
}
sub make_said
{
my ($body, $who, $server, $channel) = @_;
# TODO make this fill out a lot more of the said object
$who //= "perlbot";
my @args = split /\s+/, $body;
my $said = {
body => $body,
recommended_args => \@args,
macro_args => $body,
name => $who,
ircname => $who."irc",
host => "irc.client.example.com",
sender_raw => "", # this never gets filled out
channel => $channel // "##NULL",
server => $server // "irc.server.example.com",
by_chan_op => 0,
captured => "",
};
return $said;
}
1;

29
t/lib/t/simple_plugin.pm Normal file
View file

@ -0,0 +1,29 @@
package t::simple_plugin;
use strict;
use warnings;
use utf8;
use parent 'Exporter';
use t::common;
our @EXPORT=qw/load_plugin make_said check/;
use Test::Differences qw/ eq_or_diff /;
use Capture::Tiny qw/capture/;
sub check
{
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ( $body, $want, $res, $blurb ) = @_;
my $said = make_said($body);
my ($out, $err, @result) = capture {
$t::common::plugin->( $said );
};
return eq_or_diff( $err, "", "no errors" )
&& eq_or_diff(\@result, $res, "Result is correct")
&& eq_or_diff( $out, $want, $blurb );
}
1;

15
t/oeis-plugin.t Normal file
View file

@ -0,0 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More tests => 1;
use lib '.';
use plugins::oeis;
# TEST
like(
(query_oeis("1,2,6,24"))[1][0],
qr#https?://oeis\.org/.*?Factorial numbers: n!#ms,
"factorials",
);

20
t/quote-plugin.t Normal file
View file

@ -0,0 +1,20 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More;
use lib::relative './lib', '../lib', '..';
use t::simple_plugin;
load_plugin("quote");
check("", "", [], "do nothing");
check('d TESTING HERE', q{"TESTING HERE"}, [1], 'quote d simple');
check('c TESTING HERE', q{TESTING HERE}, [1], 'quote d simple');
check(qq{d "TESTING \nHERE"}, q{"\\x22TESTING \\x0aHERE\\x22"}, [1], 'quote d complex');
check(qq{c "TESTING \nHERE"}, q{\\x22TESTING \\x0aHERE\\x22}, [1], 'quote c complex');
check(qq{e "TESTING \nHERE"}, q{\\x22TESTING\\x20\\x0aHERE\\x22}, [1], 'quote e complex');
check(qq{f "TESTING \nHERE"}, q{"\\x22TESTING\\x20\\x0aHERE\\x22"}, [1], 'quote f complex');
check('h TESTING HERE', q{54455354494e472048455245}, [1], 'quote h');
done_testing();

31
t/unicode-plugin.t Normal file
View file

@ -0,0 +1,31 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More;
use lib::relative './lib', '../lib', '..';
use t::simple_plugin;
use Encode qw/encode/;
load_plugin("unicode");
# TEST*2
check(
"perl",
"U+0070 (70): LATIN SMALL LETTER P [p] ".
"U+0065 (65): LATIN SMALL LETTER E [e] ".
"U+0072 (72): LATIN SMALL LETTER R [r] ".
"U+006C (6c): LATIN SMALL LETTER L [l]\n",
[1],
"ascii"
);
# TEST*2
check(
"💟",
encode("utf8", "U+1F49F (f0 9f 92 9f): HEART DECORATION [💟]\n"),
[1],
"emoji" );
done_testing();