commit c531fc32382be5b7033dc6d7628a48f9645ee0ab Author: finga Date: Sat Jan 11 17:28:44 2020 +0100 a start diff --git a/src/main.rkt b/src/main.rkt new file mode 100644 index 0000000..b77dd0c --- /dev/null +++ b/src/main.rkt @@ -0,0 +1,34 @@ +#lang racket + +(require net/url + html + xml + xml/path) + +(define verbose-mode (make-parameter #f)) + +(define uri + (command-line + #:program "linky-pinky" + #:once-each + [("-v" "--verbose") "Verbose output" + (verbose-mode #t)] + #:ps "Check dead links." + #:args (url/filename) ; expect one command-line argument: + ;; return the argument as a filename to compile + url/filename)) + +(define (read-html-as-xexprs in) + (caddr + (xml->xexpr + (element #f #f 'root '() + (read-html-as-xml in))))) + +(define (get-urls url) + (se-path*/list '(a #:href) (call/input-url + (string->url url) + get-pure-port + read-html-as-xexprs))) + +;; (get-urls "file:///home/finga/src/linky-pinky/src/test.html") +(get-urls uri) diff --git a/test/test.html b/test/test.html new file mode 100644 index 0000000..d17bdb8 --- /dev/null +++ b/test/test.html @@ -0,0 +1,9 @@ + + + + + /dev/null +
+ /etc/passwd + +