BF: hostname pattern did not allow dashes

ernst-bablick · ernst-bablick · commit 0bb583e571f4 · 2025-11-21T09:11:12.000+01:00
diff --git a/src/tcl_files/binding.tcl b/src/tcl_files/binding.tcl
@@ -176,7 +176,7 @@ proc job_get_binding_active {job_id array_name} {
 
    # e.g. v01701.fritz.box=SCC,v01702.fritz.box=SCC
    foreach binding [split $binding_list ","] {
-      if {[regexp {([a-zA-Z0-9.]+)=([a-zA-Z]+)} $binding all hostname topology_string]} {
+      if {[regexp {([a-zA-Z0-9.-]+)=([a-zA-Z]+)} $binding all hostname topology_string]} {
          set hostname [get_short_hostname $hostname]
          set bindings($hostname) $topology_string
       }

Original file line number	Diff line number	Diff line change
`@@ -176,7 +176,7 @@ proc job_get_binding_active {job_id array_name} {`
`176`	`176`
`177`	`177`	`# e.g. v01701.fritz.box=SCC,v01702.fritz.box=SCC`
`178`	`178`	`foreach binding [split $binding_list ","] {`
`179`		`- if {[regexp {([a-zA-Z0-9.]+)=([a-zA-Z]+)} $binding all hostname topology_string]} {`
	`179`	`+ if {[regexp {([a-zA-Z0-9.-]+)=([a-zA-Z]+)} $binding all hostname topology_string]} {`
`180`	`180`	`set hostname [get_short_hostname $hostname]`
`181`	`181`	`set bindings($hostname) $topology_string`
`182`	`182`	`}`