tclserv

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

relayserv.disabled (534B)

      1 # This is the fun part.
      2 
      3 $::maintype sendUid $::sock($::cs(netname)) "R" "relay" "services." "services." 117 "Relay Services"
      4 bind $::sock($::cs(netname)) msg 117 "reqlink" reqlinkmsg
      5 
      6 proc allocuuid {relay} {
      7 	# Allocate a UID and increment.
      8 	if {""==[tnda get "uids/relays/$relay"]} {tnda set "uids/relays/$relay" 1} {tnda set "uids/relays/$relay" [expr {[tnda get "uids/relays/$::netname($::sock($::cs(netname)))/$relay"]+1}]}
      9 	return [tnda get "uids/relays/$relay"]
     10 }
     11 
     12 proc reqlinkmsg {from msg} {
     13 	return
     14 	# do nothing for now
     15 }