253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
|
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
|
-
+
-
+
+
|
dbstruct
'schema
;; 'new2old
'killservers
'adj-target
;; 'old2new
'new2old
(if full
;; (if full
'(dejunk)
'()))
;; '())
)
(if (common:api-changed?)
(common:set-last-run-version)))
;; Rotate logs, logic:
;; if > 500k and older than 1 week:
;; remove previous compressed log and compress this log
;; WARNING: This proc operates assuming that it is in the directory above the
|