;
; A non regexp users online grabber
; (pre-historic, a little shaving could work)
;
; when inside newlisp a quick check with 'forum to
; see if the registered guru's are online :)
; Does not display "who" actualy, its in the make...
(define (forum)
(set 'buff (get-url "http://www.alh.net/newlisp/phpbb/index.php" ))
(set 'buff (slice buff (find "In total" buff)))
(set 'buff (slice buff 0 (find "Most" buff)))
(set 'buff (slice buff 0 (find "\n" buff)))
(set 'buff (replace "<b>" buff ""))
(set 'buff (replace "</b>" buff ""))
buff)
Enjoy..Norman.
5 Cent tip for today [ forum online check ]
Code: Select all
;;
;; non regex users online grabber using old fashioned 'match'
;;
(define (forum)
(join (collect (match "*In total there*<b>*</b>*Guest?*"
(get-url "http://www.alh.net/newlisp/phpbb/index.php"))
1 2 4 6 7)))
ps: like the first one this one doesn't take care of the 'Heisenber Effect' ;-)
In Heisenberg's "Uncertainty Principle" (fundamental to Quantum Physics) he observes that the fact that we measure something may change the measurement itself. In Quantum Physics he meant specifically: measuring an elementary particle's position and momentum.
When inquiring the visitors on the forum the inquiry itself raises the visitor's count.
In software they also talk about Heisen-bugs meaning software bugs which change there occurance or nature when trying to debug them.
Lutz
When inquiring the visitors on the forum the inquiry itself raises the visitor's count.
In software they also talk about Heisen-bugs meaning software bugs which change there occurance or nature when trying to debug them.
Lutz