Megatest

Check-in [e396b98a87]
Login
Overview
Comment:increase default expiration time to 1400 hours from 1 hour. added server/time-to-die-seconds to allow future trimming
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: e396b98a87a4487634bb4d72979605f0b2f4a4a2
User & Date: bjbarcla on 2017-07-12 17:13:21
Other Links: branch diff | manifest | tags
Context
2017-07-12
17:26
corrected bug check-in: 6038142b2a user: bjbarcla tags: v1.64
17:13
increase default expiration time to 1400 hours from 1 hour. added server/time-to-die-seconds to allow future trimming check-in: e396b98a87 user: bjbarcla tags: v1.64
2017-07-11
22:43
Better server and sync run-away protection using dot files in the users tmp db area. check-in: 3007449383 user: matt tags: v1.64, v1.6424
Changes

Modified http-transport.scm from [91f92e466a] to [5fea3dd46c].

448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
				   server-timeout)))
	(if (common:low-noise-print 120 "server timeout")
	    (debug:print-info 0 *default-log-port* "Adjusted server timeout: " adjusted-timeout))
	(cond
         ((and *server-run*
	       (> (+ last-access server-timeout)
		  (current-seconds))
	       (< (- (current-seconds) server-start-time) 3600)) ;; do not update log or touch log if we've been running for more than one hour.
          (if (common:low-noise-print 120 "server continuing")
              (debug:print-info 0 *default-log-port* "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
	      (let ((curr-time (current-seconds)))
		(handle-exceptions
		    exn
		    (debug:print 0 *default-log-port* "ERROR: Failed to change timestamp on log file " server-log-file ". Are you out of space on that disk?")
		  (if (not *server-overloaded*)







|







448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
				   server-timeout)))
	(if (common:low-noise-print 120 "server timeout")
	    (debug:print-info 0 *default-log-port* "Adjusted server timeout: " adjusted-timeout))
	(cond
         ((and *server-run*
	       (> (+ last-access server-timeout)
		  (current-seconds))
	       (< (- (current-seconds) server-start-time) (configf:get-number *configdat* "server" "time-to-die-seconds" (* 3600 700 2) ) )) ;; do not update log or touch log if we've been running for more than one hour.
          (if (common:low-noise-print 120 "server continuing")
              (debug:print-info 0 *default-log-port* "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
	      (let ((curr-time (current-seconds)))
		(handle-exceptions
		    exn
		    (debug:print 0 *default-log-port* "ERROR: Failed to change timestamp on log file " server-log-file ". Are you out of space on that disk?")
		  (if (not *server-overloaded*)

Modified megatest.config from [b37fd1a0da] to [cab7834174].

20
21
22
23
24
25
26


quick selector=QUICKPATT/quick
full  areas=fullrun,ext-tests; selector=MAXPATT/
all   areas=fullrun,ext-tests
snazy areas=%; selector=QUICKPATT/

[nopurpose]










>
>
20
21
22
23
24
25
26
27
28
quick selector=QUICKPATT/quick
full  areas=fullrun,ext-tests; selector=MAXPATT/
all   areas=fullrun,ext-tests
snazy areas=%; selector=QUICKPATT/

[nopurpose]

[server]
timeout 1