Megatest

Check-in [f82799600b]
Login
Overview
Comment:oops. missed the logs part of the file names ...
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: f82799600b8ff8ac95cf8a69afde17f25e7e1b13
User & Date: mrwellan on 2015-10-27 10:59:10
Other Links: branch diff | manifest | tags
Context
2015-10-27
11:02
oops. missed the logs part of the file names ... check-in: 1601c7b615 user: mrwellan tags: v1.60
10:59
oops. missed the logs part of the file names ... check-in: f82799600b user: mrwellan tags: v1.60
10:53
added log rotation check-in: 07a846ca8f user: mrwellan tags: v1.60
Changes

Modified server.scm from [4f186f173d] to [5be03a2d5f].

120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
    (if (not (directory-exists? "logs"))(create-directory "logs"))
    ;; Rotate logs, logic: 
    ;;                 if > 500k and older than 1 week, remove previous compressed log and compress this log
    (directory-fold 
     (lambda (file rem)
       (if (and (string-match "^.*.log" file)
		(> (file-size file) 200000))
	   (let ((gzfile (conc file ".gz")))
	     (if (file-exists gzfile)
		 (begin
		   (debug:print-info 0 "removing " gzfile)
		   (delete-file gzfile)))
	     (debug:print-info 0 "compressing " file)
	     (system (conc "gzip " file)))))
     '()
     "logs")
    
    ;; host.domain.tld match host?
    (if (and target-host 
	     ;; look at target host, is it host.domain.tld or ip address and does it 
	     ;; match current ip or hostname







|





|







120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
    (if (not (directory-exists? "logs"))(create-directory "logs"))
    ;; Rotate logs, logic: 
    ;;                 if > 500k and older than 1 week, remove previous compressed log and compress this log
    (directory-fold 
     (lambda (file rem)
       (if (and (string-match "^.*.log" file)
		(> (file-size file) 200000))
	   (let ((gzfile (conc "logs/" file ".gz")))
	     (if (file-exists gzfile)
		 (begin
		   (debug:print-info 0 "removing " gzfile)
		   (delete-file gzfile)))
	     (debug:print-info 0 "compressing " file)
	     (system (conc "gzip logs/" file)))))
     '()
     "logs")
    
    ;; host.domain.tld match host?
    (if (and target-host 
	     ;; look at target host, is it host.domain.tld or ip address and does it 
	     ;; match current ip or hostname