@@ -249,10 +249,15 @@ 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) @@ -282,10 +287,15 @@ 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) }