カテゴリ
最近の記事
管理人
kappa-s.jpg
名前:nyatto
twitter:http://twitter.com/nyattoh
Facebook:http://www.facebook.com/nyattoh
FBレター:http://fb-letter.com/100002151358967.html
一言:

持ち前の中途半端さが全面に出ています。
あんまり突っ込まれるとぐぅの根も出ませんが、
何かあったらお気軽に書き込んでください。

コメントはスパム対策で一部ですが承認制にしてある記事があります。ご了承下さい。
ツイッター始めました。
Facebookの情報をメールでお届けします

内藤
過去ログ
リンク集
□個人的リンク
VabooLog2011
異邦人の食卓
アラフォー男子のウチのゴハン
アートルーム ヘアビジョン
Look at me.
本と文化の街 スーパー源氏
(古本・書籍検索ポータル)


■相互リンク
・「eguegu-Photo
・「詠う鯨
・「電脳生活で健康維持
・「やくにたたない?PCブログ
・「ジャパネットたかたの通販ガイド

■メーカ
NEC
SHARP
ソニースタイル
TOSHIBA
富士通
Panasonic
日立
エプソンダイレクト
Lenovo
日本hp
Dell
ソーテック
オンキヨー
ASUS Shop

■BTO・パーツ屋
グットウィル
韋駄天PC Online Shopping
エーチャージ
クレバリー
サイコム
TWOTOP
ドスパラ
ハーキュリーズ
パソコン工房
T・ZONE
VSPEC
フェイス
BLESS
フロンティア
マウスコンピューター

■中古
ソフマップ中古販売
ソフマップ・ドットコム 買取りサイト

■ショッピングモール
Amazon
楽天
【Yahoo!ショッピング】おすすめ情報
ライブドアデパート

タグクラウド
TOP  >  プログラミング  > 

2009年08月09日

RingBlogでポッドキャスト

このエントリーをはてなブックマークに追加
//
仕事上、
1.フリーで、
2.Perlで書かれている、
3.商用利用可能で、
4.できれば改造可能な、
5.ブログCGI
を探していて見つけたのがRingBlogでした。

機能的には至れり尽くせりのスゴイ奴なんですが、一点だけ、
RSS2.0が書き出せない
という弱点がありました。

Perlなんてもう5年以上も書いてないのでとても不安だったんですが、既存のものを書き換えるのでコピペとちょろっとしたコード書き込みで完了。

ringblog/module/Write.pm内、sub writeRSS()をコピペして、最後の書き出し部分に多少手を入れる感じ。

でも、画像には対応していませんのであしからず。
音声データの配信(ポッドキャスト)をしたかっただけなのです。
多分、これをちょろちょろっといじれば画像もOKなはずです。

備忘録なのであまり参考にならないかもしれませんが。
# 添付ファイル
my @data_names;
my $data_html;
my $enclosure;
if ( $entry_obj->{'files'} ) {
@data_names = $entry_obj->get_data_filenames();
# 添付ファイルリスト
my $suffix;
my $file_dir_url = $entry_obj->get_data_dir_url();
foreach ( sort @data_names ) {
next if ( $_ eq "" );
#'.' が 1つ以上あるか
if( index($_, '.', 0) != -1){
$suffix = ( split(/\./, $_ ))[-1]; #拡張子取出し
}
if($suffix eq 'mp3') {
my $file_path = join('/', $file_dir_url, $_ );
my $file_size = -s $file_path;
$_ = &Utility::convert2utf8($_);
$enclosure .=<<ENCLOSURE;
<enclosure url="$file_path" length="$file_size" type="audio/mpeg" />
ENCLOSURE
}
}
}
$items->{'name'} = &Utility::xml_entity($items->{'name'});
$items->{'title'} = &Utility::xml_entity($items->{'title'});
$category = &Utility::convert2utf8($category);
$items->{'name'} = &Utility::convert2utf8($items->{'name'});
$items->{'title'} = &Utility::convert2utf8($items->{'title'});
$entry{'content'} = &Utility::reform4ping($entry{'content'});
$entry{'content'} = &Utility::xml_entity($entry{'content'});
$entry{'content'} = &Utility::convert2utf8($entry{'content'});

# $seq .= "\n <rdf:li rdf:resource=\"$entry_url\" />";
$item .= <<ITEM;
<item>
<title>$items->{'title'}</title>
<link>$entry_url</link>
<description>$entry{'content'}</description>
<dc:subject>$category</dc:subject>
<dc:creator>$items->{'name'}</dc:creator>
<dc:date>$date_str</dc:date>
$enclosure
</item>

ITEM
}

$rss = <<RSS;
<?xml version="1.0" encoding="UTF-8"?>

<rss version="2.0"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
xmlns:admin="http://webns.net/mvcb/"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">

<channel>
<title>$blog_title</title>
<link>$url</link>
<description>$description</description>
<dc:language>ja</dc:language>
$item
</channel>
</rss>
RSS

いい加減でゴメンナサイ。
備忘録なのでゆるして下さい。

にほんブログ村 PC家電ブログ パソコン・周辺機器へ
posted at 14:38 | このブログの読者になる -| 更新情報をチェックする | Comment(0) | TrackBack(2) | プログラミング
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント: [必須入力]

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック

ちょっとテストさせてください。
Excerpt: 画像と記事内容は関係ありません。 %ipath:1:L%<群馬竜巻>秒速は推定33〜69m、東へ6.5キロ移動  群馬県館林市で27日午後に発生した竜巻とみられる突風について、気象庁は28日、..
Weblog: RingBlog v3 お試しブログ
Tracked: 2009-08-10 08:48

英標でよくある質問
Excerpt:  英標「英文標準問題精講」に関してよく受ける質問があります。今回は3つ取り上げます。
Weblog: 湘南ゼミナール大学受験コース ライブラリー
Tracked: 2009-08-10 08:52
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。