@2>
<@>
<@> adiary形式
<@>
<$logs = argv#0>
<$option = argv#1>
<@ifexec(! logs, begin)>
adiary形式 |
標準形式です。唯一、すべての情報をバックアップできます。
key記法(+記事番号)による日記帳内リンクを時刻指定に書き換え(リンク先保持)
id記法を通常リンクに書き換え(ログ移転時のリンク先保持)
書き込み者情報を出力しない(ID, 名前, IP/USER_AGENT等)
<@ifexec(0 <= index(System_coding, 'EUC'), begin)>
EUC-JPで出力する(非推奨)
<$end>
|
<$break()>
<$end>
<@>-----------------------------------------------------------------------------
<@> adiary形式 exporter
<@>-----------------------------------------------------------------------------
<$exporter = loadpm('Diary::Export_adiary')>
<$ifbreak(error_flag)>
<$ifset(option.adiary_eucjp, code, System_coding, 'UTF-8')>
<$ifexec(Debug_mode, begin)><$print("Content-Type: text/plain; charset=<@code>;\n\n")><$end>
<$print("Content-Disposition: attachment; filename=<@v.diary_id><@option.year>_export_adiary.xml\n")>
<$print("Content-Type: text/xml; charset=<@code>;\n\n")>
<$print("\"?>\n")>
<$print("\n")>
<$ifset(! option.adiary_no_writeinfo, writer, 1)>
<$exporter.export( begin.day, logs, option )><$t=tmp>
<$tag_escape_for_xml(t.title, t.category, t.name, t.host, t.agent, t.files, t.link_key, t.upnode, t._text)>
<@t._text>
<@>
<@> コメントの生成
<@>
<@ifexec(! option.no_comment, begin.comment )>
<@forexec(t2, v.load_comments(t), begin)>
<$tag_escape_for_xml(t2.name, t2.url, t2.text)>
<@t2.enable>
<@t2.hidden>
<@t2.id>
<@t2.name>
<@t2.tm>
<@t2.email>
<@t2.url>
<@ifexec(writer, begin)>
<@t2.ip>
<@t2.host>
<@t2.agent>
<$end>
<@t2.text>
<$end>
<$end.comment>
<@>
<@> トラックバックの生成
<@>
<@ifexec(! option.no_tb, begin.trackback )>
<@forexec(t2, v.load_trackbacks(t), begin)>
<$tag_escape_for_xml(t2.title, t2.excerpt, t2.blog_name, t2.author)>
<@t2.enable>
<@t2.internal>
<@t2.tm>
<@t2.title>
<@t2.excerpt>
<@t2.url>
<@t2.blog_name>
<@t2.author>
<@ifexec(writer, begin)>
<@t2.ip>
<@t2.host>
<@t2.agent>
<$end>
<$end>
<$end.trackback>
<$end.day>
<@>
<@> フッタ
<@>
<$print( "\n" )>
<$exit(0)>