ASOCでXML-RPCのテスト v3

オープンソースのXMLRPC.frameworkを用いてXMLRPCを実行するAppleScriptです。

XMLRPCといえば、WordPressか郵便専門ネットかというほど用途が限定されていますが、本Blog（Powered By WordPress）の年初の再構築など、使えないと大変な思いをすることがあるので、定期的に調査しています。

初回掲載時は郵便専門ネットのXMLRPCはバージョン番号を”15.09a”と返してきましたが、再掲載時に実行してみたら”18.10a”を返してきました。

–> Download XMLRPC.framework (To ~/Library/Frameworks/)

AppleScript名：ASOCでXML-RPCのテスト v3

— Created 2015-10-06 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "XMLRPC"
–XMLRPC.framework
–https://cocoapods.org/pods/xmlrpc
–Cocoa XML-RPC Framework © 2011 Divisible by Zero
–v2.3.4

set aRes to (callXMLRPC("http://yubin.senmon.net/service/xmlrpc/", "yubin.getMaxFetchCount", missing value)) as integer
–>　　100

set bRes to (callXMLRPC("http://yubin.senmon.net/service/xmlrpc/", "yubin.getVersion", missing value)) as text
–> "15.09a"

on callXMLRPC(paramURL, aMethod, aParamList)
　　
　　set aURL to current application’s |NSURL|’s URLWithString:paramURL
　　set aReq to current application’s XMLRPCRequest’s alloc()’s initWithURL:aURL
　　aReq’s setMethod:aMethod withParameter:aParamList
　　set aRes to current application’s XMLRPCConnection’s sendSynchronousXMLRPCRequest:aReq |error|:(missing value)
　　
　　set errF to (aRes’s isFault()) as boolean
　　
　　if errF = true then
　　　　set xmlRPCres to faultCode of aRes
　　　　–set xmlRPCbody to faultString of aRes
　　else
　　　　set xmlRPCres to aRes’s object()
　　　　–set xmlRPCbody to aRes’s body()
　　end if
　　
　　return xmlRPCres
　　
end callXMLRPC