Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import Hack
- import qualified Web.Encodings as Web
- import Data.ByteString.Lazy.Char8 as BS
- galleryDispatch ai@(\x -> head (pElements x) -> "u") =
- case requestMethod (a_env ai) of
- POST -> do
- dbg "galleryDispatch: POST on /upload."
- let env = a_env ai
- case ((,) <$> lookup "Content-Type" (http env)
- <*> lookup "Content-Length" (http env)) of
- Nothing -> do
- dbg "Ack!"
- redirect' "/profile"
- Just (ty,_len) -> do
- dbg $ "TY: " ++ (show ty)
- let bound = replace "boundary=" "" $ head $ drop 1 $ split " " ty
- dbg $ "Boundary: " ++ (show bound)
- let uid = fromJust $ a_uid ai
- -- For testing, I'm just going to send one image
- let (_,[(a,fi)]) = Web.parseMultipart bound $ hackInput env
- dbg $ "a: " ++ (show $ BS.unpack a)
- dbg $ "Content-Type: " ++ (show $ BS.unpack $ Web.fileContentType fi)
- let filename = BS.unpack $ Web.fileName fi
- dbg $ "Filename: " ++ (show filename)
- let s3o_bucket = "static.iplayedthat.com"
- let s3o_ct = (show $ BS.unpack $ Web.fileContentType fi)
- let s3o_data = Web.fileContent fi
- rq <- sendObject awsConn $ S3Object {
- obj_bucket = s3o_bucket,
- obj_name = ("images/" ++ uid ++ "/" ++ filename),
- content_type = s3o_ct,
- obj_headers = [("acl","public-read")],
- obj_data = s3o_data }
- dbg $ "From AWS: " ++ (show rq)
- sendRaw "success"
Add Comment
Please, Sign In to add comment