let recorders get the frappy cfg names (lowercase)

This commit is contained in:
2025-06-17 08:56:24 +02:00
parent e819507c3e
commit df499953d9
3 changed files with 57 additions and 4 deletions

View File

@ -253,6 +253,54 @@ proc check_config {service args} {
return [check_or_do 0 $service $args]
}
proc activate_stick {} {
set name [hval /device/stick_label]
frappy_config stick secop.stick
# stick_label was changed - set it again
device stick_label $name
}
proc activate_addon {} {
frappy_config addons secop.addon
}
proc sea_recorder {main stick addons} {
set defer 0
if {$main ne "0"} {
lassign [split $main /] uri name
if {$name eq ""} { set name $uri }
samenv none
cfg_env makeitem _secop $uri
frappy_config stick secop.config
device name_label $name
set defer _secop
}
if {$stick ne "0"} {
lassign [split $stick /] uri name
if {$name eq ""} { set name $uri }
addon stick none
cfg_env makeitem _secopstick $uri
device stick_label $name
if {$defer eq "0"} {
set defer _secopstick
frappy_config stick secop.stick
} else {
hsetprop /sics/$defer activate_stick 1
}
}
if {$addons ne "0"} {
lassign [split $addons /] uri name
addon delete secop
cfg_env makeitem _secopaddon $uri
# device addon_label $name
if {$defer eq "0"} {
frappy_config addons secop.addon
} else {
hsetprop /sics/$defer activate_addon 1
}
}
}
proc frappy_remove {service} {
set cfgs [silent "" result device frappy_$service]
set config ""