Artifact 2ae1f52553281a9748c838c43353bc63b24144aa:
- File utils/example-launch-dispatcher.scm — part of check-in [08d6116a60] at 2013-04-25 00:06:45 on branch v1.54 — CHECK now rolls up as FAIL and SKIP rolls up as PASS. Fixed stats on server exit (user: matt, size: 509) [annotate] [blame] [check-ins using] [more...]
(let ((target (assoc ;; Put the variable name here, note: only *one* ' ;; 'TARGET_OS 'MANYITEMS (read (open-input-string (get-environment-variable "MT_ITEM_INFO")))))) (case (if target target 'var-undef) ((suse) (system "echo suse-launcher.pl")) ((redhat) (system "echo red-hat-launcher.pl")) ((af) (system "echo Got af")) ((var-undef) (system "echo Variable not in MT_ITEM_INFO list")) (else (system "echo normal-launcher.pl"))))