add memcached; check if login exists else return 404

Signed-off-by: franck cuny <franck@lumberjaph.net>

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/StarGit/Graph.pm b/lib/StarGit/Graph.pm
index 1b9dd0a..488d07d 100644
--- a/lib/StarGit/Graph.pm
+++ b/lib/StarGit/Graph.pm
@@ -19,6 +19,12 @@ has name => (
     isa => 'Str',
 );
 
+sub exists {
+    my ($self, $name) = @_;
+    my $info = $self->db_profiles->find_one( { login => $name } );
+    $info;
+}
+
 sub neighbors {
     my ($self, $name) = @_;
 
@@ -130,6 +136,9 @@ sub _create_edge {
 sub _get_info_from_login {
     my ($self, $login) = @_;
     my $info = $self->db_profiles->find_one( { login => $login } );
+
+    return undef if (!defined $info);
+
     my $country  = $info->{country}  || 'null';
     my $language = $info->{language} || 'null';
     return ($country, $language);