Code: Select all
(define (pick-links url)
(setq page (get-url url))
(println (1 20 page)) ; testing
(write-file "page" page); also testing
(until (not (starts-with page "ERR: HTTP document empty"))
(and (sleep 600000) (setq page (get-url url))))
(setq linklist (join (find-all "<a href=([^>]+)>([^>]*)</a>" page) "<br>\n"))
(setq linklist
(replace {"} linklist "`")) ;"
(setq parsedlist
(parse linklist "\n"))
(setq page nil) )