Index: openacs-4/packages/acs-admin/www/server-restart.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/server-restart.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/server-restart.tcl	28 Oct 2003 08:54:44 -0000	1.4
+++ openacs-4/packages/acs-admin/www/server-restart.tcl	7 Aug 2017 23:47:45 -0000	1.5
@@ -8,10 +8,29 @@
 }
 
 set page_title "Restarting Server"
-
 set context [list $page_title]
 
+#
+# When using NaviServer, and when the kernel parameter
+# "NsShutdownWithNonZeroExitCode" is set to be true, the "-restart"
+# option will be used.
+#
+if {[ns_info name] eq "NaviServer" &&
+    [parameter::get -parameter NsShutdownWithNonZeroExitCode -package_id [ad_acs_kernel_id] -default 0]
+} {
+    set cmd {ns_shutdown -restart}
+} else {
+    set cmd ns_shutdown
+}
 
-# We do this as a schedule proc, so the server will have time to serve the page
+#
+# We perform the shutdown as a scheduled proc, so the server will have
+# time to serve the page.
+#
+ad_schedule_proc -thread t -once t 2 {*}$cmd
 
-ad_schedule_proc -thread t -once t 2 ns_shutdown
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: