Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.70.2.2 -r1.70.2.3
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	25 Mar 2004 13:54:16 -0000	1.70.2.2
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	25 Mar 2004 15:59:30 -0000	1.70.2.3
@@ -4853,3 +4853,14 @@
 	return 0
     }
 }
+
+ad_proc -public util::roll_server_log {{}} {
+    Invoke the AOLserver ns_logroll command with some bookend log records.  This rolls the error log, not the access log.
+} { 
+    # This param controlls how many backups of the server log to keep, 
+    ns_config -int "ns/parameters" maxbackup 7
+    ns_log Notice "util::roll_server_log: Rolling the server log now..." 
+    ns_logroll 
+    ns_log Notice "util::roll_server_log: Done rolling the server log." 
+    return 0
+}