File: test-S3.config

package info (click to toggle)
tcllib 2.0%2Bdfsg-4
  • links: PTS
  • area: main
  • in suites: trixie
  • size: 83,572 kB
  • sloc: tcl: 306,798; ansic: 14,272; sh: 3,035; xml: 1,766; yacc: 1,157; pascal: 881; makefile: 124; perl: 84; f90: 84; python: 33; ruby: 13; php: 11
file content (14 lines) | stat: -rw-r--r-- 335 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# -*- 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]