Prevent subst from processing commands or variables in filenames

2017-03-13 18:15:55 +00:00 · 2017-03-13 18:15:55 +00:00 · 1725bce452
commit 1725bce452
parent d4a0117fab
1 changed files with 2 additions and 1 deletions
--- a/webif/cgi-bin/status.jim
+++ b/webif/cgi-bin/status.jim
@ -83,7 +83,8 @@ proc get_data {} {
 				regsub -- { \([^\)]+\)$} $line "" line
 				set ext [file extension $line]
 				if {$ext ni $exts} continue
-				set file [subst [string range $line 1 end]]
+				set file [subst -nocommands -novariables \
+				    [string range $line 1 end]]
 				# Skip HD-Fox TSR buffer
 				if {$file eq "/media/drive1/.tsr/0.ts"} {
 					continue