今聴いている音楽を動的に紹介する

Audioscrobblerとプラグインを使えば今現在WMPやiTunesで聴いている音楽をRSS配信できる。これを動的にMovableTypeで紹介する。

前提
PHPが使えるサーバーでMovableTypeが動作してる
MovableTypeをPHP化してる

前準備

Audioscrobblerでアカウントを取得する
使っているメディアプレイヤーのプラグインを入手してインストールする

インストール

XML_RSSを使うのでコンソールに入れるのなら
```
pear install XML_RSS
```
入れなければここからダウンロードしてBlog公開ディレクトリに保存する

以下をaudioscrobbler.phpとして保存する

<?php
require_once("RSS.php");

$user = "USER_NAME";
$encode = "utf-8";
$truncate = 20;
$dateformat = "M j, Y G:i:s";
$rdf = "http://ws.audioscrobbler.com/rdf/history/$user";
$user_page = "http://www.audioscrobbler.com/user/$user/";
$rdf_file = "temp/audioscrobbler.rdf";
$cache_time = "10";
$timeout = "5";

if(!file_exists($rdf_file) || (filectime($rdf_file) < (time() - $cache_time))) {
    $array = parse_url ($rdf);
    $host = $array['host'];
    $cache = true;
    if (isset($array['port'])) {
        $port = $array['port'];
    } else {
        $port = 80;
    }
    $path = $array['path'];

    error_reporting (0);
    $fp = fsockopen ($host, $port, $errno, $errstr, $timeout);
    if (!$fp) {
        echo "server is busy: $errstr($errno)";
    } else {
        fputs ($fp, "GET $path HTTP/1.0\r\nHost: $host\r\n\r\n");
        $response = null;
        while (!feof($fp)) {
            $response .= fgets ($fp, 4096);
        }
        fclose ($fp);
        $cache = false;

        $data = split("\r\n\r\n", $response, 2);

        if ($data != null) {
            $temp = @fopen($rdf_file,"w") or die("ﾌｧｲﾙが開けません");
            flock($temp, LOCK_EX);
            fputs($temp, $data[1]);
            fclose ($temp);
        }
    }
}

$rss =& new XML_RSS($rdf_file);
$rss->parse('utf-8');

$lastget = date($dateformat, filectime($rdf_file));

$lastplay = null;
echo "<ul>\n";
foreach ($rss->getItems() as $item) {
    if ($lastplay==null) {
        $lastplay = date($dateformat, parse_w3cdtf($item['dc:date']));
    }

    $link = $item['link'];
    $description = mb_convert_encoding($item['description'], $encode, 'auto');
    list($artist, $title) = split(' - ', $description);
    if ($truncate > 0) {
        if (mb_strlen($title, $encode) > $truncate) {
                $title = mb_substr($title, 0, $truncate, $encode).'...';
        }
        if (mb_strlen($artist, $encode) > $truncate) {
                $artist = mb_substr($artist, 0, $truncate, $encode).'...';
        }
    }
    
    $artist = htmlspecialchars($artist);
    $title = htmlspecialchars($title);

    echo "<li class=\"track\">\n";
    echo "<div class=\"title\"><a href=\"" . $link . "\">" . $title . "</a></div>\n";
    echo "<div class=\"artist\">" . $artist . "</div>\n";
    echo "</li>\n";
}
echo "</ul>\n";
echo "<p class=\"link\"><a href=\"" . $user_page . "\">my Audioscrobbler</a></p>\n";
echo "<p class=\"lastplay\">last play:". $lastplay . "</p>\n";
echo "<p class=\"lastupdate\">last update:". $lastget . "</p>\n";

function parse_w3cdtf ( $date_str ) {
    # regex to match wc3dtf
    $pat = "/(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})?(?:([-+])(\d{2}):?(\d{2})|(Z))?/";
    if ( preg_match( $pat, $date_str, $match ) ) {
        list( $year, $month, $day, $hours, $minutes, $seconds) =
        array( $match[1], $match[2], $match[3], $match[4], $match[5], $match[6]);

        # calc epoch for current date assuming GMT
        $epoch = gmmktime( $hours, $minutes, $seconds, $month, $day, $year);

        $offset = 0;
        $tz_mod = "";
        $tz_hour = 0;
        $tz_min = 0;
        if ( isset($match[10]) && $match[10] == 'Z' ) {
            # zulu time, aka GMT
        } else {
            if (isset($match[8])) {
                $tz_mod = $match[8];
            }
            if (isset($match[9])) {
                $tz_hour = $match[9];
            }
            if (isset($match[10])) {
                $tz_min = $match[10];
            }
            //list( $tz_mod, $tz_hour, $tz_min ) =
            //array( $match[8], $match[9], $match[10]);
            # zero out the variables
            if ( ! $tz_hour ) { $tz_hour = 0; }
            if ( ! $tz_min ) { $tz_min = 0; }
            $offset_secs = (($tz_hour*60)+$tz_min)*60;
            # is timezone ahead of GMT?  then subtract offset
            if ( $tz_mod == '+' ) {
                $offset_secs = $offset_secs * -1;
            }
            $offset = $offset_secs;
        }
        $epoch = $epoch + $offset;
        return $epoch;
    }
    else {
        return -1;
    }
}
?>

XML_RSSをpearコマンドでインストールしていなければ

require_once("XML/RSS.php");

を

require_once("RSS.php");

に変更

$user = "USER_NAME";

を自分のアカウントに変更 audioscrobblerのサイトが非常に重いのでキャッシュファイルを使うようにしてる。キャッシュファイルを保存するディレクトリtempを新規作成してパーミッションを777としておく

インデックスなり表示したいページに
```
<?php include("audioscrobbler.php") ?>
```
で埋め込む

追記: 2004/09/15 18:34　文字列をhtmlentities()でエンコードし忘れ。

追記: 2004/09/16 09:59　htmlentities()じゃ文字化けするのでhtmlspecialchars()でエンコード。

hide (2004年9月14日 22:10) | コメント(285) | トラックバック(0) |

トラックバック(0)

トラックバックURL: http://mt.hide-k.net/mt-tb.cgi/23

コメント(285)

Dean Roon | 2010年11月 9日 01:38 | 返信

This page seems to get a good ammount of visitors. How do you advertise it? It offers a nice individual spin on things. I guess having something real or substantial to say is the most important factor.

Prom Dresses 2011 Sherri Hill | 2010年11月21日 02:05 | 返信

Most people, when they criticize, whether they like it or hate it, they're talking about product. That's not art, that's the result of art. Art, to whatever degree we can get a handle on (I'm not sure that we really can) is a process. It begins in the heart and the mind with the eyes and hands.

folding bar stools | 2010年11月21日 04:53 | 返信

I appreciate you for posting such a wonderful website. Your weblog was not only informative but also very inventive too. We find very few bloggers who can create technical articles that creatively. I keep looking for information regarding something like this. We ourselves have gone through many websites to build up on information regarding this.I will keep coming back !!

folding bar stools | 2010年11月21日 14:50 | 返信

I am running a blog but never got any valuable comment form my readers. Hope your tips will help me to get some good and encouraging comments from my visitors.Thanks for sharing such beautiful tips.

glass dining room table | 2010年11月21日 16:45 | 返信

Thank you for present highly wonderful informations. Your internet is fantastic, I am happy by the material which you have on this blog. It exhibits how very well you have an understanding of this subject. Bookmarked this page, will arrive again for a whole lot more. You, my close friend, I observed just the details I already searched all over the place and just couldn’t obtain. What a perfect web site. Such as this web page your site is one particular of my new favorites.I such as this info proven and it has provided me some type of contemplation to possess good results for some purpose, so retain up the decent work!

leather coffee table | 2010年11月21日 20:36 | 返信

Without difficulty, the post is really the best on this deserving topic. I agree with your results and will thirstily look onward to your approaching updates. Saying many thanks will not just be enough, for the tremendous ability in your writing. I will instantly pick up your rss feed to stay privy of any updates. Very good work and a lot success in your future!

single speed bikes | 2010年11月22日 09:37 | 返信

I’m having a strange problem I cannot make my reader pick up your feed, I’m using google reader by the way.

multi line phone | 2010年11月27日 15:58 | 返信

Do you have an rss feed? I couldn't find it. Sorry, but I am not blonde ;)

laserprintertonercartridges.org | 2010年11月27日 16:51 | 返信

I love it. I find your blog very fresh. Not sure how you have the time to keep it up to date.

pc remote control software | 2010年11月27日 17:45 | 返信

It’s way too hard to find sharp sites on this topic, but you sound like you know what you are talking about! Thanks.

PEO California | 2010年12月 3日 09:02 | 返信

I love it. I find your blog very refreshing. Good job on keeping it current.

Stasia Valliere | 2010年12月 6日 13:14 | 返信

Hello there, I like the post! I've been reading your blog for a short time now and i'm definitely enjoying it. I actually had a couple of questions in relation to your post though. Do you think it could be feasible for me to contact you further to discuss it? Maybe set up a chat on e-mail or an instant messanging application? In any other case, cheers anyway and I am going to continue to read and comment.

Odis Nicolas Underwood | 2010年12月 9日 17:03 | 返信

A colleague of mine and I have outlined this specific subject matter. Your site content help settled our argument. I'll keep reading much more articles! With thanks.

Hillary An | 2010年12月11日 06:41 | 返信

Hey thanks for the reading.

link building services | 2010年12月14日 08:28 | 返信

I located your blog using yahoo and I must say, this is no doubt one of the best well drafted articles I have noticed in a long time.

link building services | 2010年12月14日 08:42 | 返信

I uncovered your blog using bing and I must say, this is among the best well written articles I have experienced in a long time.

forex robot | 2010年12月14日 23:59 | 返信