34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# These three are required to do the auth, so always require them.
# Note that package registry and package fileutil are required
# by the individual routines that need them. Grep for "package".
package require sha1
package require md5
package require base64
package provide S3 1.0.3
namespace eval S3 {
variable config ; # A dict holding the current configuration.
variable config_orig ; # Holds configuration to "reset" back to.
variable debug 0 ; # Turns on or off S3::debug
variable debuglog 0 ; # Turns on or off debugging into a file
variable bgvar_counter 0 ; # Makes unique names for bgvars.
|
|
|
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# These three are required to do the auth, so always require them.
# Note that package registry and package fileutil are required
# by the individual routines that need them. Grep for "package".
package require sha1
package require md5
package require base64
package provide S3 1.0.4
namespace eval S3 {
variable config ; # A dict holding the current configuration.
variable config_orig ; # Holds configuration to "reset" back to.
variable debug 0 ; # Turns on or off S3::debug
variable debuglog 0 ; # Turns on or off debugging into a file
variable bgvar_counter 0 ; # Makes unique names for bgvars.
|