RSS対応しました

My56がRSSに対応しました。新着の語録順に15件出力しています。
これでRSSリーダで読めます。

Perl + XML::RSSモジュールで実装しました。
XML::RSSモジュールに関する記事はこちら。

基本的にはこのモジュールで簡単に作れた。

ちょっとはまったのが、RSSは最新記事が一番最後のアイテムになるようにセットするため、単純にselectで新着順で取得したデータをセットするのができないので、下記のようにselect文を変更。gorokuが語録、setumeiが語録説明に該当。テーブルはmygoroku。idは記事ごとにユニークな値。dateは登録日をさしています。

select id, goroku, setumei from mygoroku 
　where id in (select id from mygoroku order by date desc limit '15' offset '0') 
　order by date;

やっていることは、まず()内のselect id from mygoroku order by date desc limit '15' offset '0'で、新着語録を新着順に15件取得する。取得したidリストを利用し、order by して最新記事が最後になるように並べ替え。

該当記事をDBから取得後、下記のようにUTF8のデータにして出力

use Encode;

decode('utf8',$goroku);