support for remote redis server, AUTH

MarkovBot/Redis.pm

@@ -7,13 +7,21 @@ use warnings;
 our @EXPORT = qw(redis);
 
 use Redis;
+use FindBin qw($Bin);
+use lib $Bin;
+use MarkovBot::Config;
 
 sub redis() {
   # Returns a redis object
   # This is fairly useless but in the future could be used to
   # pass specific options to redis.
+  #
+  # TODO: support connection to redis via a socket
 
-  return Redis->new();
+  return new Redis (
+    server => config("redis_server"),
+    password => (config("redis_usepass") eq "true") ? config("redis_password") : undef,
+  );
 }
 
 1;

README.md

@@ -9,7 +9,7 @@ The original shithead uses far too much ram and is badly implemented.
 Let's reimplement it and get redis to do all the heavy lifting.
 
 ## Getting Started
-First, set up dependencies. You need a redis server running locally (currently, AUTH and remote servers are not supported, this will be supported in the future) and the necessary perl modules:
+First, set up dependencies. You need a redis server and the necessary perl modules:
 
 ```bash
 # install cpanminus with your package manager of choice (preferred), or install it through cpan:

config.default.yml

@@ -8,6 +8,9 @@ insult: "you're a faggot"
 # Redis Settings
 #
 redis_prefix: markov
+redis_server: 127.0.0.1:6379
+redis_usepass: false
+redis_password: hunter2
 
 #
 # IRC Settings