Overview
| Comment: | updated to print permssion error to std out |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
c45b0ca87c2b86f41f14bac0b162a446 |
| User & Date: | pjhatwal on 2018-10-17 13:04:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-10-31
| ||
| 18:00 | Added some test file for iup matrix check-in: 494eadce2e user: ritikaag tags: v1.65 | |
|
2018-10-17
| ||
| 13:04 | updated to print permssion error to std out check-in: c45b0ca87c user: pjhatwal tags: v1.65 | |
|
2018-10-03
| ||
| 10:35 | fix for contour value sql-null-type check-in: 11a467a8ef user: pjhatwal tags: v1.65, v1.6515 | |
Changes
Modified Makefile from [12a7839170] to [213d4594be].
| ︙ | ︙ | |||
354 355 356 357 358 359 360 | sd : datashare-testing/sd mkdir -p /tmp/$(USER)/datashare/disk1 /tmp/$(USER)/basepath xterm : sd (export BASEPATH=/tmp/$(USER)/basepath ; export PATH="$(PWD)/datashare-testing:$(PATH)" ; xterm &) datashare-testing/spublish : spublish.scm $(OFILES) | | | | > > > > > | | < < | 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 | sd : datashare-testing/sd mkdir -p /tmp/$(USER)/datashare/disk1 /tmp/$(USER)/basepath xterm : sd (export BASEPATH=/tmp/$(USER)/basepath ; export PATH="$(PWD)/datashare-testing:$(PATH)" ; xterm &) datashare-testing/spublish : spublish.scm $(OFILES) csc $(CSCOPTS) spublish.scm megatest-version.o margs.o process.o common.o -o datashare-testing/spublish datashare-testing/sretrieve : sretrieve.scm $(OFILES) csc $(CSCOPTS) sretrieve.scm megatest-version.o margs.o process.o common.o -o datashare-testing/sretrieve datashare-testing/sauthorize : sauthorize.scm $(OFILES) csc $(CSCOPTS) sauthorize.scm megatest-version.o margs.o process.o common.o -o datashare-testing/sauthorize sauth-init: mkdir -p datashare-testing rm datashare-testing/sauthorize rm datashare-testing/sretrieve rm datashare-testing/spublish sauth : sauth-init datashare-testing/sauthorize datashare-testing/sretrieve datashare-testing/spublish # base64 dot-locking \ # csv-xml z3 # "(define (toplevel-command . a) #f)" # if egrep 'version.*3.0' $(shell dirname $(shell dirname $(shell which csi)))/lib/chicken/7/readline.setup-info;then \ |
| ︙ | ︙ |
Modified mtut.scm from [0abdc2577a] to [3cdec5adeb].
| ︙ | ︙ | |||
1563 1564 1565 1566 1567 1568 1569 |
(begin
(debug:print 0 *default-log-port* ctime " received " instr )
;(nn-send rep "ok")
(if (not (equal? instr "ping"))
(begin
(debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
;(system (conc script " '" instr "'"))
| | | 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 |
(begin
(debug:print 0 *default-log-port* ctime " received " instr )
;(nn-send rep "ok")
(if (not (equal? instr "ping"))
(begin
(debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
;(system (conc script " '" instr "'"))
(process-run script (list instr ))
(debug:print 0 *default-log-port* ctime " done" ))))))
(loop (nn-recv rep))))
(print "ERROR: Port " portnum " already in use. Try another port")))))))
((gather) ;; gather all area db's into /tmp/$USER_megatest/alldbs
(let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat))
(areas (get-area-names mtconf)))
|
| ︙ | ︙ |
Modified spublish.scm from [ea3284440b] to [f88672550b].
| ︙ | ︙ | |||
20 21 22 23 24 25 26 | (use scsh-process) (use refdb) (use srfi-18) (use srfi-19) (use format) (use sql-de-lite srfi-1 posix regex regex-case srfi-69) | | | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | (use scsh-process) (use refdb) (use srfi-18) (use srfi-19) (use format) (use sql-de-lite srfi-1 posix regex regex-case srfi-69) ;(declare (uses configf)) ;; (declare (uses tree)) (declare (uses margs)) (declare (uses megatest-version)) ;; (declare (uses tbd)) (include "megatest-fossil-hash.scm") |
| ︙ | ︙ |
Modified sretrieve.scm from [9b97d338b6] to [d2b597ab3b].
| ︙ | ︙ | |||
360 361 362 363 364 365 366 |
(define (sretrieve:get-accessable-projects area)
(let* ((projects `()))
(if (sretrieve:has-permission area)
(set! projects (cons area projects))
(begin
| | | 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 |
(define (sretrieve:get-accessable-projects area)
(let* ((projects `()))
(if (sretrieve:has-permission area)
(set! projects (cons area projects))
(begin
(sauth:print-error (conc "User cannot access area " area "!!"))
(exit 1)))
; (print projects)
projects))
(define (sauth-common:shell-ls-cmd base-path-list ext-path top-areas base-path tail-cmd-list)
(if (and (null? base-path-list) (equal? ext-path "") )
(print (string-intersperse top-areas " "))
|
| ︙ | ︙ |