Overview
| Comment: | Added HOSTNAME to the env var blacklist |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
fcd5c35b2a93d3fda97008e40250f2e3 |
| User & Date: | mmgraham on 2022-03-21 10:43:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-03-25
| ||
| 17:31 | implemented a new set of args for db triggers. HSD 14015846056 check-in: 1d4ef2418c user: mmgraham tags: v1.65 | |
|
2022-03-21
| ||
| 10:43 | Added HOSTNAME to the env var blacklist check-in: fcd5c35b2a user: mmgraham tags: v1.65 | |
|
2022-03-19
| ||
| 17:38 | Fixed behavior when disks are non-existent. https://hsdes.intel.com/appstore/article/#/14015976511 check-in: e96d85c5b3 user: mmgraham tags: v1.65 | |
Changes
Modified common.scm from [526a2263d9] to [37b673dcbd].
| ︙ | ︙ | |||
2626 2627 2628 2629 2630 2631 2632 |
(define (bb-check-path #!key (msg "check-path: "))
(let ((path (or (get-environment-variable "PATH") "none")))
(debug:print-info 0 *default-log-port* (conc msg" : $PATH="path))
(if (string-match "^.*/isoenv-core/.*" path)
(debug:print-error 0 *default-log-port* (conc msg" : !!ISOENV PRESENT!!")) ;; remove for prod
(debug:print-info 1 *default-log-port* (conc msg" : **no isoenv present**")))))
| | | 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 2637 2638 2639 2640 |
(define (bb-check-path #!key (msg "check-path: "))
(let ((path (or (get-environment-variable "PATH") "none")))
(debug:print-info 0 *default-log-port* (conc msg" : $PATH="path))
(if (string-match "^.*/isoenv-core/.*" path)
(debug:print-error 0 *default-log-port* (conc msg" : !!ISOENV PRESENT!!")) ;; remove for prod
(debug:print-info 1 *default-log-port* (conc msg" : **no isoenv present**")))))
(define (save-environment-as-files fname #!key (ignorevars (list "USER" "HOME" "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR" "MAKEFLAGS" "MAKEF" "MAKEOVERRIDES" "HOSTNAME")))
;;(bb-check-path msg: "save-environment-as-files entry")
(let ((envvars (get-environment-variables))
(whitesp (regexp "[^a-zA-Z0-9_\\-:,\\.\\/%$]"))
(mungeval (lambda (val)
(cond
((eq? val #t) "") ;; convert #t to empty string
((eq? val #f) #f) ;; convert #f to itself (still thinking about this one
|
| ︙ | ︙ |