@>
<@> JUGEM / Serene Bach 形式
<@>
<$logs = argv#0>
<$option = argv#1>
<@ifexec(! logs, begin)>
Serene Bach形式 |
Serene Bach により拡張された JUGEM 形式のXMLです
日付データの時間帯
(通常は変更不要)
|
<$break()>
<$end>
<@>-----------------------------------------------------------------------------
<@> Serene Bach拡張 JUGEM形式 exporter
<@>-----------------------------------------------------------------------------
<$exporter = loadpm('Diary::ExportJUGEM')>
<$ifbreak(error_flag)>
<$tz = exporter.tz2string( option.sb_tz )>
<$option.sb_mode = 1>
<$print("Content-Disposition: attachment; filename=<@v.diary_id><@option.year>_export_sb_jugem.xml\n")>
<$print("Content-Type: text/xml charset=<@option.charset>;\n\n")>
<$option.header = exec(begin) >
<@>
<@> blogに関する情報の出力
<@>
<@v.daybook_setting.blog_name>
<$txt = v.daybook_setting.description>]]>
<$end>
<@>
<@> 日記の出力
<@>
<$exporter.export( begin.day, logs, option )><$t=tmp>
<@t.title>
<@t.name>
<@t.category>
<@t.status>
<@t.allow_com>
<@t.allow_tb>
<@t.convert_breaks>
<@tm_printf("%Y/%m/%d %H:%M:%S", t.tm, 0)><@tz>
<$exporter.cdata_escape(t.body, t.ex_body)>
]]>
]]>
<@>
<@> コメントの生成
<@>
<@ifexec(! option.no_comment, begin.comment )>
<@forexec(t2, v.load_comments(t), begin)>
<@t2.name>
<@t2.email>
<@t2.url>
<@t2.ip>
<@tm_printf("%Y/%m/%d %H:%M:%S", t2.tm, 0)><@tz>
]]>
<$end>
<$end.comment>
<@>
<@> トラックバックの生成
<@>
<@ifexec(! option.no_tb, begin.trackback )>
<@forexec(t2, v.load_trackbacks(t), begin)>
<@t2.title>
]]>
<@t2.blog_name>
<@t2.url>
<@t2.ip>
<@tm_printf("%Y/%m/%d %H:%M:%S", t2.tm, 0)><@tz>
<$end>
<$end.trackback>
<$end.day>
<@>
<@> 終了
<@>
<$print( "\n" )>
<$exit(0)>