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

.gitignore

@@ -1,9 +1,10 @@
 vendor_perl/**
 data/config.json
 data/*.sqlite
-data/*/**
-data/*.orig
-data/*.new
-data/*.bak
+data/cache/**
+data/fortune/**
+data/friday/**
+data/karma/**
+data/lat/**
 TODO
 *.pid

bin/fortune_seed.pl

@@ -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 ();
 

lib/fortune.pm

@@ -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";

lib/friday.pm

@@ -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};