@2>
<@local(opt)>
<@>
<@> adiary形式
<@>
<$logs = argv#0>
<$opt = argv#1>
<@ifexec(! logs, begin)>
adiary形式 (XML)
標準形式です。すべての記事情報をバックアップできます。
<$break()>
<$end>
<@>-----------------------------------------------------------------------------
<@> adiary形式 exporter
<@>-----------------------------------------------------------------------------
<$exporter = loadapp('adiary::Export_adiary')>
<$ifbreak(!exporter)>
<$ifprint(Export_debug, "Content-Type: text/plain; charset=UTF-8;\n\n")>
<$set_header('Content-Disposition', "attachment; filename=<@opt.base_filename>_export_adiary3.xml")>
<$print_http_headers('text/xml', 'UTF-8')>
<$print(#'\n')>
<$print("\n")>
<$opt.aobj = v>
<$exporter.export( begin, logs, opt )>
<@>-----------------------------------
<@> export format
<@>-----------------------------------
<@local(t,t2)>
<$t = argv#0>
link_key="<@t.link_key>"
ctype="<@t.ctype>"
priority="<@t.priority>"
upnode="<@tag_escape_amp(t.upnode)>"
<@>
<@ifexec(!opt.no_writer, begin)>
name="<@tag_escape_amp(t.name)>"
id="<@t.id>"
ip="<@t.ip>"
host="<@tag_escape_amp(t.host)>"
agent="<@tag_escape_amp(t.agent)>"
<$end>
/>
<@tag_escape_amp(t._text)>
<@>
<@> コメントの生成
<@>
<@ifexec(! opt.no_comment, begin.comment )>
<@forexec(t2, v.load_comments_current_blog(t), begin)>
<@t2.enable>
<@t2.hidden>
<@t2.id>
<@tag_escape_amp(t2.name)>
<@t2.num>
<@t2.tm>
<@tag_escape_amp(t2.email)>
<@tag_escape_amp(t2.url)>
<@ifexec(!opt.no_writer, begin)>
<@t2.ip>
<@tag_escape_amp(t2.host)>
<@tag_escape_amp(t2.agent)>
<$end>
<@tag_escape_amp(t2.text)>
<$end>
<$end.comment>
<$end>
<@>
<@> フッタ
<@>
<$print( "\n" )>
<$export_return = 0>