Check-in [c8a8a96d25]
Overview
SHA1:c8a8a96d25eb2a136e823d599511a4761652d4dc
Date: 2016-03-11 21:16:58
User: rkeene
Comment:Updated to do additional error checking
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2016-03-11
21:17
[51935c7f5c] Made error reporting less verbose (user: rkeene, tags: trunk)
21:16
[c8a8a96d25] Updated to do additional error checking (user: rkeene, tags: trunk)
20:56
[33225e8766] Updated to allow updatePassword to prompt if the new password is blank (user: rkeene, tags: trunk)
Changes

Modified hunter2 from [745b700e51] to [60941617be].

247
248
249
250
251
252
253





254
255
256
257
258
259
260
...
280
281
282
283
284
285
286





287
288
289
290
291
292
293
	puts ""
	flush stdout

	return $password
}

proc _getPassword {name} {





	foreach slotInfoDict [_listCertificates] {
		unset -nocomplain slotInfo
		array set slotInfo $slotInfoDict

		set pubkey $slotInfo(pubkey)
		set prompt $slotInfo(prompt)

................................................................................
		}
	}

	return -code error "No valid keys"
}

proc _modifyPublicKeys {passwordName userNames sql} {





	set publicKeys [list]

	db eval {SELECT publicKey FROM passwords WHERE name = $passwordName;} row {
		lappend publicKeys $row(publicKey)
	}

	set changeRequired 0







>
>
>
>
>







 







>
>
>
>
>







247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
...
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
	puts ""
	flush stdout

	return $password
}

proc _getPassword {name} {
	set exists [db eval {SELECT 1 FROM passwords WHERE name = $name LIMIT 1;}]
	if {$exists != "1"} {
		return -code error "Password \"$name\" does not exists."
	}

	foreach slotInfoDict [_listCertificates] {
		unset -nocomplain slotInfo
		array set slotInfo $slotInfoDict

		set pubkey $slotInfo(pubkey)
		set prompt $slotInfo(prompt)

................................................................................
		}
	}

	return -code error "No valid keys"
}

proc _modifyPublicKeys {passwordName userNames sql} {
	set exists [db eval {SELECT 1 FROM passwords WHERE name = $passwordName LIMIT 1;}]
	if {$exists != "1"} {
		return -code error "Password \"$passwordName\" does not exists."
	}

	set publicKeys [list]

	db eval {SELECT publicKey FROM passwords WHERE name = $passwordName;} row {
		lappend publicKeys $row(publicKey)
	}

	set changeRequired 0