34 lines
787 B
Haskell
34 lines
787 B
Haskell
import Gemini
|
|
import Options.Applicative
|
|
|
|
data Sample = Sample
|
|
{ baseDir :: String
|
|
, language :: String
|
|
}
|
|
|
|
sample :: Parser Sample
|
|
sample = Sample
|
|
<$> strOption
|
|
( long "baseDir"
|
|
<> short 'd'
|
|
<> help "base directory to serve files from"
|
|
<> value "/var/gemini/")
|
|
<*> strOption
|
|
( long "language"
|
|
<> short 'l'
|
|
<> help "language to use in the response for gemini files"
|
|
<> value "")
|
|
|
|
opts :: ParserInfo Sample
|
|
opts = info (sample <**> helper)
|
|
( fullDesc)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
options <- execParser opts
|
|
url <- get_request
|
|
let request = parse_to_gemini (parse_url url)
|
|
content <- read_file pathname
|
|
putStr (get_reply (mime request) 20 (language options))
|
|
putStr content
|