Megatest

Check-in [e65b212f1d]
Login
Overview
Comment:Merged db fix in
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: e65b212f1d6e837d23250a0d73533d81973090c4
User & Date: matt on 2015-06-04 22:56:37
Other Links: branch diff | manifest | tags
Context
2015-06-05
00:19
Try using rmt in dashboard access check-in: ef10defee3 user: matt tags: v1.60
2015-06-04
23:09
Merged in v1.60 check-in: a7184bad29 user: matt tags: multi-area
22:56
Merged db fix in check-in: e65b212f1d user: matt tags: v1.60
22:34
Switched to rmt: calls in list-runs check-in: 9673fdc495 user: matt tags: v1.60
12:35
Removed db fixer Closed-Leaf check-in: 9e6dfde44c user: mrwellan tags: v1.6014_fix01
Changes

Modified db.scm from [0889d6ee03] to [cd379659b1].

529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
     ;; 
     ;;  NOPE: apply this same approach to all db files
     ;;
     (else ;; ((equal? fname "megatest.db") ;; this file can be regenerated if needed
      (handle-exceptions
       exn
       (begin
	 (db:move-and-recreate-db dbdat)
	 (if (> numtries 0)
	     (db:repair-db dbdat numtries: (- numtries 1))
	     #f)
	 (debug:print 0 "FATAL: file " dbpath " was found corrupted, an attempt to fix has been made but you must start over.")
	 (debug:print 0
		      "   check the following:\n"
		      "      1. full directories, look in ~/ /tmp and " dbdir "\n"







|







529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
     ;; 
     ;;  NOPE: apply this same approach to all db files
     ;;
     (else ;; ((equal? fname "megatest.db") ;; this file can be regenerated if needed
      (handle-exceptions
       exn
       (begin
	 ;; (db:move-and-recreate-db dbdat)
	 (if (> numtries 0)
	     (db:repair-db dbdat numtries: (- numtries 1))
	     #f)
	 (debug:print 0 "FATAL: file " dbpath " was found corrupted, an attempt to fix has been made but you must start over.")
	 (debug:print 0
		      "   check the following:\n"
		      "      1. full directories, look in ~/ /tmp and " dbdir "\n"