くずはすくりぷとの最近のブログ記事

要望があったのでくずはすくりぷとの中にNewsヘッドライン表示の処理をしてみた。
前提要件
# 必要PM
#  LWP::Simple
#  XML::Parser
#  XML::RSS
#  Jcode
#  (http://www.cpan.org/)
#
# 必要ライブラリ
#  expat
#  (http://sourceforge.net/projects/expat/)


RSSを持ってくるソース getnews.txt
これをgetnews.cgiにリネームしてUP(700)
<iframe src="/cgi-bin/getnews.cgi?" width="100%">IFRAME対応ブラウザで見れ(ﾟДﾟ)</iframe>
上記のようにタグを貼ればOK(ﾟ∇ﾟ)

#####################
#  メッセージ１件出力
#####################
sub prtmessage {

 my $mode = $_[0]; # 0 : 掲示板 1 : 過去ログ(ボタン表示あり) 2 : 過去ログ(ボタン表示なし) 3 : 検索窓
 my $tlog = $_[1];
 my ( $tag, $refdate, $prtmessage, $btn, $btnfollow, $btnauthor, $btnthread, $newwin,
   $envlist, $envaddr, $envua, $envbr );

の下に

#youtube試験運用

#www用
$msg =~ s/http\:\/\/(?:www\.)?youtube\.com\/watch\?v\=([a-zA-Z0-9\_]{1,})/http\:\/\/www\.youtube\.com\/v\/$1<embed src="http\:\/\/www\.youtube\.com\/v\/$1" type\="application\/x-shockwave-flash" wmode\="transparent" width\="255" height\="210"><\/embed><\/A>/g;
#jp用

$msg =~ s/http\:\/\/(?:jp\.)?youtube\.com\/watch\?v\=([a-zA-Z0-9\_]{1,})/http\:\/\/www\.youtube\.com\/v\/$1<embed src="http\:\/\/www\.youtube\.com\/v\/$1" type\="application\/x-shockwave-flash" wmode\="transparent" width\="255" height\="210"><\/embed><\/A>/g;
と追加すればOK

なお、場合によってはアンカータグが汚くはみ出して表示されることがあるので

$msg =~ s/" target="link">http\:\/\/www\.youtube\.com\/v\/$1//g;

のようにして消しています(ﾟ∇ﾟ)

#######################
# メッセージチェック
#######################
if ( !$FORM{'u'} ) { $FORM{'u'} = '';

の前に
if ( $ENV{'REMOTE_HOST'} =~ /\.docomo\.ne\.jp$/i ) { $FORM{'u'} = '妹'; }

上記のように追加すればOK(ﾟ∇ﾟ)foreach化も検討中