# -*- tcl -*-
# Scope: proc S3loadkeys

set i [open [asset aws-access-id]         r]
set k [open [asset aws-secret-access-key] r]

set id [read $i] ; close $i
set ky [read $k] ; close $k

S3::Configure -accesskeyid $id -secretaccesskey $ky

# Memoize
proc S3loadKeys {} \
    [list S3::Configure -accesskeyid $id -secretaccesskey $ky]