let recorders get the frappy cfg names (lowercase)

tcl/startup/frappy.tcl

@@ -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 ""