Tux config - support for configuration files

.whitesource

@@ -0,0 +1,8 @@
+{
+  "generalSettings": {
+    "shouldScanRepo": true
+    },
+  "checkRunSettings": {
+    "vulnerableCheckRunConclusionLevel": "failure"
+    }
+  }

README.md

@@ -0,0 +1,58 @@
+pm-cb is Copyright (C) 2017-2020, E. Choroba
+
+PerlMonks ChatterBox Client
+==
+
+DESCRIPTION
+--
+
+There are two executable programs, `pm-cb` and `pm-cb-g`. The former
+doesn't implement a full chat client (you can't use it to post to the
+ChatterBox) and is no longer supported. The latter is a graphical
+client to PerlMonks' ChatterBox written in Perl and Tk.
+
+Pull requests welcome!
+
+PREQUISITES
+--
+Install required modules using
+```
+cpanm --installdeps .
+```
+
+If your `perl` has been compiled with thread support:
+
+```
+perl -MConfig -E 'say "Threads supported" if $Config{useithreads}'
+```
+you can simply start the program with
+
+```
+perl pm-cb-g
+
+```
+If threads are not supported, either compile a new perl with threads enabled,
+e.g.
+
+```
+perlbrew install perl-5.30.0 --as=5.30.0-threads -Dusethreads
+perlbrew use 5.30.0-threads
+```
+or run the program using `MCE::Hobo` with
+```
+perl pm-cb-g --mce_hobo
+```
+or with `MCE::Child`
+```
+perl pm-cb-g --mce_child
+```
+
+
+LICENSE INFORMATION
+--
+
+This code is free software; you can redistribute it and/or modify it
+under the same terms as Perl 5.30 (see [the Perl Artistic
+License](https://perldoc.pl/perlartistic) and [the GNU General Public
+License, version 1](https://perldoc.pl/perlgpl)).
+

alert.xpm

@@ -0,0 +1,39 @@
+/* XPM */
+static char * pm_xpm[] = {
+"32 32 4 1",
+" 	c black",
+".	c red",
+"X	c yellow",
+"o	c brown",
+"                                ",
+" .............................. ",
+" .............................. ",
+" .............................. ",
+" XXXXX......................XXX ",
+" XXXXXX....................XXXX ",
+" ....XXX..................XX... ",
+" ......X..................X.... ",
+" ......XX................XX.... ",
+" ......XX................X..... ",
+" ...X...XX..............XX..... ",
+" ..XXX..XX............XXX...X.. ",
+" ...X...XX...........XX....XoX. ",
+" ........XX.........XX......XX. ",
+" ........XX.........XXXX....... ",
+" .........XX...........X....... ",
+" .........XX...........XX...... ",
+" ......XXXX............XXXX.... ",
+" .....XX..................XX... ",
+" ..XXXX....................XX.. ",
+" .XX.......................XX.. ",
+" ..XXXX...................XX... ",
+" .....XXX.............XXXXX.... ",
+" ......XX.............XX....... ",
+" ..X..XX...............XXX..... ",
+" XXXX.XX.................XXX... ",
+" XX..XX....................XXX. ",
+" X...........................XX ",
+" .............................X ",
+" .............................X ",
+" .............................. ",
+"                                "};

cpanfile

@@ -0,0 +1,31 @@
+use Config;
+
+# The MCE 1.841 distribution includes MCE::Channel and MCE::Child.
+# Thus, suggesting or requiring MCE::Child will pick up minimally MCE 1.841.
+# MCE::Hobo is included with MCE::Shared.
+
+on build => sub {
+    if ($Config{usethreads}) {
+        suggests 'MCE::Child';
+        suggests 'MCE::Hobo';
+    } else {
+        requires 'MCE::Child';
+        requires 'MCE::Hobo';
+    }
+    suggests 'MCE::Child';
+    suggests 'MCE::Channel';
+};
+
+requires 'FindBin';
+requires 'Getopt::Long';
+requires 'Pod::Usage';
+requires 'Time::HiRes';
+requires 'Time::Piece';
+requires 'charnames';
+
+requires 'List::Util';
+requires 'LWP::Protocol::https';
+requires 'Syntax::Construct';
+requires 'Tk';
+requires 'WWW::Mechanize';
+requires 'XML::LibXML';

lib/PM/CB/Common.pm

@@ -0,0 +1,16 @@
+package PM::CB::Common;
+
+use warnings;
+use strict;
+
+use Exporter qw{ import };
+our @EXPORT_OK = qw{ to_entities };
+
+sub to_entities {
+    my ($message) = @_;
+    $message =~ s/(.)/ord $1 > 127 ? '&#' . ord($1) . ';' : $1/ge;
+    return $message
+}
+
+
+__PACKAGE__