1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
{-
oisafe2psore - Quick and dirty script to convert OI Safe export CSV
into the password-store tree format.
Copyright 2016 Eugene Crosser
License: BSD, Apache or GPLv3 - chose whatever suits you.
You will need to adjust paths to the GnuPG program and the CSV
file produced by OI Safe. Also fill in the PGP key I.D.
Description becomes the file name. '*' in the Description is
converted to '+', '/' - to '-'. If this is not sufficient,
adjust the function `sanitize`.
-}
{-# LANGUAGE OverloadedStrings #-}
module Main where
--import Data.Text hiding (head, tail, reverse, length, map)
import Control.Monad
import Text.CSV
import System.Directory
import System.Process
import System.Exit
--gpg = "/usr/local/bin/gpg2"
gpg = "/usr/bin/gpg2"
keyid = "01234567" -- !!!Fill in the real I.D. here!!!
data Entry = Entry { fCategory :: String
, fDescription :: String
, fWebsite :: String
, fUsername :: String
, fPassword :: String
, fNotes :: String
};
instance Show Entry where
show e = fPassword e
++ nonempty "User" (fUsername e)
++ nonempty "Website" (fWebsite e)
++ nonempty "Notes" (fNotes e)
where
nonempty :: String -> String -> String
nonempty l v = if length v > 0 then "\n" ++ l ++ ": " ++ v else ""
pathOf e = (sanitize (fCategory e), sanitize (fDescription e))
sanitize = map substsafe
where
substsafe '/' = '-'
substsafe '*' = '+'
substsafe x = x
record2entry :: Record -> Maybe Entry
record2entry [fCat,fDesc,fWeb,fUser,fPass,fNote,_] =
Just (Entry { fCategory = fCat
, fDescription = fDesc
, fWebsite = fWeb
, fUsername = fUser
, fPassword = fPass
, fNotes = fNote
})
record2entry _ = Nothing
main = parseCSVFromFile "oisafe.csv"
>>= either (error . show) ((mapM_ makeEntry) . tail)
makeEntry :: Record -> IO ()
makeEntry = buildFile . record2entry
buildFile :: Maybe Entry -> IO ()
buildFile Nothing = return ()
buildFile (Just e) = do
let
(sub, file) = pathOf e
dir = "password-store/" ++ sub
path = dir ++ "/" ++ file ++ ".gpg"
cont = show e
(rc, stdout, stderr) <- readProcessWithExitCode gpg ["-ae", "-r", keyid] cont
when (rc /= ExitSuccess) $ error $ "gpg rc " ++ (show rc) ++ " message " ++ stderr
createDirectoryIfMissing True dir
writeFile path stdout
|
