@>
<@> Movable Type形式
<@>
<$logs = argv#0>
<$option = argv#1>
<@ifexec(! logs, begin)>
Movable Type形式 |
行頭ハイフン('-')をすべてエスケープする(通常は不要)
出力文字コード
|
<$break()>
<$end>
<@>-----------------------------------------------------------------------------
<@> Movable Type形式 exporter
<@>-----------------------------------------------------------------------------
<$exporter = loadpm('Diary::ExportMT')>
<$ifbreak(error_flag)>
<$print("Content-Disposition: attachment; filename=<@v.diary_id><@option.year>_export_mt.txt\n")>
<$print("Content-Type: text/plain; charset=<@option.charset>;\n\n")>
<$exporter.export( begin.day, logs, option )><$t=tmp>
AUTHOR: <@t.name>
TITLE: <@t.title>
STATUS: <@t.status>
CONVERT BREAKS: <@t.convert_breaks>
ALLOW COMMENTS: <@t.allow_com>
ALLOW PINGS: <@t.allow_tb>
DATE: <@tm_printf("%m/%d/%Y %H:%M:%S", t.tm, 0)>
CATEGORY: <@t.category>
-----
BODY:
<@t.body>
-----
EXTENDED BODY:
<@t.ex_body>
-----
EXCERPT:
-----
KEYWORDS:
-----
<@>
<@> コメントの生成
<@>
<@ifexec(! option.no_comment, begin.comment )>
<@forexec(t2, v.load_comments(t), begin)>
COMMENT:
AUTHOR: <@t2.name>
EMAIL: <@t2.email>
URL: <@t2.url>
IP: <@t2.ip>
DATE: <@tm_printf("%m/%d/%Y %H:%M:%S", t2.tm, 0)>
<@exporter.br2lf( t2.text )>
-----
<$end>
<$end.comment>
<@>
<@> トラックバックの生成
<@>
<@ifexec(! option.no_tb, begin.trackback )>
<@forexec(t2, v.load_trackbacks(t), begin)>
PING:
TITLE: <@t2.title>
URL: <@t2.name>
IP: <@t2.ip>
BLOG NAME: <@t2.blog_name>
DATE: <@tm_printf("%m/%d/%Y %H:%M:%S", t2.tm, 0)>
<@exporter.br2lf( t2.text )>
-----
<$end>
<$end.trackback>
--------
<$end.day>
<@>
<@> 終了
<@>
<$exit(0)>