Overview
| Comment: | Made change to allow version numbers to differ with existing servers |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | v1.6533 |
| Files: | files | file ages | folders |
| SHA1: |
f08db11c36260ef555311695aef4290b |
| User & Date: | jmoon18 on 2019-08-19 14:05:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-08-23
| ||
| 12:48 | Added unit tests to all-rmt check-in: 37a2da3f61 user: jmoon18 tags: v1.65 | |
| 11:30 | Code cleanup in rmt check-in: 1fe765631f user: mrwellan tags: v1.65-code-cleanup | |
|
2019-08-19
| ||
| 14:05 | Made change to allow version numbers to differ with existing servers check-in: f08db11c36 user: jmoon18 tags: v1.65, v1.6533 | |
|
2019-08-16
| ||
| 18:03 | Fixed an issue that would print out a 'skipping dur to packets' warning even if the number of packets had been reached check-in: af3a660dfb user: jmoon18 tags: v1.65 | |
Changes
Modified db.scm from [33585b817b] to [579fd43a32].
| ︙ | ︙ | |||
4084 4085 4086 4087 4088 4089 4090 |
(define (db:login dbstruct calling-path calling-version client-signature)
(cond
((not (equal? calling-path *toppath*))
(list #f "Login failed due to mismatch paths: " calling-path ", " *toppath*))
;; ((not (equal? *run-id* run-id))
;; (list #f "Login failed due to mismatch run-id: " run-id ", " *run-id*))
((not (equal? megatest-version calling-version))
| | | 4084 4085 4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 4096 4097 4098 |
(define (db:login dbstruct calling-path calling-version client-signature)
(cond
((not (equal? calling-path *toppath*))
(list #f "Login failed due to mismatch paths: " calling-path ", " *toppath*))
;; ((not (equal? *run-id* run-id))
;; (list #f "Login failed due to mismatch run-id: " run-id ", " *run-id*))
((not (equal? megatest-version calling-version))
(list #t (conc "Login warning due to mismatch megatest version: " calling-version ", " megatest-version)))
(else
(hash-table-set! *logged-in-clients* client-signature (current-seconds))
'(#t "successful login"))))
(define (db:general-call dbstruct stmtname params)
(let ((query (let ((q (alist-ref (if (string? stmtname)
(string->symbol stmtname)
|
| ︙ | ︙ |
Modified megatest-version.scm from [76adf600fc] to [b1fc3a8220].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 16 17 18 19 20 21 22 23 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.6533) |