執筆メモ§（未整理・編集中）

RSS出力

Akiaryオプショナル日記からRSSを生成する。

AkiaryでRSS！aki2rss.cgi

連携アプリケーション

NamazuやRNAとの連携をしたいな。あとはアクセス解析の仕込みか。RNAのXML-RPCサーバに寄生して、いろいろできるのではないかと思案中。もちろんアンテナとしての役割がメインだろう。

ユーティリティ

全日記再構築

全ての日記を再構築する。テンプレートの変更を過去全てに適用するのに使える。

 sub RebuildAll{
     my $efiles;
     local(@files,$file,$contents);
     local(*date,*title,*body);
     local(%tmp,$days);
     local($syear,$smon,$smday)=&GetTodaysDate;
     local($escpw)=&escapeHTML($FORM{'password'});
     local($tmp,$out);
 
     # 日記ファイル名取得
     opendir(DIR,$CFG{'diary_dir'})
     || &error("日記ディレクトリ $CFG{'diary_dir'} が開けません。");
     @files=readdir(DIR);
     closedir(DIR);
     @files=grep(/^\d{6}\.html$/, @files);
 
     # 日記ファイルを読む
     if ($#files>=0){
     foreach $file (reverse sort @files){
         open(FILE,"$CFG{'diary_dir'}/$file")
         || &error("日記ファイル $CFG{'diary_dir'}/$file が開けません。");
         $contents=join("",<FILE>);
         close(FILE);
         # 日記部を切り出し、DID、DATE、TITLE、BODY抽出
         &Contents2DTB($contents,*date,*title,*body);
         &MakeBNDiary($CFG{'diary_dir'},$file,*date,*title,*body,*dids);
 #       last if (scalar(keys %date)>=$CFG{'latest_times'});
         $efiles .="$file<br />\n";
     }
     }
 
     # オプショナル日記ファイルを作成
     foreach $tmp (grep(/^opt_diary_tmp_file_\d+$/,(keys %CFG))){
     $out=$tmp;
     $out=~s/tmp_//;
     next if ($CFG{$tmp} eq "");
     &MakeOptDiary2($CFG{$tmp},$CFG{$out});
     }
 
     return $efiles;
 }