{-
Copyright (C) 2013 John Lenz <lenz@math.uic.edu>
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Affero General Public License for more details.
You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
-}
import Application (makeApplication)
import Prelude (IO, elem, Bool(..), ($), putStr)
import Settings (parseExtra)
import System.Environment (getArgs)
import System.IO (hSetEcho, hFlush, stdin, stdout)
import Yesod.Default.Config (fromArgs)
import Yesod.Default.Main (defaultMain)
import Data.Text.IO (getLine, putStrLn)
import Data.Text.Encoding (encodeUtf8, decodeUtf8)
import Crypto.PasswordStore (makePassword)
genPassword :: IO ()
genPassword = do
putStr "Password: "
hFlush stdout
hSetEcho stdin False
p <- getLine
hSetEcho stdin True
putStr "\n"
h <- makePassword (encodeUtf8 p) 12
putStrLn $ decodeUtf8 h
main :: IO ()
main = do
a <- getArgs
if "--make-password" `elem` a
then genPassword
else defaultMain (fromArgs parseExtra) makeApplication