37 lines
923 B
Tcl
37 lines
923 B
Tcl
#!/usr/bin/tclsh
|
|
lappend auto_path .
|
|
package require ossltest
|
|
|
|
proc getConfigLine {var {section ""}} {
|
|
global config
|
|
if {[string length $section]} {
|
|
if {[regexp -indices "\n\\s*\\\[\\s*$section\\s*\\\]\\s*\n" $config start]} {
|
|
set start [lindex $start 1]
|
|
} else {
|
|
return -code error "Section $section is not found"
|
|
}
|
|
} else {
|
|
set start 0
|
|
}
|
|
if {[regexp -indices "\n\\s*\\\[\[^\n\]+\\\]\\s*\n" [string range $config $start end] end]} {
|
|
set end [expr $start+[lindex $end 0]]
|
|
} else {
|
|
set end end
|
|
}
|
|
if {![regexp "\n\\s*$var\\s*=\\s*(\\S\[^\n\]+?)\\s*\n" "\n[string range $config $start $end]" => value]} {
|
|
return -code error "No variable $var in section $section"
|
|
}
|
|
return $value
|
|
}
|
|
|
|
set config [getConfig]
|
|
|
|
set openssl_def [getConfigLine openssl_conf]
|
|
|
|
set engine_section [getConfigLine {[^#]+} [getConfigLine engines $openssl_def ]]
|
|
|
|
puts [getConfigLine engine_id $engine_section]
|
|
|
|
|
|
|
|
|