;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.130
;;; Reason:
;;;  Finger Server was returning a rational -- used (/ ...) when needed (rem ...)
;;; Written 30-Nov-87 15:05:11 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.129, Experimental Local-File 73.3, Experimental FILE-Server 22.1, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#20 at 30-Nov-87 15:05:12
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; FINGER  "

(defun finger-server-info (&optional (stream *standard-output*))
  (let ((idle (floor (time-difference (zl:time) tv:kbd-last-activity-time) 3600)))
    (format stream
	    "~6A ~C ~22A ~6A ~:[    ~3*~;~:[~D:~2,48D~;  ~*~D~]~]     ~A"
	    si:user-id
	    fs:user-group-affiliation
	    fs:user-personal-name-first-name-first
	    (chaos:user-activity-string)
	    (not (zerop idle))
	    (zerop (floor idle 60.))
	    (floor idle 60.)
	    (rem idle 60.)
	    si:local-finger-location)))

))