(client := ZnAWSS3Client new) accessKeyId: '2ZGSSBGBHQGJ9VV5N441'; secretAccessKey: 'OtxrzxIsfpFjA7SwPzILwy8Bw21TLhquhboDYROV'; checkIntegrity: true.
client buckets.
client keysIn: 'my-bucket'.
client keysIn: 'my-bucket' query: (Dictionary with: 'prefix'->'my-').
client at: 'my-bucket' -> 'my-key'.
client at: 'my-bucket' -> 'my-key' put: (ZnEntity with: '0123456789').
client at: 'my-bucket' -> 'my-key' put: (ZnEntity with: 'Smalltalk rules S3!') headers: (Dictionary with: 'x-amz-acl'->'public-read').
Sven
PS: the code does contain comments but you will need to read up on S3 first. To run anything you will have to create an AWS S3 account.
Nice! Did you check the work of Ernst Micklei and Jan van de Sandt? They implemented smalltalk libraries for S3, but in addition other services (e.g. SimpleDB) http://blog.doit.st/ http://www.slideshare.net/esug/cloudfork -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.