Check-in [33225e8766]
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: 33225e8766f39f8aa4420b420dc4253ec61c7254
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
}