The Trunk: SMLoader-ul.74.mcz

Levente Uzonyi uploaded a new version of SMLoader to project The Trunk:
http://source.squeak.org/trunk/SMLoader-ul.74.mcz

==================== Summary ====================

Name: SMLoader-ul.74
Author: ul
Time: 28 February 2011, 8:08:20.614 am
UUID: 4d7a5c58-81e1-f54a-8944-abd295b857ab
Ancestors: SMLoader-cmm.73

Don't reference WebUtils directly from SMClient >> #uploadFile:.

=============== Diff against SMLoader-cmm.73 ===============

Item was changed:
  ----- Method: SMClient>>uploadFile: (in category 'api') -----
  uploadFile: aDirectoryEntryFile
  "Upload aDirectoryEntryFile to the uploads area of SqueakMap for my userId."
  | boundary fieldMap fileStream doc |
  fileStream := aDirectoryEntryFile readStream binary.
  [ doc := MIMEDocument
  contentType: (MIMEDocument guessTypeFromName: aDirectoryEntryFile name)
  content: fileStream contents
  url: fileStream asUrl ] ensure:
  [ fileStream ifNotNil: [ fileStream close ] ].
+ boundary := (Smalltalk at: #WebUtils) multipartBoundary.
- boundary := WebUtils multipartBoundary.
  fieldMap := {'upload' -> doc}.
  ^ (self client
  httpPost: self smUrl , '/account/upload'
  content:
+ ((Smalltalk at: #WebUtils)
- (WebUtils
  encodeMultipartForm: fieldMap
  boundary: boundary)
  type: MIMEDocument contentTypeMultipart , '; boundary=' , boundary
  do: [ : req | req headerAt: 'Connection' put: 'keep-alive' ])
  content ;
  yourself!