#!/local/scsh/bin/scsh \
-e main -s
!#

(define (get-load hostname)
  (with-errno-handler 
   ((errno packet)
    (else 
     (display (format #f "~a Connect Error\n" hostname) (error-output-port))
     #f))

   (let ((sock (socket-connect protocol-family/internet
			       socket-type/stream hostname 5000)))
     (let ((line (read-string 2048 (socket:inport sock))))
       (let ((loads (string-tokenize line)))
	 (if (< (length loads) 3)
	     (begin
	       (display (format #f "~a Read Error ~a\n" hostname loads)
			(error-output-port))
	       #f)
	     loads))))))

(define (main args)
  (if (< (length args) 2)
      (display "usage: getload hostname hostname ...\n" (error-output-port))
      (for-each
       (lambda (hostname)
	 (let ((loads (get-load hostname)))
	   (if (not (boolean? loads))
	       (display (format #f "~a ~a ~a ~a\n"
				hostname
				(car loads) (cadr loads) (caddr loads))))))
       (cdr args))))