;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.212
;;; Reason:
;;;  Variable tcpa:*udp-rwho-server-enabled* determines whether we broadcast RWHO packets.
;;;  We receive them in any case...
;;; Written 8-Mar-88 15:45:35 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.210, Experimental Local-File 73.3, Experimental FILE-Server 22.1, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tape 21.1, microcode 1755, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.SERVER; UDP-RWHO-SERVER.LISP#32 at 8-Mar-88 15:45:47
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; UDP-RWHO-SERVER  "

(defvar *udp-rwho-server-enabled* t "Determines whether this machine broadcasts RWHO packets")

))

; From modified file DJ: L.NETWORK.IP-TCP.SERVER; UDP-RWHO-SERVER.LISP#32 at 8-Mar-88 15:51:35
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; UDP-RWHO-SERVER  "

(defun broadcast-rwho-packet (stream)
  (unless time:*ut-at-boot-time*
    (process-wait "Universal Time" #'(lambda () time:*ut-at-boot-time*)))
  (when *udp-rwho-server-enabled*
    (send stream :broadcast-packet
	  (build-rwho-packet (udp:get-udp-buffer))
	  (send stream :local-port)))
  (setq *udp-rwho-server-next-broadcast-time*
	(time-increment (zl:time) *udp-rwho-server-broadcast-interval*))
  )

))