pwman-tools

Check-in [c039cd9bd1]
Login

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

Overview
Comment:Some spaces to tabs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: c039cd9bd197aa69237d89293f831941f76afa2c6ee120d1bbfa6a0f9b14645c
User & Date: atomicules 2019-06-29 11:05:13
Context
2019-08-09
13:36
Handle single and double quotes. Update README with assumptions

Quite a hacky mess to handle single and double quotes but seems to work. This was the test file used:

```
<?xml version="1.0"?>
<PWMan_PasswordList version="3"><PwList name="Main"><PwList name="SECURE-NOTES"><PwItem><name>test 1</name><host>http://sn</host><user>me</user><passwd/><launch>Stuff '</launch></PwItem><PwItem><name>test 2</name><host>http://sn</host><user>me</user><passwd/><launch>Stuff "</launch></PwItem><PwItem><name>test 3</name><host>http://sn</host><user>me</user><passwd/><launch>Stuff ;</launch></PwItem></PwList></PwList></PWMan_PasswordList>
``` check-in: e97152f612 user: atomicules tags: master, trunk

2019-06-29
11:05
Some spaces to tabs check-in: c039cd9bd1 user: atomicules tags: master, trunk
2019-06-26
08:11
Add to known issues post-migration check-in: 8629bde9d1 user: atomicules tags: master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to pwman2op.lisp.

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
; Load libraries
; Had parsing errors with xmls so use cxml instead
(ql:quickload "cxml")

; Just assume two template types
; Obtained from `op get template <category>`
(defun template-secure-note
  (content)
  (concatenate 'string "{\"notesPlain\":\"" content "\",\"sections\":[]}"))

(defun template-login
  (username password content)
  (concatenate 'string "{\"notesPlain\":\"" content "\",\"sections\":[],\"passwordHistory\":[],\"fields\":[{\"value\":\"" username "\",\"name\":\"username\",\"type\":\"T\",\"designation\":\"username\"},{\"value\":\"" password "\",\"name\":\"password\",\"type\":\"P\",\"designation\":\"password\"}]}"))

(defun send-to-op
	(op-category pwman-category name host username passwd launch)
	(progn
		; Case would be better if I can figure that out
		(defparameter template
			(if (string= op-category "Login")







|
|


|
|







7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
; Load libraries
; Had parsing errors with xmls so use cxml instead
(ql:quickload "cxml")

; Just assume two template types
; Obtained from `op get template <category>`
(defun template-secure-note
	(content)
	(concatenate 'string "{\"notesPlain\":\"" content "\",\"sections\":[]}"))

(defun template-login
	(username password content)
	(concatenate 'string "{\"notesPlain\":\"" content "\",\"sections\":[],\"passwordHistory\":[],\"fields\":[{\"value\":\"" username "\",\"name\":\"username\",\"type\":\"T\",\"designation\":\"username\"},{\"value\":\"" password "\",\"name\":\"password\",\"type\":\"P\",\"designation\":\"password\"}]}"))

(defun send-to-op
	(op-category pwman-category name host username passwd launch)
	(progn
		; Case would be better if I can figure that out
		(defparameter template
			(if (string= op-category "Login")