--- sdr.tcl.original Wed Aug 19 13:25:17 1998 +++ sdr.tcl Wed Aug 19 13:56:41 1998 @@ -4430,6 +4430,11 @@ exec mv [glob -nocomplain ~]/.sdr.tcl [glob -nocomplain [resource sdrHome]]/sdr.tcl } +add_admin "Local Scope" 239.255.255.255 9875 239.255.0.0 16 15 +add_admin "Region (ttl 63)" 224.2.127.254 9875 224.2.128.0 17 63 +add_admin "World (ttl 127)" 224.2.127.254 9875 224.2.128.0 17 127 +add_ttl_scope 224.2.127.254 9875 224.2.128.0 17 + set flag 1 catch {source "/usr/local/etc/sdr/sdr.tcl";set flag 0} if {($flag)&&([file isfile /usr/local/etc/sdr/sdr.tcl])} { @@ -4475,12 +4480,6 @@ set send($media) 0 } set send([lindex $medialist 0]) 1 - -add_admin "Local Scope" 239.255.255.255 9875 239.255.0.0 16 15 -add_admin "Region (ttl 63)" 224.2.127.254 9875 224.2.128.0 17 63 -add_admin "World (ttl 127)" 224.2.127.254 9875 224.2.128.0 17 127 -#add_admin UK 239.128.16.254 9874 239.128.16.0 23 47 -add_ttl_scope 224.2.127.254 9875 224.2.128.0 17 #create the interface build_interface first