redirect on new posts

[ndwebbie.git] / ND.pm

diff --git a/ND.pm b/ND.pm
index 791d5f096c2170532684a9348408c689630f9e71..812e0ab63675ef89973a454ab422b388d8730ff9 100755 (executable)
--- a/ND.pm
+++ b/ND.pm
@@ -49,6 +49,13 @@ sub handler {
        $ND::DBH->rollback unless $ND::DBH->{AutoCommit};
        $ND::DBH->disconnect;
 
+       if ($page->{RETURN}){
+               if($page->{RETURN} eq 'REDIRECT'){
+                       $ND::r->headers_out->set(Location => $page->{REDIR_LOCATION});
+                       $ND::r->status(Apache2::Const::REDIRECT);
+                       $ND::r->rflush;
+               }
+       }
        return Apache2::Const::OK;
 }