pwman-tools

Check-in [e9eafc3f15]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix identation
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: e9eafc3f151653e7af42d3901ede958c73bc8e18da75a7743c611290a1db0a87
User & Date: atomicules@lavabit.com 2012-12-10 10:04:09
Context
2013-02-03
21:35
Use Ascii armoured output

Note that this doesn't hugely matter. PWman has no trouble reading the
file under normal encryption and will convert it to Ascii when saving it
anyway, but using Ascii up front is more what you'd expect. check-in: d3432a1e16 user: atomicules@lavabit.com tags: master, trunk

2012-12-10
10:04
Fix identation check-in: e9eafc3f15 user: atomicules@lavabit.com tags: master, trunk
10:02
Remove spurious spaces check-in: adf34078f1 user: atomicules@lavabit.com tags: master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lastpass2pwman.lisp.

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
			(multiple-value-bind (returned? groupname groupentries) (group)
			(if returned?
				(progn
					(format stream "<PwList name=\"~a\">" groupname)
					;Then loop through each entry in group
					(loop for entry in groupentries
						do (format stream
								"<PwItem><name>~a</name><host>~a</host><user>~a</user><passwd>~a</passwd><launch></launch></PwItem>"
								(xmls:toxml (fifth entry))
								(xmls:toxml (first entry))
								(xmls:toxml (second entry))
								(if (null (third entry)) ;Secure Notes have no password
									(xmls:toxml (fourth entry)) ;Use extra field if Secure Note
									(xmls:toxml (third entry)))))
					(format stream "</PwList>"))
				(return)))))
	(format stream "</PwList></PWMan_PasswordList>"))
;Move original file to backup
(rename-file (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db.bak"))
;gpg encrpyt the file
(let ((proc (sb-ext:run-program "gpg" (list "-r" gpgid "-o" (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") "-e" "pwman.txt") :search :environment)))







|
|
|
|
|
|
|







33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
			(multiple-value-bind (returned? groupname groupentries) (group)
			(if returned?
				(progn
					(format stream "<PwList name=\"~a\">" groupname)
					;Then loop through each entry in group
					(loop for entry in groupentries
						do (format stream
							"<PwItem><name>~a</name><host>~a</host><user>~a</user><passwd>~a</passwd><launch></launch></PwItem>"
							(xmls:toxml (fifth entry))
							(xmls:toxml (first entry))
							(xmls:toxml (second entry))
							(if (null (third entry)) ;Secure Notes have no password
								(xmls:toxml (fourth entry)) ;Use extra field if Secure Note
								(xmls:toxml (third entry)))))
					(format stream "</PwList>"))
				(return)))))
	(format stream "</PwList></PWMan_PasswordList>"))
;Move original file to backup
(rename-file (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db.bak"))
;gpg encrpyt the file
(let ((proc (sb-ext:run-program "gpg" (list "-r" gpgid "-o" (concatenate 'string (sb-unix::posix-getenv "HOME") "/.pwman.db") "-e" "pwman.txt") :search :environment)))