1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
module Lib.Api exposing (..)
import Json.Encode as JE
import Json.Decode as JD
import File exposing (File)
import Http
import Html exposing (Attribute)
import Html.Events exposing (on)
import Lib.Gen exposing (ApiResponse(..), decodeApiResponse)
-- Handy state enum for forms
type State
= Normal
| Loading
| Error Response
type alias Response = ApiResponse
-- User-friendly error message if the response isn't what the code expected.
-- (Technically a good chunk of this function could also be automatically
-- generated by ElmGen.pm, but that wouldn't really have all that much value).
showResponse : Response -> String
showResponse res =
let unexp = "Unexpected response, please report a bug."
in case res of
HTTPError (Http.Timeout) -> "Network timeout, please try again later."
HTTPError (Http.NetworkError) -> "Network error, please try again later."
HTTPError (Http.BadStatus r) -> "Server error " ++ String.fromInt r ++ ", please try again later, or report an issue if this persists."
HTTPError (Http.BadBody r) -> "Invalid response from the server, please report a bug (debug info: " ++ r ++")."
HTTPError (Http.BadUrl _) -> unexp
Success -> unexp
CSRF -> "Invalid CSRF token, please refresh the page and try again."
Throttled -> "Action throttled."
Invalid _ -> "Invalid form data, please report a bug." -- This error is already logged server-side, no debug info necessary
Unauth -> "You do not have the permission to perform this action."
BadEmail -> "Unknown email address."
BadLogin -> "Invalid username or password."
BadPass -> "Your chosen password is in a database of leaked passwords, please choose another one."
Bot -> "Invalid answer to the anti-bot question."
Taken -> "Username already taken, please choose a different name."
DoubleEmail -> "Email address already used for another account."
DoubleIP -> "You can only register one account from the same IP within 24 hours."
Unchanged -> "No changes"
Changed _ _ -> unexp
VNResult _ -> unexp
StaffResult _ -> unexp
ProducerResult _ -> unexp
CharResult _ -> unexp
TraitResult _ -> unexp
ReleaseResult _ -> unexp
ImgFormat -> "Unrecognized image format, please upload a JPG or PNG file."
Image _ _ _ -> unexp
Content _ -> unexp
expectResponse : (Response -> msg) -> Http.Expect msg
expectResponse msg =
let
res r = msg <| case r of
Err e -> HTTPError e
Ok v -> v
in Http.expectJson res decodeApiResponse
-- Send a POST request with a JSON body to the VNDB API and get a Response back.
post : String -> JE.Value -> (Response -> msg) -> Cmd msg
post url body msg =
Http.post
{ url = url
, body = Http.jsonBody body
, expect = expectResponse msg
}
-- Simple image upload API
type ImageType
= Cv
| Sf
| Ch
onFileChange : (List File -> m) -> Attribute m
onFileChange msg = on "change" <| JD.map msg <| JD.at ["target","files"] <| JD.list File.decoder
-- Upload an image to /js/imageupload.json
postImage : ImageType -> File -> (Response -> msg) -> Cmd msg
postImage ty file msg =
let
tys = case ty of
Cv -> "cv"
Sf -> "sf"
Ch -> "ch"
body = Http.multipartBody
[ Http.stringPart "type" tys
, Http.filePart "img" file
]
in Http.post
{ url = "/js/imageupload.json"
, body = body
, expect = expectResponse msg
}
|