From 62df64bcd85e3da4f4c38b19c727ef7670ca8355 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 16 Jun 2011 15:18:04 +0200
Subject: switch to redis (memcached is not yet supported on dotcloud)

Signed-off-by: franck cuny <franck@lumberjaph.net>
---
 lib/StarGit.pm | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

(limited to 'lib')

diff --git a/lib/StarGit.pm b/lib/StarGit.pm
index 1490e77..498646a 100644
--- a/lib/StarGit.pm
+++ b/lib/StarGit.pm
@@ -2,7 +2,7 @@ package StarGit;
 use Dancer ':syntax';
 
 use StarGit::Graph;
-use Dancer::Plugin::Memcached;
+use Dancer::Plugin::Redis;
 
 our $VERSION = '0.1';
 
@@ -15,6 +15,11 @@ get '/' => sub {
 get '/graph/local/:name' => sub {
     my $name = params->{'name'};
 
+    if (my $cached_graph = redis->get($name)){
+        debug("cache hit for $name");
+        return $name;
+    }
+    
     my $graph =
       StarGit::Graph->new( name => $name, mongodb_auth => setting('mongodb') );
 
@@ -25,18 +30,7 @@ get '/graph/local/:name' => sub {
     $graph->remove_leaves();
 
     my $serialized_graph = _finalize($graph);
-    memcached_store($name, $serialized_graph);
-    return $serialized_graph;
-};
-
-# XXX do we already use this one ?
-get '/graph/query' => sub {
-    my $language = params->{language};
-
-    my $graph = StarGit::Graph->new( language => $language );
-    $graph->build_from_query();
-
-    my $serialized_graph = _finalize($graph);
+    redis->set($name, $serialized_graph);
     return $serialized_graph;
 };
 
-- 
cgit v1.2.3