70 lines
2.2 KiB
XML
70 lines
2.2 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Root>
|
|
<!--email接出服务-->
|
|
<!--
|
|
必需输入域:MSG_NO|message|addr|body|
|
|
选择输入域:
|
|
正常输出域:MSG_TYP|RSP_CD|
|
|
出错输出域:RSP_CD|
|
|
-->
|
|
|
|
<Transaction code="email">
|
|
<DynSentence name="Write1">
|
|
<Sentence>%s\n</Sentence>
|
|
<Fields>Body|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<While>
|
|
<Exec func="PUB:Lock" error="IGNORE">
|
|
<Arg name="RecKey" value="STRCAT(pub-sub,$MSG_NO)" />
|
|
<Arg name="TimOut" value="30" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Break />
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:Sleep" />
|
|
</Else>
|
|
</While>
|
|
<Exec func="PUB:IsExistFile" error="IGNORE">
|
|
<!--Arg name="FileName" value="STRCAT(GETENV(WORKDIR),/dat/,$MSG_NO,.dat)"/-->
|
|
<Arg name="FileName"
|
|
value="STRCAT(/home/icstst/beauser/mydomain,/dat/,$MSG_NO,.dat)" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Exec func="PUB:WriteFile">
|
|
<!--Arg name="FileName" value="STRCAT(GETENV(WORKDIR),/dat/,$MSG_NO,.dat)"/-->
|
|
<Arg name="FileName"
|
|
value="STRCAT(/home/icstst/beauser/mydomain,/dat/,$MSG_NO,.dat)" />
|
|
<Arg name="OpenMode" value="a" />
|
|
<Arg name="PRNFMT" value="Write1" />
|
|
</Exec>
|
|
</If>
|
|
<Set>MSG_TYP=N</Set>
|
|
<Set>RSP_CD=000000</Set>
|
|
<Exec func="PUB:Unlock">
|
|
<Arg name="RecKey" value="STRCAT(pub-sub,$MSG_NO)" />
|
|
</Exec>
|
|
<!--Set>Subject=STRCAT(",$Message,")</Set-->
|
|
<Set>Subject=$Message</Set>
|
|
<!--
|
|
<Set>file=STRCAT(GETENV(WORKDIR),/dat/,$MSG_NO,.dat)</Set>
|
|
-->
|
|
<Set>
|
|
file=STRCAT(/home/icstst/beauser/mydomain,/dat/,$MSG_NO,.dat)
|
|
</Set>
|
|
<!--
|
|
<System command="hisndmail.sh" error="IGNORE">
|
|
<Arg name="Arg1" value="$Subject"/>
|
|
<Arg name="Arg2" value="$Addr"/>
|
|
<Arg name="Arg3" value="$file"/>
|
|
</System>
|
|
-->
|
|
<Exec func="PUB:InvokeService" error="IGNORE">
|
|
<Arg name="ServiceName" value="STHDTRA2" />
|
|
<Arg name='Mode' value='ASYNC' />
|
|
</Exec>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|