Overview
Comment: | fix for pdgdb sync. (skip sync of runs that were created after previous sync and removed before current sync) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
277cc86ec7d1921574b6fdc40e5af33e |
User & Date: | pjhatwal on 2017-08-02 11:27:18 |
Other Links: | branch diff | manifest | tags |
Context
2017-08-08
| ||
16:37 | added netstat check before binding to a port for tlisten check-in: 841b30b8c9 user: pjhatwal tags: v1.65 | |
2017-08-02
| ||
11:27 | fix for pdgdb sync. (skip sync of runs that were created after previous sync and removed before current sync) check-in: 277cc86ec7 user: pjhatwal tags: v1.65 | |
2017-07-31
| ||
08:19 | Merged v1.64 into v1.65 check-in: 69ed787cf9 user: matt tags: v1.65 | |
Changes
Modified cgisetup/models/pgdb.scm from [d635a1d0c3] to [2f88fa03e8].
︙ | |||
121 122 123 124 125 126 127 | 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | - + | state=?,status=?,owner=?,event_time=?,comment=?,fail_count=?,pass_count=? WHERE id=?;" state status owner event-time comment fail-count pass-count run-id)) ;; given all needed info create run record ;; (define (pgdb:insert-run dbh ttype-id target run-name state status owner event-time comment fail-count pass-count) |
︙ |
Modified tasks.scm from [7cc529f0c6] to [a11873e231].
︙ | |||
647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 | 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 | + + - + + + + - + | (spec-id (pgdb:get-ttype dbh keytarg)) (new-run-id (pgdb:get-run-id dbh spec-id target run-name)) ;; (area-id (db:get-value-by-header row header "area_id)")) ) (if new-run-id (begin ;; let ((run-record (pgdb:get-run-info dbh new-run-id)) (hash-table-set! runs-ht run-id new-run-id) ;; ensure key fields are up to date (pgdb:refresh-run-info dbh new-run-id state status owner event-time comment fail-count pass-count) new-run-id) (if (handle-exceptions exn |
︙ | |||
687 688 689 690 691 692 693 | 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 | + + + + - + + + + - + - + + | (run-dir (db:test-get-rundir test-info)) (log-file (db:test-get-final_logf test-info)) (run-duration (db:test-get-run_duration test-info)) (comment (db:test-get-comment test-info)) (event-time (db:test-get-event_time test-info)) (archived (db:test-get-archived test-info)) (pgdb-run-id (tasks:run-id->mtpg-run-id dbh cached-info run-id)) (pgdb-test-id (if pgdb-run-id (begin (print pgdb-run-id) |
︙ |