- Handle restart on Windows.

  See: http://openacs.org/forums/message-view?message_id=5367113

www/server-restart.tcl

@@ -14,7 +14,19 @@ set context [list $page_title]
 
 # We do this as a schedule proc, so the server will have time to serve the page
 
-ad_schedule_proc -thread t -once t 2 ns_shutdown
+global tcl_platform
+set platform $tcl_platform(platform)
+switch $platform {
+    "windows" {
+        # Restart doesn't work on Windows services, so handle it here...
+        ad_schedule_proc -thread t -once t 2 ns_shutdown -restart
+    }
+    default {
+        # Don't modify default behavior.
+        # Trust Linux to handle restarts
+        ad_schedule_proc -thread t -once t 2 ns_shutdown
+    }
+}
 
 # Local variables:
 #    mode: tcl