19 lines
386 B
Racket
Executable File
19 lines
386 B
Racket
Executable File
#!/usr/bin/env racket
|
|
#lang racket
|
|
; vim: ft=racket
|
|
(require smol-http)
|
|
|
|
(define req
|
|
(make-http-req 'GET "/hello-world"))
|
|
|
|
(define (run-webcrawler username password)
|
|
(printf "the credentials are: ~s ~s\n" username password)
|
|
(write-http-msg req))
|
|
|
|
(module+ main
|
|
(command-line
|
|
#:program "webcrawler"
|
|
#:args
|
|
(username password)
|
|
(run-webcrawler username password)))
|