@2>
<@local(opt)>
<@>
<@> JUGEM / Serene Bach 形式
<@>
<$logs = argv#0>
<$opt = argv#1>
<@ifexec(! logs, begin)>
Serene Bach形式
<$break()>
<$end>
<@>-----------------------------------------------------------------------------
<@> Serene Bach拡張 JUGEM形式 exporter
<@>-----------------------------------------------------------------------------
<$exporter = loadapp('adiary::ExportJUGEM')>
<$ifbreak(!exporter)>
<$ifset(!opt.allow_pings, opt.allow_pings, 0)>
<@> TimeZone および Serene Bach モードの設定
<$tz = exporter.tz2string( opt.timezone )>
<$opt.sb_mode = 1>
<$ifexec(Export_debug, begin)>
<$output_http_headers('text/plain', 'UTF-8')>
<$end>
<$set_header('Content-Disposition', "attachment; filename=<@opt.base_filename>_export_sb_jugem.xml")>
<$output_http_headers('text/xml', 'UTF-8')>
<$opt.header = exec(begin) >
<@>
<@> blogに関する情報の出力
<@>
<@v.blog.blog_name>
]]>
<$end>
<@>
<@> 記事の出力
<@>
<$exporter.export( begin.day, logs, opt )>
<@local(t,t2)>
<$t = argv#0>
<@esc_xml(t.title)>
<@esc_xml(t.name)>
<@esc_xml(t.tags_ary#0)>
<@t.status>
<@t.com_ok>
<@opt.allow_pings>
<@t.convert_breaks>
<@tm_printf("%Y/%m/%d %H:%M:%S", t.tm, 0)><@tz>
<$exporter.cdata_escape(t.body, t.ex_body)>
]]>
]]>
<@>
<@> コメントの生成
<@>
<@ifexec(! opt.no_comment, begin.comment )>
<@forexec(t2, v.load_comments_current_blog(t), begin)>
<@esc_xml(t2.name)>
<@esc_xml(t2.email)>
<@esc_xml(t2.url)>
<@t2.ip>
<@tm_printf("%Y/%m/%d %H:%M:%S", t2.tm, 0)><@tz>
]]>
<$end>
<$end.comment>
<$end.day>
<@>
<@> 終了
<@>
<$print( "\n" )>
<$export_return = 0>