eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Remove debug in fortune_seed.pl, remove unused botlib in fortune.pm and friday.pm

Browse Source
This commit is contained in:
eleksir
2020-11-23 00:53:16 +03:00
parent 66bca8ebf5
commit 42c5d147d5
3 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bin/fortune_seed.pl
View File

@@ -22,8 +22,6 @@ BEGIN {
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use fortune qw(seed fortune);
use Carp;
$SIG{__DIE__} = sub { Carp::confess @_ };
seed ();

4
lib/fortune.pm
View File

@@ -19,7 +19,6 @@ use SQLite_File;
use MIME::Base64;
use File::Path qw(mkpath);
use conf qw(loadConf);
use botlib qw(logger);
my $c = loadConf();
my $dir = $c->{fortune}->{dir};
@@ -42,9 +41,8 @@ sub seed () {
while (my $fortunefile = readdir ($srcdirhandle)) {
my $srcfile = sprintf '%s/%s', $srcdir, $fortunefile;
# next;
next unless (-f $srcfile);
# next if (m/[\.|\$|\@]/);
next if ($fortunefile =~ m/\./);
open (my $fh, '<', $srcfile) || croak "Unable to open $srcfile, $OS_ERROR\n";
# set correct phrase delimiter
local $INPUT_RECORD_SEPARATOR = "\n%\n";

1
lib/friday.pm
View File

@@ -19,7 +19,6 @@ use SQLite_File;
use MIME::Base64;
use File::Path qw(mkpath);
use conf qw(loadConf);
use botlib qw(logger);
my $c = loadConf();
my $dir = $c->{friday}->{dir};