############################################################
# playvideo plugin
# playvideo.inc.pl
# Copyright(c) 2010 Nanami.
# for PyukiWiki(http://nanakochi.daiba.cx/)
#
# Usage: &playvideo(filename [, option youtube video ID])
# do not use extention!!
# 拡張子はいれないでください！
#
# Windows Media Video Only
# 1TAB=4Spaces
#
# Change please...
#
# sub plugin_playvideo_inline { ...
#
#
# $playsite = ...
# $videopath = (top path)
# 
# Sample Image...
#
# &playvideo(2pctest);
# ↓
# Windows Media Playerで再生 (15.46 s) 
# TOTAL: 6 TODAY: 0 YESTERDAY:1 
#
#
# &playvideo(hisui3,1bQrBC-lpao);
# Windows Media Playerで再生 Youtubeで再生 (06:46) 
# TOTAL: 18 TODAY: 2 YESTERDAY:2
#
# まぁ、ぶっちゃけいえば、時間取得をして、asxを自動的に排出し、
# プログレッシブ再生するためのものです。
#
# なお、Windows Media エンコーダーにおいて、以下のものを設定すれば
# 自動的に反映されます。
#
# 題名：
# 作成者：
# 著作権：
#
# Bug ?
# カウンターがV2でないとうまく昨日のが取得できないかもしれない。汗
# 多分ですが、PyukiWiki Classic では動作しません。
#
# また、あえてやってないのですが、
# v.cgi の外部からのアクセスの制限は行っていません。
# そのため、他の人のyoutube IDのビデオが再生される可能性があります。

use Image::ExifTool;
require "plugin/counter.inc.pl";

sub plugin_playvideo_inline {
	my ($arg)=@_;
	my ($fname,$youtube)=split(/,/,$arg);
	my $body;

	$playsite="http://$ENV{HTTP_HOST}/v.cgi";
	$videopath="video";
	$videourl="http://$ENV{HTTP_HOST}/$videopath";
	$fname=~s/\..*//g;
	$ext="asx";
	$wmv="wmv";

	my $exifTool = new Image::ExifTool;
	my $info = $exifTool->ImageInfo("$videopath/$fname.$wmv");

	$body.=<<EOM;
<strong>
<a href="$playsite/$fname.$ext">
Windows Media Playerで再生
</a>
</strong>
EOM
	if($youtube ne '') {
	$body.=<<EOM;
<a target="_blank" href="$playsite/$fname.$youtube">
Youtubeで再生
</a>
EOM
	}
	$body.=<<EOM;
($$info{SendDuration})
<br>
EOM
	%vcounter=&plugin_counter_do("playvideo_$fname","r");
	$body.=<<EOM;
<span style="font-size: 10px;">
TOTAL: $vcounter{total} TODAY: $vcounter{today} YESTERDAY:$vcounter{yesterday}
</span>
EOM

	return $body;
}
1;

