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    438   }
   439    439   
   440    440   proc getPassword {passwordName} {
   441    441   	puts [_getPassword $passwordName]
   442    442   }
   443    443   
   444    444   proc updatePassword {passwordName password} {
          445  +	if {$password eq ""} {
          446  +		set password [_prompt "Please enter the new password: "]
          447  +	}
          448  +
   445    449   	db eval {SELECT publicKey FROM passwords WHERE name = $passwordName;} row {
   446    450   		lappend publicKeys $row(publicKey)
   447    451   	}
   448    452   
   449    453   	_addPassword $passwordName $password $publicKeys
   450    454   }
   451    455