No OneTemporary
Actions

Size

744 B

Referenced Files

None

Subscribers

None

View Options

	diff --git a/Vault.tcl b/Vault.tcl
	index a4f2de0..9d56f48 100644
	--- a/Vault.tcl
	+++ b/Vault.tcl
	@@ -1,22 +1,25 @@
	package require vault

	proc vault_login {} {
	global vault

	::vault::init $vault(host)
	::vault::appRoleLogin $vault(roleID) $vault(secretID)
	}

	proc vault_get {property {key {}}} {
	if {[catch {set credential [::vault::readKV apps/viperserv/$property $key]} err]} {
	if {[string match "403 Forbidden" $err]} {
	# Token expired?
	vault_login
	return [::vault::readKV apps/viperserv/$property $key]
	}
	+
	+ # Errors like 503 if unsealed we can't recover easily, so propagate
	+ error $err
	}

	return $credential
	}

	vault_login