From 738500c2fa8c724a2c513ef84ebcba908311671b Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 13 Jun 2011 17:18:21 +0200 Subject: add memcached; check if login exists else return 404 Signed-off-by: franck cuny --- lib/StarGit.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib/StarGit.pm') diff --git a/lib/StarGit.pm b/lib/StarGit.pm index 72933da..6483a73 100644 --- a/lib/StarGit.pm +++ b/lib/StarGit.pm @@ -2,6 +2,7 @@ package StarGit; use Dancer ':syntax'; use StarGit::Graph; +use Cache::Memcached; # don't use it yet our $VERSION = '0.1'; @@ -15,12 +16,17 @@ get '/graph/local/:name' => sub { my $name = params->{'name'}; my $graph = StarGit::Graph->new( name => $name ); + + return send_error( "user " . $name . " doesn't exists", 404 ) + unless $graph->exists($name); + $graph->neighbors( $name, 1 ); $graph->remove_leaves(); return _finalize($graph); }; +# XXX do we already use this one ? get '/graph/query' => sub { my $language = params->{language}; -- cgit v1.2.3