5 Cent tip for today [ Seti statistics ]

[newdep]

;;
;; SETI statistic lister v 1.0
;; Fillin your Seti email-address in 'seti
;;
;; Works with Newlisp 8009 and up ! (trim function)
;;
;; Norman
;;

(set 'seti "http://setiathome2.ssl.berkeley.edu/fcg ... where.mars" )
(set 'elements '(
"userinfo" "name" "numresults"
"cputime" "avecpu" "resultsperday"
"lastresulttime" "regdate" "usertime" ))

(define (banner) (println (dotimes ( x 50 ) (print "*")) ))

(xml-type-tags nil 'cdata '!-- nil)
(set 'setiurl (xml-parse (get-url seti) (+ 1 2 8 16) ))

(set 'setidata (nth 1 (nth 1 setiurl)))

;;
;; Finding and printing Seti XML Elements
;;

(banner)
(dolist (x elements)
(if (set 'element (lookup (symbol x) setidata))
(println "** SETI " x " -> " (trim element " " ""))))
(banner)
(exit)

;; enjoy...