Redirect to error pages

nelhage · Mar 25, 2007 · c472526 · c472526
1 parent 63bc7c1
commit c472526
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/lib/AuthMitEdu/Dispatcher.pm b/lib/AuthMitEdu/Dispatcher.pm
@@ -12,6 +12,11 @@ before '*' => run {
     }
 };
 
+on '/error/bad_identity/**' => run {
+    set identity => $1;
+    show '/error/bad_identity';
+};
+
 on qr{^/([a-zA-Z][a-zA-Z_0-9]+)$} => run {
     set user => $1;
     show '/endpoint';
@@ -34,8 +39,8 @@ on qr{^/_/auth/?$} => run {
         my %opts = %$data;
         set $_ => $opts{$_} for keys %opts;
 
-        show '/error/no_cert' unless $user;
-        show '/error/bad_identity' unless $user->is_identity($opts{identity});
+        redirect '/error/no_cert' unless $user;
+        redirect '/error/bad_identity/' . $opts{identity} unless $user->is_identity($opts{identity});
 
         show 'setup';