Check-in [33225e8766]
Overview
SHA1:33225e8766f39f8aa4420b420dc4253ec61c7254
Date: 2016-03-11 20:56:01
User: rkeene
Comment:Updated to allow updatePassword to prompt if the new password is blank
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: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)
20:43
[5b160acdfd] Added license (user: rkeene, tags: trunk)
Changes

Modified hunter2 from [25b5870365] to [745b700e51].

438
439
440
441
442
443
444




445
446
447
448
449
450
451
}

proc getPassword {passwordName} {
	puts [_getPassword $passwordName]
}

proc updatePassword {passwordName password} {




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

	_addPassword $passwordName $password $publicKeys
}








>
>
>
>







438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
}

proc getPassword {passwordName} {
	puts [_getPassword $passwordName]
}

proc updatePassword {passwordName password} {
	if {$password eq ""} {
		set password [_prompt "Please enter the new password: "]
	}

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

	_addPassword $passwordName $password $publicKeys
}