• 常用操作
  • 登录后台
  • 网站基本设置
  • 评论设置
  • 菜单管理
  • 主题外观
• Markdown 简介

这是程序自动发布的文章。如果您看到这篇文章，表示您的 Blog 已经安装成功！

如果您对 Firekylin 不是很熟悉，可以先阅读以下常用操作了解一下。

常用操作

登录后台

Firekylin 的后台登录入口在 ~/admin

网站基本设置

后台的 系统设置 提供了与网站相关的选项，例如可在其中的 基本设置 中设置网站名称、Logo地址等。
更多的设置，请参考 官方 WIKI 的 系统设置

评论设置

Firekylin 没有内置评论模块。但是，Firekylin 可方便地使用第三方评论系统。在后台的 系统设置 的 评论设置 的 自定义 模式下粘贴第三方评论系统的代码即可。

Firekylin 还对 Disqus 、畅言 、网易云跟帖 提供了特别的支持，只需要填写对应的网站id即可，不需要粘贴具体的代码。

菜单管理

后台的 外观设置 可进行 菜单管理，包括新增菜单、删除菜单、菜单排序等。
新增菜单时，如填写了菜单属性（例如属性为 home），Firekylin 自带的主题会从图标库尝试寻找 icon-home 作为该菜单的图标，如未查到匹配的则不会显示图标。

主题外观

Firekylin 目前只带了一套主题，所以基于 Firekylin 架构的网站长得都差不多^_^
主题外观的使用、修改、创建可参考官网 WIKI 的 主题外观。
欢迎越来越多的热心用户为 Firekylin 开发主题外观，开发手册详见 主题开发。

Markdown 简介

Firekylin 的编辑器为支持 Markdown 语法的编辑器。Markdown 是一种简化的标记语言，普通的纯文本内容（例如 Windows 的记事本撰写的内容）经过 Markdown 标记之后，可被渲染成赏心悦目的富格式文本。

Markdown 的格式说明可参考：英文版、中文版

好了，介绍就这么多，快开始你的 Blog 之旅吧！

• 先说几个场景：
• 基础
• 场景1
• 场景2
• 场景3
• 代码下载
• 总结

先说几个场景：

1. 使用文件字符流打开一个文本文档，但是我不确定是以UTF8编码的还是GB18030,所以就无法准确设置TranslateTable，就导致了中文乱码问题。
2. 有一个文件下载的csp,其中文件名参数可能是中文，如果在一个UTF8编码的界面直接调用时，后台取到的文件名就会是乱码。
3. 接收到字节流后需要转成字符流读取内容，但是无法确定编码格式，就无法准确的转成字符。

以上几个场景虽然大多都可以提前做好约定解决，但是可能有历史原因或者种种情况，需要我们自己能够解决，于是就有了下面的故事。

基础

首先我方系统使用GB18030编码，然后碰到的情况大多都是对方可能是UTF8编码，所以主要来解决识别字节流是不是UTF8编码的。

然后查了一个UTF8编码格式

• 1字节 0xxxxxxx
• 2字节 110xxxxx 10xxxxxx
• 3字节 1110xxxx 10xxxxxx 10xxxxxx
• 4字节 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
• 5字节 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
• 6字节 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx

有了UTF8编码格式，然后逐字节进行判断，看整个字节序列是否完美符合UTF8编码，所以先实现了方法IfMatchUTF8Bytes

/// 是否是符合UTF8的字节序列
/// bytes 字节串或字节流
/// maxLen 最大验证长度 超过此长度的不再验证
/// Output Count  符合1-6字节编码标准的字符数 $lb(f1,f2,f3,f4,f5,f6)
/// 返回值 1符合 0不符合
ClassMethod IfMatchUTF8Bytes(bytes, maxLen = 30000, Output Count)
{
    ///code
}

基于IfMatchUTF8Bytes方法，然后又实现了一个方法GuessUTF8Bytes，此方法又做了一些其它的判断：如果前三字节为UTF8BOM则直接认定为UTF8，如果校验结果中只有1、2字节的字符，而3-6字节字符没有，则认定为不是UTF8编码。

/// 猜测是否是UTF8字节序列
/// bytes 字节串或字节流
/// 返回值 1符合 0不符合
ClassMethod GuessUTF8Bytes(bytes)
{
    ///code
}

场景1

基于以上，我们就可以实现一个方法打开某文件获得字符流，自动判断编码并设置TranslateTable为相应编码了。

/// 打开某文件获得字符流（自动判断编码并设置TranslateTable为相应编码 目前只支持UTF8）
/// s fileSteam=##class(BSP.SYS.COM.Charset).OpenFileCharacterStream(fullName)
ClassMethod OpenFileCharacterStream(fullName = "", autocharset) As %FileCharacterStream
{
    s fileSteam=##class(%FileCharacterStream).%New()

    s sc=fileSteam.LinkToFile(fullName)
    if $$$ISERR(sc) {
        q ""
    }
    s oldTranslateTable=fileSteam.TranslateTable
    s fileSteam.TranslateTable="RAW"  //判断字节 需要先将TranslateTable设置成RAW
    if ..GuessUTF8Bytes(fileSteam) {
        d fileSteam.Rewind()
        s fileSteam.TranslateTable="UTF8"
    }else{
        d fileSteam.Rewind()
        s fileSteam.TranslateTable=oldTranslateTable    
    }
    q fileSteam
}

这样我们就可以随便读取本地的文本文件了，也不会乱码了，解决场景1。

场景2

如何判断一个请求它的参数是以UTF8编码的还是以GB18030呢，通过测试发现我们可以通过GetCgiEnv("QUERY_STRING")获取到请求的参数的，且测试发现不同浏览器设置可能不同，有的为URL编码后的，有的则只是按UTF8或GB18030编码后的字节序列。对于URL编码后的可以先使用$zconvert(url,"I","URL")解码获得字节序列再进行判断，故而实现了方法IfMatchUTF8EscapedURL与GuessUTF8EscapedURL。

/// 是否是符合UTF8编码并进行URL编码的字符串
/// url 字符传
/// maxLen 最大验证长度 超过此长度的不再验证
/// Output Count  符合1-6字节编码标准的字符数 $lb(f1,f2,f3,f4,f5,f6)
/// 返回值 1符合 0不符合
ClassMethod IfMatchUTF8EscapedURL(url, maxLen = 30000, Output Count)
{
    s bytes=$zconvert(url,"I","URL")
    s ret=..IfMatchUTF8Bytes(bytes,maxLen,.Count)
    q ret
}
/// 猜测是符合UTF8编码并进行URL编码的字符串
/// url 字符传
/// 返回值 1符合 0符合
ClassMethod GuessUTF8EscapedURL(url)
{
    ///code
}

基于以上就可以实现一个方法判断请求调用方是不是UTF8编码的了。

/// req %CSP.Request对象
/// 返回值 1符合 0不符合
ClassMethod GuessUTF8Request(req As %CSP.Request)
{
    ///code
}

另外由于编码格式不一致，通过%requet.Data拿到的数据就会出现乱码，此时可以通过将自己解析QUERY_STRING来获取数据，于是有了ParseRequestData

/// 解析请求数据 （自动判断编码 ，目前只支持UTF8）
/// 目前只实现了从QUERY_STRING解析 在请求体的暂未找到原始数据
/// req %CSP.Request对象
/// data ByRef 解析出来的数据 
ClassMethod ParseRequestData(req As %CSP.Request, ByRef data)
{
    ///code
}

似乎这样就解决了场景二

场景3

有了上面的基础，似乎场景3自然而然水到渠成了。字节流转字符流首先想到的是读取字节，然后使用$zcvt(bytes,"I",charset)转换，但是这种需要注意不要将一个字符的多个字节分成了两段。此处是利用了%FileCharacterStream做了一次中转，使用其TranslateTable进行转换，不知是否有其它方法支持

/// 将字节串转换为字符串（自动猜编码，目前只支持UTF8）
/// 将字节流转换为字符流（自动猜编码，目前只支持UTF8）
/// bytes 字节串或字节流
/// 返回值 字符串或字符流
/// w ##class(BSP.SYS.COM.Charset).Bytes2Chars($zcvt("测试","O","GB18030") )
ClassMethod Bytes2Chars(bytes)
{
    ///code
}

代码下载

Cache字符编码自动判断.zip

总结

一个小玩具，分享出来大家看看

• 实现原理
• 示例

一个用于生成验证码图片的工具类

/// pFile 生成图片的文件名(完整的物理路径)
/// 返回值 生成的验证码值
ClassMethod CreateImage(pFile As %String) As %String

实现原理

1.将随机产生的验证码字符按照轨迹生成为一个个像素坐标的RGB值

2.根据 BMP图像编码格式创建文件

示例

执行如下代码，将会在D盘根目录生成一个文件名captcha1.bmp的图片，并返回图片的验证码值。

w ##class(BSP.SYS.COM.Captcha).CreateImage("D:\captcha1.bmp")

返回值为MLYQ，并且生成了图片，图片的内容为返回值。

下载地址：BSP.SYS.COM.Captcha.xml

源代码来自于 intersystems社区，Generate and Validate Captcha Code

原文代码生成的图片会不正确，可能编码有关系，修改代码改为将字节写入到文件字节流中就可以正确生成。

某项目，因未知原因界面中文乱码，CSP内容正常，编译后生成的中间类代码中的中文为乱码，重新编译csp后正常,因此决定对系统内的CSP进行全编译。

1.编译某目录下所有csp命令

d $system.xxxx    //此处不具体说了，避免随意尝试

2.执行后最后有个错误提示

有错误本以为很正常，没去在意，此时去访问HIS，发现HIS系统所有csp访问都是500错误

3.再回头看错误提示，但是在锁那里并没有找到提示的这个的锁，反而发现了另一个锁

4.studio找到csp编译，提示信息如下

少了类，导致编译失败。

5.移除锁后，删除错误的csp，再次执行命令编译csp，虽然会有个别编译失败，但是不会影响其它正常的csp。

大概猜测原因：这个csp编译失败，生成的中间类被锁在那，导致后续无法去编译中间类（至于为啥影响其它csp的中间类不清楚），总之就是最后就是所有csp生成的中间类都没有被编译，就所有的csp都无法访问了。所以系统内如果有这样的csp,还是尽快移除掉吧，免得啥时候真全编译csp时导致系统炸掉。

• 密钥生成
  • 下载安装OpenSSL
  • 配置环境变量
  • 生成私钥
  • 生成公钥
  • 生成证书
• 工具方法
  • 加密
  • 解密
• 调用示例

Caché RSA加密实现

密钥生成

下载安装OpenSSL

自行百度搜索下载Win64OpenSSL-1_1_1d.exe，或者csdn下载Caché RSA加密示例代码和工具.zip

配置环境变量

生成私钥

openssl genrsa -out my-key.pem 1024

生成公钥

openssl rsa -in my-key.pem -pubout -out my-public-key.pem

生成证书

M中只支持证书加密，需要生成证书

1. 证书申请

   openssl req -new -out my-req.csr -key my-key.pem

   

2. 签署证书

   openssl x509 -req -in my-req.csr -out my-cert.pem -signkey my-key.pem -days 3650

   

工具方法

加密

/// RSA加密
/// plainText  明文
/// certPath  证书路径  M只支持证书加密
/// Encoding  填充模式（1/2）  1 OAEP   2 RSA_PKCS1_PADDING  Cache2016才支持此参数，2010没有此参数(按1OAEP)
ClassMethod Encrypt(plainText, certPath, Encoding = 2)
{
    s plainText=$zcvt(plainText,"O","UTF8")

    Set filestream=##class(%FileCharacterStream).%New()
    Set filestream.Filename=certPath
    Set PublicKeyStr=filestream.Read(.len)

    if $l($g(^oddCOM("%SYSTEM.Encryption","m","RSAEncrypt",50)),",")=5{  //2016 
        set Encoding=$s(Encoding=2:2,1:1)
        Set cipherText=##class(%SYSTEM.Encryption).RSAEncrypt(plainText,PublicKeyStr,"","",Encoding)
    }else {  //2010
        Set cipherText=##class(%SYSTEM.Encryption).RSAEncrypt(plainText,PublicKeyStr,"","")
    }
    Set cipherText=##class(%SYSTEM.Encryption).Base64Encode(cipherText)
    Q cipherText
}

解密

/// RSA加密
/// cipherText  Base64密文
/// privatePath  私钥路径  
/// Encoding  填充模式（1/2）  1 OAEP   2 RSA_PKCS1_PADDING  Cache2016才支持此参数，2010没有此参数(按1OAEP)
ClassMethod Decrypt(cipherText, privatePath, Encoding = 2)
{
    Set cipherText=##class(%SYSTEM.Encryption).Base64Decode(cipherText)
    Set filestream=##class(%FileCharacterStream).%New()
    Set filestream.Filename=privatePath    
    Set PrivateKeyStr=filestream.Read(.len)
    if $l($g(^oddCOM("%SYSTEM.Encryption","m","RSADecrypt",50)),",")=4{  //2016
        set Encoding=$s(Encoding=2:2,1:1)
        s plainText=##class(%SYSTEM.Encryption).RSADecrypt(cipherText,PrivateKeyStr,"",Encoding)
    }else{
        s plainText=##class(%SYSTEM.Encryption).RSADecrypt(cipherText,PrivateKeyStr,"")
    }
    s plainText=$zcvt(plainText,"I","UTF8")
    Q plainText
}

调用示例

/// d ##class(a.RSAUtil).Test()
ClassMethod Test()
{
    //证书文件路径 
    s certPath="D:\temp\rsatest1\my-cert.pem"

    //加密明文
    s plainText="blog.ttykx.com原创博客"
    w "加密前明文为：",!,plainText,!,!

    //使用证书进行加密
    s resultEncrypt=##class(a.RSAUtil).Encrypt(plainText,certPath,2)
    w "使用"_certPath_"加密结果为：",!
    w resultEncrypt,!,!


    //私钥路径
    s privatePath="D:\temp\rsatest1\my-key.pem"

    //使用私钥解密上一步的加密结果
    s resultDecrypt=##class(a.RSAUtil).Decrypt(resultEncrypt,privatePath,2)

    w "使用"_privatePath_"对上一步加密结果解密，结果为：",!,resultDecrypt,!
}

示例代码下载

• IE浏览器相关
  • 会话

IE浏览器相关

会话

IE启动时会沿用之前打开IE的那个会话，如果一个系统想要登录多个用户，需要启动时加上属性-nomerge

"C:\Program Files (x86)\Internet Explorer\iexplore.exe" -nomerge

"C:\Program Files (x86)\Internet Explorer\iexplore.exe" http://blog.ttykx.com -nomerge

• 消息动作类型

消息动作类型

• 消息平台
  • 1. 发送消息接口
  • 2. 消息处理
    • 2.1 消息处理接口ExecAll
    • 2.2 消息处理接口Exec
    • 2.3 消息撤销接口Cancel
  • 3. 配置说明
    • 3.1 接收对象
    • 3.2 消息动作类型
    • 3.3 高级接收对象配置

消息平台

1. 发送消息接口

d ##class(websys.DHCMessageInterface).Send(Context, ActionTypeCode, FromUserRowId, EpisodeId, OrdItemId, 
        ToUserRowId, OtherInfoJson, ToLocRowId, EffectiveDays , CreateLoc)

消息动作类型

OtherInfoJson说明

2. 消息处理

2.1 消息处理接口ExecAll

用于已知消息明细记录ID（1.发送时记录下来，2.在消息处打开的处理界面会传入明细记录ID），来处理消息

w ##class(websys.DHCMessageInterface).ExecAll(MsgDetailsId, ExecUserDr, ExecDate, ExecTime)

示例

 <Server>
     //从%request内拿消息明细id
     Set DetailsId = $g(%request.Data("MsgDetailsId",1))
 </Server>
 <script type="text/javascript">
    var DetailsId = "#(DetailsId)#";
    // 关闭消息弹出窗口方法
    function closewin(){
        window.close();
        top.HideExecMsgWin();
    }
    /// 执行所有相关消息
    function SendExec(){
        tkMakeServerCall("websys.DHCMessageInterface","ExecAll",DetailsId) 
    }
 </script>

2.2 消息处理接口Exec

用于相应业务处理完成后，将消息置为已处理，此方法为根据业务数据(消息类型、就诊、医嘱、业务ID)去查找消息数据，将查到的最新一条消息置为已处理。注意要避免同一业务数据发送多条消息。

w ##class(websys.DHCMessageInterface).Exec(ToUserId, ActionType, EpisodeId, OEOrdItemId, ObjectId, ExecUserDr, ExecDate, ExecTime,OtherParams)

OtherParams以^分隔每个位置说明

示例

<script type="text/javascript">
        // 关闭消息弹出窗口方法
        function closewin(){
                window.close();
                top.HideExecMsgWin();
    }
        /// 执行所有相关消息
        function SendExec(){
                //tkMakeServerCall("websys.DHCMessageInterface","Exec","","1000","","","PrescNO=102")          
                tkMakeServerCall("websys.DHCMessageInterface","Exec","","1000","55","55||1","ReportId=102&RepType=1")
        }
</script>

2.3 消息撤销接口Cancel

用于撤销已发送的消息
撤销判断逻辑：读即处理消息，有一人读过则不可撤销，其它有一人处理过则不可撤销

w ##class(websys.DHCMessageInterface).Cancel(ToUserId, ActionType, EpisodeId, OEOrdItemId, ObjectId, ExecUserDr, ExecDate, ExecTime)

3. 配置说明

3.1 接收对象

预定义的常见的接收对象，一般和就诊、医嘱相关

3.2 消息动作类型

读消息回调方法 用户在消息列表中，点击一条未读消息时会将其记为已读，此时消息平台会去调用此消息类型维护的读后回调方法 在DHC-APP命名空间下 类名和方法名自取

w ##class(FullClassName).MethodName(EpisodeId,OrdItemId,BizObjId,ReadUserRowId,ReadDate,ReadTime)

3.3 高级接收对象配置

8.4版本扩展了高级接收对象配置，简单上使用时可以配置一些固定的科室、安全组作为接收对象，而不用再在程序里写死，复杂上使用是可以根据医院、就诊类型、科室、发送时段、发送方式配置不同的接收对象。

• 前言
• BSP.SYS.COM.MockSession
  • 模拟简单的HIS会话
  • 根据会话ID模拟会话
• BSP.SYS.COM.MockRequest
  • 通过键值对字符串模拟简单的请求数据
• 总结

前言

后台代码中，有些时候会去使用%session和%request中的数据，但是在terminal调试时会发现这两个变量并没有定义，所以想到一个方法是自己去定义此变量，故而创建了BSP.SYS.COM.MockSession模拟%CSP.Session和BSP.SYS.COM.MockRequest模拟%CSP.Request

BSP.SYS.COM.MockSession

定义%session变量,模拟其Data数据

模拟简单的HIS会话

d ##class(BSP.SYS.COM.MockSession).MockSimpleHISSession(userId, locId, groupId)

1. terminal先调用方法，去定义并模拟出%session

    d ##class(BSP.SYS.COM.MockSession).MockSimpleHISSession(10209,95,29)

2. 再去调用用到%session变量的方法即可

    ///下面方法仅为了展示Data数据
    d ##class(BSP.SYS.COM.MockSession).DisplaySession()

根据会话ID模拟会话

d ##class(BSP.SYS.COM.MockSession).MockSessionFromSessionId(sessionId)

1. 通过数据库SMP,系统-CSP会话，查到会话ID
2. terminal调用方法，定义模拟%session

    d ##class(BSP.SYS.COM.MockSession).MockSessionFromSessionId("fRhu7uxMCx")

3. 再去调用用到%session变量的方法即可

    ///下面方法仅为了展示Data数据
    d ##class(BSP.SYS.COM.MockSession).DisplaySession()

BSP.SYS.COM.MockRequest

定义%request变量,模拟其Data、Cookies、MimeData、CgiEnvs数据，主要就只是Data数据

通过键值对字符串模拟简单的请求数据

d ##class(BSP.SYS.COM.MockRequest).MockSimpleRequest(keyValueStr)

1. terminal先调用方法，去定义并模拟出%request

    s str="EpisodeID=1&PatientID=1&DocName=李华"
    d ##class(BSP.SYS.COM.MockRequest).MockSimpleRequest(str)

2. 再去调用用到%request变量的方法即可

    ///下面方法仅为了展示Data数据
    d ##class(BSP.SYS.COM.MockRequest).DisplayRequest()

   

总结

上述方法自行定义了%session和%request变量，只是为了方便terminal调试用到了%session和%request数据的方法，请不要在正式代码中使用

下载地址

• 配置
  • 固定参数、测试参数配置
  • 测试界面
  • SSL/TLS 配置
• 代码调用
  • 接口
  • 小示例
• Todo

1. 配置服务的地址、参数等
2. 提供调用方法，简化代码，开发只需要获取所需数据
3. 测试接口

配置

固定参数、测试参数配置

测试界面

点击列表上的测试按钮，根据测试参数生成测试界面

SSL/TLS 配置

Cache数据库SMP 系统 > 安全管理 > SSL/TLS 配置 > 编辑 SSL/TLS 配置

代码调用

接口

##class(CF.BSP.SYS.SRV.Request).Send(ReqCode, ByRef Params, Output ErrMsg)

小示例

/// d ##class(BSP.TEST.Request).Test()
ClassMethod Test()
{
    s p("province")="山东省"
    s p("desc")="济"
    s ErrMsg=""
    s ret=##class(CF.BSP.SYS.SRV.Request).Send("BSP_DATA_City",.p,.ErrMsg)
    if ErrMsg="" {
        w "调用成功，响应内容：",!
        w ret,!    
    }else{
        w "调用失败，错误信息：",!
        w ret,!    
    }
}

Todo

1. 日志？
2. 响应内容做了一点简单的编码分析，但是可能还不完善
3. 参数支持太简单？或者它的定位就应该是简单的http服务配置，不需要复杂化？