More error checking, and current_user_can

nelhage · Mar 25, 2007 · 277b68f · 277b68f
1 parent f716b64
commit 277b68f
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/AuthMitEdu/Model/User.pm b/lib/AuthMitEdu/Model/User.pm
@@ -17,9 +17,9 @@ sub remote_user {
     my $email = $ENV{SSL_CLIENT_S_DN_Email};
     return unless $email;
     my ($username) = $email =~ /^(.+)@/;
-    return unless $username;
     my $user = AuthMitEdu::Model::User->new;
-    $user->load_or_create(username => $username);
+    my ($ok, $err) = $user->load_or_create(username => $username);
+    die $err unless $ok;
     return $user;
 }
 
@@ -36,5 +36,7 @@ sub is_trusted {
     return 0;
 }
 
+sub current_user_can {1};
+
 1;