PixivAppAPI.fs

namespace PixivFS

open System
open FSharp.Data
open System.Web

type PixivAppAPI(access_token, refresh_token, user_id) =
    inherit PixivBaseAPI(access_token, refresh_token, user_id)
    new() = PixivAppAPI(null, null, null)
    new(baseapi : PixivBaseAPI) =
        PixivAppAPI
            (baseapi.access_token, baseapi.refresh_token, baseapi.user_id)

    //可通过req_auth来决定是否使用登录后的数据
    member __.no_auth_requests_call (method, url, ?headers, ?query, ?body,
                                     ?req_auth) =
        let req_auth = defaultArg req_auth true
        let mutable headers = defaultArg headers []
        if not (List.exists (fun elem ->
                    let (a, _) = elem
                    a = "User-Agent" || a = "user-agent") headers)
        then
            headers <- headers
                       @ [ "App-OS", "ios"
                           "App-OS-Version", "10.3.1"
                           "App-Version", "6.7.1"

                           "User-Agent",
                           "PixivIOSApp/6.7.1 (iOS 10.3.1; iPhone8,1)" ]
        if req_auth then
            __.require_auth()
            headers <- headers
                       @ [ "Authorization",
                           String.Format("Bearer {0}", __.access_token) ]
        __.requests_call (method, url, headers, ?query = query, ?body = body)

    member __.no_auth_requests_call_stream (method, url, ?headers, ?query, ?body,
                                            ?req_auth) =
        let req_auth = defaultArg req_auth true
        let mutable headers = defaultArg headers []
        if not (List.exists (fun elem ->
                    let (a, _) = elem
                    a = "User-Agent" || a = "user-agent") headers)
        then
            headers <- headers
                       @ [ "App-OS", "ios"
                           "App-OS-Version", "10.3.1"
                           "App-Version", "6.7.1"

                           "User-Agent",
                           "PixivIOSApp/6.7.1 (iOS 10.3.1; iPhone8,1)" ]
        if req_auth then
            __.require_auth()
            headers <- headers
                       @ [ "Authorization",
                           String.Format("Bearer {0}", __.access_token) ]
        __.requests_call_stream
            (method, url, headers, ?query = query, ?body = body)

    //用户详情
    member __.user_detail (user_id, ?filter, ?req_auth) =
        let filter = defaultArg filter "for_ios"
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/detail"

        let query =
            [ "user_id", user_id
              "filter", filter ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //用户作品集
    //type: [illust, manga]
    member __.user_illusts (user_id, ?illust_type, ?filter, ?offset, ?req_auth) =
        let illust_type = defaultArg illust_type "illust"
        let filter = defaultArg filter "for_ios"
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/illusts"

        let mutable query =
            [ "user_id", user_id
              "filter", filter ]
        if not (String.IsNullOrEmpty illust_type) then
            query <- query @ [ "type", illust_type ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //用户收藏
    //restrict: [public, private]
    //tag: 从user_bookmark_tags_illust获取的收藏标签
    member __.user_bookmarks_illust (user_id, ?restrict, ?filter,
                                     ?max_bookmark_id, ?tag, ?req_auth) =
        let restrict = defaultArg restrict "public"
        let filter = defaultArg filter "for_ios"
        let max_bookmark_id = defaultArg max_bookmark_id null
        let tag = defaultArg tag null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/bookmarks/illust"

        let mutable query =
            [ "user_id", user_id
              "restrict", restrict
              "filter", filter ]
        if not (String.IsNullOrEmpty max_bookmark_id) then
            query <- query @ [ "max_bookmark_id", max_bookmark_id ]
        if not (String.IsNullOrEmpty tag) then query <- query @ [ "tag", tag ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //关注者的新作品
    //restrict: [public, private]
    member __.illust_follow (?restrict, ?offset, ?req_auth) =
        let restrict = defaultArg restrict "public"
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v2/illust/follow"
        let mutable query = [ "restrict", restrict ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //作品详情（iOS中未使用）
    member __.illust_detail (illust_id, ?req_auth) =
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/illust/detail"
        let query = [ "illust_id", illust_id ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //作品评论
    member __.illust_comments (illust_id, ?offset, ?include_total_comments,
                               ?req_auth) =
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/illust/comments"
        let mutable query = [ "illust_id", illust_id ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        if not (include_total_comments.IsNone) then
            query <- query @ [ "include_total_comments",
                               (if include_total_comments.Value then "true"
                                else "false") ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //相关作品
    member __.illust_related (illust_id, ?filter, ?seed_illust_ids, ?req_auth) =
        let filter = defaultArg filter "for_ios"
        let seed_illust_ids = defaultArg seed_illust_ids []
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v2/illust/related"

        let mutable query =
            [ "illust_id", illust_id
              "filter", filter ]
        if not seed_illust_ids.IsEmpty then
            for x in seed_illust_ids do
                query <- query @ [ "seed_illust_ids[]", x ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //首页推荐
    //content_type: [illust, manga]
    member __.illust_recommended (?content_type, ?include_ranking_label, ?filter,
                                  ?max_bookmark_id_for_recommend,
                                  ?min_bookmark_id_for_recent_illust, ?offset,
                                  ?include_ranking_illusts, ?bookmark_illust_ids,
                                  ?include_privacy_policy, ?req_auth) =
        let content_type = defaultArg content_type "illust"
        let include_ranking_label = defaultArg include_ranking_label true
        let filter = defaultArg filter "for_ios"
        let max_bookmark_id_for_recommend =
            defaultArg max_bookmark_id_for_recommend null
        let min_bookmark_id_for_recent_illust =
            defaultArg min_bookmark_id_for_recent_illust null
        let offset = defaultArg offset null
        let bookmark_illust_ids = defaultArg bookmark_illust_ids []
        let include_privacy_policy = defaultArg include_privacy_policy null
        let req_auth = defaultArg req_auth true

        let url =
            if req_auth then "https://app-api.pixiv.net/v1/illust/recommended"
            else "https://app-api.pixiv.net/v1/illust/recommended-nologin"

        let mutable query =
            [ "content_type", content_type
              "include_ranking_label",
              (if include_ranking_label then "true"
               else "false")
              "filter", filter ]

        if not (String.IsNullOrEmpty max_bookmark_id_for_recommend) then
            query <- query
                     @ [ "max_bookmark_id_for_recommend",
                         max_bookmark_id_for_recommend ]
        if not (String.IsNullOrEmpty min_bookmark_id_for_recent_illust) then
            query <- query
                     @ [ "min_bookmark_id_for_recent_illust",
                         min_bookmark_id_for_recent_illust ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        if not include_ranking_illusts.IsNone then
            query <- query @ [ "include_ranking_illusts",
                               (if include_ranking_illusts.Value then "true"
                                else "false") ]
        if not req_auth then
            let mutable ids = ""
            for x in bookmark_illust_ids do
                ids <- ids + x + ","
            if not (ids = "") then
                ids <- ids.TrimEnd ','
                query <- query @ [ "bookmark_illust_ids", ids ]
        if not (String.IsNullOrEmpty include_privacy_policy) then
            query <- query
                     @ [ "include_privacy_policy", include_privacy_policy ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //作品排行
    //mode: [day, week, month, day_male, day_female, week_original, week_rookie, day_manga]
    //date: yyyy-mm-dd
    member __.illust_ranking (?mode, ?filter, ?date, ?offset, ?req_auth) =
        let mode = defaultArg mode "day"
        let filter = defaultArg filter "for_ios"
        let date = defaultArg date null
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/illust/ranking"

        let mutable query =
            [ "mode", mode
              "filter", filter ]
        if not (String.IsNullOrEmpty date) then
            query <- query @ [ "date", date ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //趋势标签
    member __.trending_tags_illust (?filter, ?req_auth) =
        let filter = defaultArg filter "for_ios"
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/trending-tags/illust"
        let query = [ "filter", filter ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //搜索
    //search_target - 搜索类型
    //  partial_match_for_tags  - 标签部分一致
    //  exact_match_for_tags    - 标签完全一致
    //  title_and_caption       - 标题说明文
    //sort: [date_desc, date_asc]
    //duration: [within_last_day, within_last_week, within_last_month]
    member __.search_illust (word, ?search_target, ?sort, ?duration, ?filter,
                             ?offset, ?req_auth) =
        let search_target = defaultArg search_target "partial_match_for_tags"
        let sort = defaultArg sort "date_desc"
        let duration = defaultArg duration null
        let filter = defaultArg filter "for_ios"
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/search/illust"

        let mutable query =
            [ "word", word
              "search_target", search_target
              "sort", sort
              "filter", filter ]
        if not (String.IsNullOrEmpty duration) then
            query <- query @ [ "duration", duration ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //作品收藏详情
    member __.illust_bookmark_detail (illust_id, ?req_auth) =
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v2/illust/bookmark/detail"
        let query = [ "illust_id", illust_id ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //新增收藏
    member __.illust_bookmark_add (illust_id, ?restrict, ?tags, ?req_auth) =
        let restrict = defaultArg restrict "public"
        let tags = defaultArg tags []
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v2/illust/bookmark/add"

        let mutable data =
            [ "illust_id", illust_id
              "restrict", restrict ]

        let mutable tagsstr = ""
        for x in tags do
            tagsstr <- tagsstr + x + " "
        tagsstr <- tagsstr.Trim()
        if not (tagsstr = "") then
            data <- data @ [ "tags", tagsstr |> HttpUtility.UrlEncode ]
        __.no_auth_requests_call("POST", url, body = FormValues data,
                                 req_auth = req_auth).Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //删除收藏
    member __.illust_bookmark_delete (illust_id, ?req_auth) =
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/illust/bookmark/delete"
        let data = [ "illust_id", illust_id ]
        __.no_auth_requests_call("POST", url, body = FormValues data,
                                 req_auth = req_auth).Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //用户收藏标签列表
    member __.user_bookmark_tags_illust (?restrict, ?offset, ?req_auth) =
        let restrict = defaultArg restrict "public"
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/bookmark-tags/illust"
        let mutable query = [ "restrict", restrict ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //Following用户列表
    member __.user_following (user_id, ?restrict, ?offset, ?req_auth) =
        let restrict = defaultArg restrict "public"
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/following"

        let mutable query =
            [ "user_id", user_id
              "restrict", restrict ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //Followers用户列表
    member __.user_follower (user_id, ?filter, ?offset, ?req_auth) =
        let filter = defaultArg filter "for_ios"
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/follower"

        let mutable query =
            [ "user_id", user_id
              "filter", filter ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //关注用户
    member __.user_follow_add (user_id, ?restrict, ?req_auth) =
        let restrict = defaultArg restrict "public"
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/follow/add"

        let data =
            [ "user_id", user_id
              "restrict", restrict ]
        __.no_auth_requests_call("POST", url, body = FormValues data,
                                 req_auth = req_auth).Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //取关用户
    member __.user_follow_delete (user_id, ?restrict, ?req_auth) =
        let restrict = defaultArg restrict "public"
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/follow/delete"

        let data =
            [ "user_id", user_id
              "restrict", restrict ]
        __.no_auth_requests_call("POST", url, body = FormValues data,
                                 req_auth = req_auth).Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //好P友
    member __.user_mypixiv (user_id, ?offset, ?req_auth) =
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/user/mypixiv"
        let mutable query = [ "user_id", user_id ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //黑名单用户
    member __.user_list (user_id, ?filter, ?offset, ?req_auth) =
        let filter = defaultArg filter "for_ios"
        let offset = defaultArg offset null
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v2/user/list"

        let mutable query =
            [ "user_id", user_id
              "filter", filter ]
        if not (String.IsNullOrEmpty offset) then
            query <- query @ [ "offset", offset ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //ugoira信息
    member __.ugoira_metadata (illust_id, ?req_auth) =
        let req_auth = defaultArg req_auth true
        let url = "https://app-api.pixiv.net/v1/ugoira/metadata"
        let query = [ "illust_id", illust_id ]
        __.no_auth_requests_call("GET", url, query = query, req_auth = req_auth)
          .Body.ToString()
        |> __.get_json
        |> JsonValue.Parse

    //特辑详情（伪装成Chrome）
    member __.showcase_article (showcase_id) =
        let url = "https://www.pixiv.net/ajax/showcase/article"

        let headers =
            [ "User-Agent",
              "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36"
              "Referer", "https://www.pixiv.net" ]

        let query = [ "article_id", showcase_id ]
        __.no_auth_requests_call("GET", url, headers = headers, query = query,
                                 req_auth = false).Body.ToString()
        |> __.get_json
        |> JsonValue.Parse