Overview
| Comment: | Updated to allow updatePassword to prompt if the new password is blank |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
33225e8766f39f8aa4420b420dc4253e |
| User & Date: | rkeene on 2016-03-11 20:56:01 |
| Other Links: | manifest | tags |
Context
|
2016-03-11
| ||
| 21:16 | Updated to do additional error checking check-in: c8a8a96d25 user: rkeene tags: trunk | |
| 20:56 | Updated to allow updatePassword to prompt if the new password is blank check-in: 33225e8766 user: rkeene tags: trunk | |
| 20:43 | Added license check-in: 5b160acdfd 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
}
|
| ︙ | ︙ |