Overview
| Comment: | Merged fix for ; in env var values |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
559d63b4f34d534b4a872a86e432db76 |
| User & Date: | matt on 2014-03-06 20:20:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-03-10
| ||
| 00:34 | Fixed rmt:test-get-logfile-info issue, typo in api. check-in: d4cdee770d user: matt tags: v1.60 | |
|
2014-03-06
| ||
| 20:20 | Merged fix for ; in env var values check-in: 559d63b4f3 user: matt tags: v1.60 | |
| 16:53 | Change host/domain matching to deal with or without domain name cases check-in: 9e1c27e1ec user: mrwellan tags: v1.60 | |
| 13:33 | Added ; to list of whitespace characters to quote in setenv check-in: 68ba4dfea5 user: mrwellan tags: v1.55, v1.5515 | |
Changes
Modified common.scm from [03bd87c740] to [f2071ae50f].
| ︙ | ︙ | |||
360 361 362 363 364 365 366 |
(uname #f))
(if (null? (car uname-res))
"unknown"
(caar uname-res))))
(define (save-environment-as-files fname #!key (ignorevars (list "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR")))
(let ((envvars (get-environment-variables))
| | | 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 |
(uname #f))
(if (null? (car uname-res))
"unknown"
(caar uname-res))))
(define (save-environment-as-files fname #!key (ignorevars (list "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR")))
(let ((envvars (get-environment-variables))
(whitesp (regexp "[^a-zA-Z0-9_\\-:;,.\\/%$]")))
(with-output-to-file (conc fname ".csh")
(lambda ()
(for-each (lambda (key)
(if (not (member key ignorevars))
(let* ((val (cdr key))
(sval (if (string-search whitesp val)(conc "\"" val "\"") val)))
(print "setenv " (car key) " " sval))))
|
| ︙ | ︙ |