|
# generate selection list for fvConfig files
|
|
|
|
set configl [glob -nocomplain /mod/etc/fvConfig_*.json]
|
|
|
|
proc genConfigList {} {
|
|
foreach file [lsort $::configl] {
|
|
set config [string range $file 18 end-5]
|
|
puts "<option value=\"$config\">$config</option>"
|
|
}
|
|
}
|