<@> <@> 更新情報 for LIRS <@> http://alimika.alib.jp/satomican/doc/LIRS.html <@> 日記の作成日 <$data = "LIRS,<@tmp.diary_tm>,<@TM>,32400,0,<@tmp.url>,<@tmp.blog_name_no_comma>,<@tmp.author_no_comma>,\n"> 更新日、コメント、TBを含む更新すべて <$data = data . "LIRS,<@tmp.update_tm>,<@TM>,32400,0,<@tmp.url>#,<@tmp.blog_name_no_comma>,<@tmp.author_no_comma>,\n"> <@ifexec(System_coding ne 'EUC-JP', begin)> <$data = jcode.from_to(data, System_coding, 'EUC-JP')> <$end> <$file = tmp.dir . 'lirs.txt'> <$fwrite_lines(file, data, File_mode | 0644)> <$ifexec(v.use_gzip, begin, begin)> <$gzip = loadpm('Base::Gzip')> <$gzip.compress( file )> <$else> <$file_delete( file . '.gz' )> <$end>