Plagger+MT4.1で洋楽Video情報提供サイトfm+tubesを作ってみました

PlaggerとMT4.1を使って自動更新できるサイトを構築してみました。その仕組み、コードなどの情報を紹介しています。

以前から入れたくてしょうがなかった（参照：suVeneのあれ: Plaggerとは何ぞや）Plaggerを導入。

Lastfmを使って自分の聴いている洋楽ナンバーをplaggerで拾ってきて、フィルターでYoutubeに検索をかけてembedコードを書き出し、それをMTにポストするという仕組みです。cronで2時間ごとにまわしています。

そしてPlaggerを使ってMovableType4.1へ収集したものをポストする作業を自動化させて構築してみたサイトがこちらのfm+tubes（試作）です。めっちゃアサマシサイトです。

まず、Twitter / miyagawaさん、Yusukebeさんはじめ、plaggerを使って情報発信している皆様に感謝します。ネット・サイト制作がさらに面白くなりました。

Plaggerについて

Plaggerについては以下のリソースを読んでみるとわかります。

いつもフォロー入れてくれるTwitter / otsuneさんのプレゼン（netwatch 2.0ライフスタイルを表したキャッチが面白いｗ。）を見てすぐに入れようと決めました。自動化できることを考える意識が大切ですね。大変勉強になりました。感謝。

fm+tubes

fm+tubes（試作）: Lastfmを使って、自分が聴いた洋楽ナンバーを元にYoutubeに検索をかけ、それをMT4.1へと自動でポストしています。ネーミングの由来は、バリ島へ旅行に出かけることが多々あり、Tubesというサーファーの集まるバーがあって、そこにも巨大スクリーンがあって、そんな感じのイメージからです。

YusukebeさんのP::P::Filter::YouTubeFromTitle (Yusukebe::Tech)をそのまま使って、MT4.1へとポストするといった形に変えて作りました。

perlが全く解らないということもあって、最初からコードを読んでみてもさっぱりでカスタマイズするのにかなり苦労しました。今でも正直解ってないのです・・・・。

以下カスタマイズしたコードになります。すみません勝手に変えてしまって。後、コードの書き換え表示方法について詳しく知らなくてすみません。似たような感じで編集した部分を書いておきます。

package Plagger::Plugin::Filter::YouTubeFromTitle;

use strict;
use base qw( Plagger::Plugin );
use Encode;
use HTML::Entities;

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'update.entry.fixup' => \&filter,
    );
}

sub filter {
    my($self, $context, $args) = @_;
    my $e = $args->{entry};
		my ($keywords, $title, $artist,$video_id);

$title = $e->title;
		$title = encode('UTF-8',$title);
		
		#hatena music
		if($title =~ /(.*?)\s-\s.*?\s-\s(.*?)\Z/){
				$title = decode('UTF-8',$1);
				$artist = decode('UTF-8',$2);
		}
		#Last.FM/audioscrobbler
		elsif($title =~ /(.*?)\s\342\200\223\s(.*?)\Z/){
				$artist = decode('UTF-8',$1);
				$title = decode('UTF-8',$2);
		}
-		$keywords = $artist . " " . $title;
+		$keywords = $artist . "+" . $title;
		$video_id = search_youtube($self,$context,$keywords);
		unless($video_id eq ''){
				$e->title( $title . " by " . $artist );
+				$e->tags($artist);
		}else{
				$video_id = search_youtube($self,$context,$artist);
				$e->title($artist);
		}
		
		unless($video_id eq ''){
				$e->link("http://www.youtube.com/watch?v=$video_id");
				$e->body(embed($video_id));
+				$e->summary("http://www.youtubemp4.com/watch?v=$video_id");
+				$e->tags($artist);
		}

}

sub embed{
		my ($video_id) = @_;
		my $html = '<object width="425" height="350"><param name="movie" value="http://www.youtube.com/v/%s"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/%s" type="application/x-shockwave-flash" wmode="transparent" width="425" height="350"></embed></object>';
-		$html = sprintf($html, $video_id,);
+		$html = sprintf($html, $video_id, $video_id);

return $html;
}

sub search_youtube{
		my ($self,$context,$query) = @_;
#		my $query = decode_entities($query);
    my $url  = URI->new('http://youtube.com/results');
    my $file = $self->cache->path_to('youtube_search_result.html');

$query = encode('UTF-8', $query) unless $context->conf->{no_decode_utf8};
#   $query =~s/([^\w\/\.\?:=&#])/sprintf("%%%02X", unpack("C", $1))/eg;
+   $query =~ tr/.\'/+/;
+   $query =~ tr/ /+/;
    $context->log( info => 'Getting YouTube search results for ' . $query );

my $ua = Plagger::UserAgent->new;
		$url->query_form(
+										 search_query    => $query,
-										 search_type     => 'search_videos',
-										 search_query    => $query,
-										 search_sort     => $self->conf->{search_sort} || 'video_view_count',                                                                                                                								 );
		
		my $res = $ua->mirror( $url->as_string => $file );
		if($res->is_error){
				$context->log( error => $res->status );
				return;
		}
		
		open my $fh, "<:encoding(utf-8)", $file
            or return $context->log(error => "$file: $!");

my $video_id;
		while (<$fh>) {
				if(m!<a href="/watch\?v=(.*?)"!){
						$video_id = $1;
						$context->log(info => "Found YouTube video: $video_id");
						last;
				}
		}
		return $video_id;
}

1;
__END__

MTでのタグ付けを行いために、$artistをタグできるように追加しました。これは、アーティスト別で情報を提供できるようにするためです。

コードを使わせていただいた感謝の気持ちで$summaryでYouTubeMP4 - YouTube の動画をmpeg4 (mp4 h.264) で高速ダウンロード / Download mpeg4 video from Youtube directlyへダイレクトリンクを生成するようにしています。

Youtube検索でPerlでYouTubeのGData検索をする (Yusukebe::Tech)でのYoutubeAPIの変更に伴うコードが書かれているのですが、search部分のサブルーチンを真似して変えてみたものの、すべてエンコードされるようになってしまい、3日間ほど試行錯誤やってみたものの、実装できませんでした。やはり私レベルでは、まだまだ敷居の高いところですね。あきらめました。

できるだけ、検索精度を高めるために、実際のYoutube検索でエンコードされうようにクエリーをURL Encodeタイプで空白を＋に置換させるようにしました。また、Youtube検索で[']シングルクォーテーションが含まれる場合に限って、関係ない値が戻ってきてしまうので、それも＋に変更させてみたら、精度向上しました。

fm+tubes構想いろいろ

まだまだ、fm+tubes（試作）段階ですが、MT（主にユーザーを意識したデザインレイアウト並びに階層毎での情報表示の変化などを。）を勉強するために作りました。

最近グリッドレイアウトについていろいろと情報を集めています。実際にレイアウト組んでみると難しいです。ユーザーが10秒でこの画面をスキャンすると考えるとどこにコンテンツを配置させるのがいいのか？どんな感じの余白（スペース）、ラインなどを持たせると目立つのかなんてことを考えたりしながらレイアウト作っています。ご参考にしてください。web gallery

こんな感じのレイアウトに仕上げていくつもりです。狙いは、インスピレーションを刺激するために音楽を活用するって感じもあります。仕事始めの頭の準備体操、リフレッシュさせたりなどそんな場としてウェブデザインに活かせれるようにｗ。

Tumblr＋capture.tumblr.jsの組み合わせでFavorite WEBデザインGalleryを作ってみるでも紹介しましたが、Galleryも構築するつもりで考えいます。

WEB開発日記などはじめ、WEBデザインの情報をまとめているサイトなどと同じタイプのものも構築してみたいですね。（たぶんみんな自動化で構築されていますよね。）

まだまだ、アイデア段階ですが、MTOSのライセンスを調べてみて、もし、複数の人間でひとつのブログを使うことができるのであれば、仲良くコミュニケーションを取って頂いている方とブログを構築してみるのも面白いかとも考えています。敷居の低い視線からWEBデザインやネットなどの情報を提供できるマルチサイトみたいな。（これは、また次回簡単に図にしてニュアンスお伝えします。本当は、ある方に提案しようかとおもったのだけど・・・・お話させていただいたら、なんか違ったので。自分が絡んで構築してみてもいいかなと。半自動でまわせる部門をマルチブログでコンテンツの幅を持たせてつなぎ、人力を要するブログコンテンツに関しては、ゆるい感じでｗ。）

楽しく、情報が入手・発信・交換できる場を作る。WEBデザインだけの情報ではなく、インスピレーションを刺激するものなども提供する。authorを増やすことで親しみさや、技術的の話などのバランスを保つ。

一番は、MTの使い方。一つの商品・サービスを提案するサイトを構築に、今のマーケティングでは、それにかかわる複数の関係者たちのその商品・サービスについて提案をするブログを使ったサイト構築方法。新しい機能のauthor別でのエントリー分けでサイトを構築・提案する。マルチブログでもできるのですが、新しい機能でできないかと（まだしっかりと把握してませんが）。複数の人間でMTを使って構築されているサイトがありますが、階層をみてみるとなんかなーって感じで。All About（オールアバウト）みたいな感じのサイト構築・レイアウトデザインができるんじゃないかと。長くなるのでこれぐらいで。

Perlの勉強方法

Twitter / woopsdezさんもWeb::Scraperを使ってmuxtapeのタイトルを取得する？など perl-mongers.orgにてperlを勉強されてますよね。とても感心します。

私は、plaggerを使って自動化することを考えるということを軸にして、そこから発生する必要な情報を探し、勉強・身につけていこうかなと考えています。perl面白いです。plagger面白いです。MT活用できます。

今のところplaggerを使って、MTへポストさせることを中心に、plagger/perlに慣れ親しみ、mtde.info.com でMovableType4.xを学ぶでも紹介していますが、mtde.infoさんでMTを勉強して活用できるようにしてみます。

以上です。

yusukebeさんへ、もしこのエントリー読まれ、コミュニケーションが取れるようになれば幸いです。twitter フォローしました。よろしくですｗ（Twitter / cool_ni_ikou）。thx.

Plagger+MT4.1で洋楽Video情報提供サイトfm+tubesを作ってみました

Plaggerについて

fm+tubes

fm+tubes構想いろいろ

Perlの勉強方法

カテゴリ:

タグ:

関連記事

トラックバック(0)

コメントする

サービス

ウェブページ

人気アクセスランキング

検索

最近のブログ記事

カテゴリ

このブログ記事について