PyukiWiki CVS Commit
pyuki****@lists*****
2012年 1月 31日 (火) 00:11:25 JST
Index: PyukiWiki-Devel-UTF8/.htaccess diff -u PyukiWiki-Devel-UTF8/.htaccess:1.248 PyukiWiki-Devel-UTF8/.htaccess:1.249 --- PyukiWiki-Devel-UTF8/.htaccess:1.248 Mon Jan 30 09:24:49 2012 +++ PyukiWiki-Devel-UTF8/.htaccess Tue Jan 31 00:11:25 2012 @@ -1,6 +1,6 @@ ###################################################################### # Apache .htaccess for PyukiWiki -# $Id: .htaccess,v 1.248 2012/01/30 00:24:49 papu Exp $ +# $Id: .htaccess,v 1.249 2012/01/30 15:11:25 papu Exp $ # "PyukiWiki" version 0.2.0-p1-preview3-p1 $$ ###################################################################### Index: PyukiWiki-Devel-UTF8/DEVEL.txt diff -u PyukiWiki-Devel-UTF8/DEVEL.txt:1.243 PyukiWiki-Devel-UTF8/DEVEL.txt:1.244 --- PyukiWiki-Devel-UTF8/DEVEL.txt:1.243 Mon Jan 30 09:24:49 2012 +++ PyukiWiki-Devel-UTF8/DEVEL.txt Tue Jan 31 00:11:25 2012 @@ -16,7 +16,7 @@ MAIL: ãªãªã¿ <nanami (at) daiba (dot) cx> (注：ãƒã‚«ãƒžã§ã™) - $Id: DEVEL.txt,v 1.243 2012/01/30 00:24:49 papu Exp $ + $Id: DEVEL.txt,v 1.244 2012/01/30 15:11:25 papu Exp $ ã“ã®ãƒ†ã‚ストファイルã¯UTF-8ã€TAB4ã§è¨˜è¿°ã•ã‚Œã¦ã„ã¾ã™ã€‚ Index: PyukiWiki-Devel-UTF8/Makefile diff -u PyukiWiki-Devel-UTF8/Makefile:1.240 PyukiWiki-Devel-UTF8/Makefile:1.241 --- PyukiWiki-Devel-UTF8/Makefile:1.240 Mon Jan 30 09:24:49 2012 +++ PyukiWiki-Devel-UTF8/Makefile Tue Jan 31 00:11:25 2012 @@ -1,5 +1,5 @@ # release file makefile for pyukiwiki -# $Id: Makefile,v 1.240 2012/01/30 00:24:49 papu Exp $ +# $Id: Makefile,v 1.241 2012/01/30 15:11:25 papu Exp $ ARCHIVEDIR=./archive BUILDDIR=./build Index: PyukiWiki-Devel-UTF8/README.txt diff -u PyukiWiki-Devel-UTF8/README.txt:1.243 PyukiWiki-Devel-UTF8/README.txt:1.244 --- PyukiWiki-Devel-UTF8/README.txt:1.243 Mon Jan 30 09:24:49 2012 +++ PyukiWiki-Devel-UTF8/README.txt Tue Jan 31 00:11:25 2012 @@ -16,7 +16,7 @@ MAIL: Nanami <nanami (at) daiba (dot) cx> (注：ãƒã‚«ãƒžã§ã™) - $Id: README.txt,v 1.243 2012/01/30 00:24:49 papu Exp $ + $Id: README.txt,v 1.244 2012/01/30 15:11:25 papu Exp $ ã“ã®ãƒ†ã‚ストファイルã¯UTF-8ã€TAB4ã§è¨˜è¿°ã•ã‚Œã¦ã„ã¾ã™ã€‚ Index: PyukiWiki-Devel-UTF8/index.cgi diff -u PyukiWiki-Devel-UTF8/index.cgi:1.243 PyukiWiki-Devel-UTF8/index.cgi:1.244 --- PyukiWiki-Devel-UTF8/index.cgi:1.243 Mon Jan 30 09:24:49 2012 +++ PyukiWiki-Devel-UTF8/index.cgi Tue Jan 31 00:11:25 2012 @@ -5,7 +5,7 @@ #!c:\perl64\bin\perl.exe ###################################################################### # index.cgi - This is PyukiWiki, yet another Wiki clone. -# $Id: index.cgi,v 1.243 2012/01/30 00:24:49 papu Exp $ +# $Id: index.cgi,v 1.244 2012/01/30 15:11:25 papu Exp $ # # "PyukiWiki" version 0.2.0-p1-preview3-p1 $$ # Copyright (C) 2004-2012 Nekyo Index: PyukiWiki-Devel-UTF8/pyukiwiki.ini.cgi diff -u PyukiWiki-Devel-UTF8/pyukiwiki.ini.cgi:1.243 PyukiWiki-Devel-UTF8/pyukiwiki.ini.cgi:1.244 --- PyukiWiki-Devel-UTF8/pyukiwiki.ini.cgi:1.243 Mon Jan 30 09:24:49 2012 +++ PyukiWiki-Devel-UTF8/pyukiwiki.ini.cgi Tue Jan 31 00:11:25 2012 @@ -1,6 +1,6 @@ ###################################################################### # pyukiwiki.ini.cgi - This is PyukiWiki, yet another Wiki clone. -# $Id: pyukiwiki.ini.cgi,v 1.243 2012/01/30 00:24:49 papu Exp $ +# $Id: pyukiwiki.ini.cgi,v 1.244 2012/01/30 15:11:25 papu Exp $ # # "PyukiWiki" version 0.2.0-p1-preview3-p1 $$ # Copyright (C) 2004-2012 Nekyo Index: PyukiWiki-Devel-UTF8/v.cgi diff -u /dev/null PyukiWiki-Devel-UTF8/v.cgi:1.1 --- /dev/null Tue Jan 31 00:11:25 2012 +++ PyukiWiki-Devel-UTF8/v.cgi Tue Jan 31 00:11:25 2012 @@ -0,0 +1,744 @@ +#!/usr/bin/perl +###################################################################### +# v.cgi - This is PyukiWiki, yet another Wiki clone. +# $Id: v.cgi,v 1.1 2012/01/30 15:11:25 papu Exp $ +# +# "playvideo" version 2.1 $$ +# Author: Nanami http://nanakochi.daiba.cx/ +# Copyright (C) 2004-2012 Nekyo +# http://nekyo.qp.land.to/ +# Copyright (C) 2005-2012 PyukiWiki Developers Team +# http://pyukiwiki.sfjp.jp/ +# Based on YukiWiki http://www.hyuki.com/yukiwiki/ +# Powerd by PukiWiki http://pukiwiki.sfjp.jp/ +# License: GPL3 and/or Artistic or each later version +# +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. +# Return:LF Code=UTF-8 1TAB=4Spaces +###################################################################### +# 2011/10/07 change: 複数ã®ã‚µã‚¤ãƒˆã«å‹•ç”»ãŒåˆ†æ•£ã—ã¦ã„ã¦ã‚‚対応ã§ãるよã†ã«ã—ãŸã€‚ +# ãŸã ã—ã€wmvã ã‘ã¯PyukiWikiã¨åŒã˜ã‚µã‚¤ãƒˆã«è¨ç½®ã—ãªã‘れ㰠+# ã„ã‘ã¾ã›ã‚“ãŒã€mp4ã‚„flvも別サイトã«è¨ç½®ã™ã‚‹ã“ã¨ãŒ +# ã§ãるよã†ã«ãªã£ãŸã€‚ +# ã“ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã«ã™ã‚‹ã«ã¯ã€deletecache ã‚’ã™ã‚‹å¿…è¦ãŒã‚り〠+# ã‹ã¤ã€FLVã€MP4ファイルを消去ã—ãŸå ´åˆã€ã‚‚ã†ä¸€åº¦ deletecache +# ã‚’ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ +# 無圧縮zip以外ã«ã‚‚ã€ç”Ÿã®WMVファイルをダウンãƒãƒ¼ãƒ‰ã§ãã‚‹ +# よã†ã«ã—ãŸã€‚（デフォルトã¯ç„¡åœ§ç¸®zip） +# 2011/10/05 change: HEADリクエストを用ã„ã¦ã€WMV以外ã®æ‹¡å¼µåã®å‹•ç”»ã‚’ +# PyukiWikiãŒè¨ç½®ã—ã¦ã‚るサーãƒãƒ¼ä»¥å¤–ã«è¨å®šã§ãるよã†ã« +# ã—ãŸã€‚ã¾ãŸã€IE 9 ã«ãŠã„ã¦ã€video.jsを無効化ã—ãŸã€‚ +# 2011/10/02 change: HTML5プレイヤーã«å¯¾å¿œã€ãã®ç‚ºã€HTML5ブラウザーã§ãªã +# Flashã§å†ç”Ÿã™ã‚‹å ´åˆã«ã€åˆ¥é€”MP4ファイルãŒå¿…è¦ã«ãªã‚‹ã€‚ +# ãã®æ™‚ã®å¤‰æ›ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã¯ã€FlowPlayerãŒèªè˜ã™ã‚‹ã‚ˆã†ã« +# MPEG4 AVC/H.264å½¢å¼ã§å¤‰æ›ã—ãªã‘ã‚Œã°ãªã‚‰ãªã„。 +# æ—§æ¥ã®Flashã§ã®å†ç”Ÿã‚‚サãƒãƒ¼ãƒˆã—ã¦ã„ã¾ã™ãŒã€IE10ã® +# デスクトップ版以外ã§ã‚µãƒãƒ¼ãƒˆã•ã‚Œãªããªã‚‹ãŸã‚ã€äº’æ›æ€§ã®ç‚ºã« +# 準備ã ã‘ã¯ã—ã¦ã‚ã‚Šã¾ã™ã€‚ +# IE9ã®ä¸å…·åˆã§ã€IE9ã«ãŠã„ã¦ã¯ã€HTML5プレイヤーã¯ä½¿ç”¨ +# ã§ããªã„よã†ã«ãªã£ã¦ã„ã¾ã™ã€‚ +# 2011/09/11 change: デフォルトã®ã‚¹ã‚ンをèªã¿è¾¼ã‚るよã†ã«ã—ãŸã€‚ +# FireFoxã§ã‚ーæ“作ã«ã‚ˆã‚Šå‹•ç”»ã®ãƒªãƒãƒ¼ãƒ‰ã™ã‚‹ã®ã‚’阻æ¢ã—ãŸã€‚ +# è¨å®šã—ã¦ã‚ã‚‹æ¼¢å—コードã§å‡ºåŠ›ã§ãるよã†ã«ã—ãŸã€‚ +# 2011/06/12 change: flvå‹•ç”»ã«ã‚‚対応ã—ãŸã€‚ãŸã ã—ã€wmvã‚‚å¿…è¦ã§ã™ã€‚ +# 2011/05/26 change: wmvã«ã‚¿ã‚°ãŒä»˜ã‘られã¦ã„ã‚‹å ´åˆã€zipファイルã®ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ +# ファイルåã‚’ãã®åå‰ã«æŒ‡å®šã§ãるよã†ã«ã—ãŸã€‚ +# 2011/05/26 change: info/setup.cgiã«å¯¾å¿œã—㟠+# 2011/03/14 change: Content-disposition: attachment; filename="$file.wvx" +# を出力ã™ã‚‹ã¨å•é¡ŒãŒã‚ã‚‹å¯èƒ½æ€§ãŒã‚ã‚‹ãŸã‚ã€å‡ºåŠ›ã‚’ +# 抑制ã—ãŸã€‚ +# 2011/03/01 change: æ‹¡å¼µåã‚’wvxã«å¤‰æ›´ã—ãŸã€‚ +# Content-Type: video/x-ms-wvx を出力ã—ãŸã€‚ +# Content-disposition: attachment; filename="$file.wvx" +# を出力ã—ãŸã€‚ +# 2010/12/10 change: ニコニコ動画ã«å¯¾å¿œã—㟠+# 2010/11/13 change: 無圧縮zipã§ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã§ãるよã†ã«ã—ãŸã€‚ +# 大é‡ã®å‹•ç”»ãŒã‚ã‚‹ã¨ãã‚ャッシュã‹ã‚‰å–å¾—ã™ã‚‹ã‚ˆã†ã« +# ã—ãŸã€‚ãŸã ã—ã€æœ‰åŠ¹æœŸé™ã¯ï¼‘時間ã§ã™ã€‚ +# 2010/10/27 change: MSIE ã¨Opera以外ã¯Windwos Mediaプレイヤー +# å†ç”Ÿæ™‚ã«_blank(実質別タブ）ã«ãªã‚‹ã‚ˆã†ã«ã—ãŸã€‚ +# Safariã§ã¯æœ¬å½“ã«åˆ¥çª“ã«ãªã‚Šã¾ã™ã€‚ +# 2010/10/24 change: use sub make_link_target +###################################################################### + +$PLUGIN="playvideo"; +$VERSION="2.1"; + +BEGIN { + push @INC, 'lib'; + unshift @INC, 'lib'; +} + +use CGI qw(:standard); +use CGI::Carp qw(fatalsToBrowser); + +#$::defaultcode="utf8"; + +%::functions = ( + "load_module" => \&load_module, +); + +require "pyukiwiki.ini.cgi"; +require $::setup_file if (-r $::setup_file); # for feature +require "plugin/counter.inc.pl"; +require "plugin/playvideo.inc.pl"; +$::counter_ext = '.count'; +$::info_dir="./info"; +use Nana::Cache; +use Nana::HTTP; +use Image::ExifTool; + +#use LWP::UserAgent; + +$::zip_cmds=$::playvideo_plugin_zipcmds; +$::zip_opts=$::playvideo_plugin_zipflags; +$::zip_tmp=$::playvideo_plugin_ziptmp; + +# from http://html5-css3.jp/useful/css3-html5.html + + ＠ HTML5_VIDEO_TARGETS_MP4=( +# "Safari Version 4", # 対応ã—ã¦ã„ã‚‹ã¯ãšã ãŒãƒ»ãƒ»ãƒ» + "MSIE 9", # IE9ã§ã‚‚å†ç”Ÿã§ãã‚‹ãŒã€video.jsã®ãƒã‚°ã®å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™ã€‚ +); + + ＠ HTML5_VIDEO_TARGETS_OGV=( + "Fire[Ff]ox 4", + "Opera Version 11", + "Chrome 1", # chrome ã‚’webmã«ã—ãŸã®ã¯ã€æ¬¡æœŸä»–ã®ã‚³ãƒ¼ãƒ‡ã‚£ãƒƒã‚¯ã‚’サãƒãƒ¼ãƒˆçµ‚了ã™ã‚‹å¯èƒ½æ€§ãŒã‚ã‚‹ãŸã‚。 +); + + ＠ HTML5_VIDEO_TARGETS_WEBM=( + "Chrome 1", # chrome ã‚’webmã«ã—ãŸã®ã¯ã€æ¬¡æœŸä»–ã®ã‚³ãƒ¼ãƒ‡ã‚£ãƒƒã‚¯ã‚’サãƒãƒ¼ãƒˆçµ‚了ã™ã‚‹å¯èƒ½æ€§ãŒã‚ã‚‹ãŸã‚。 +# "Safari Version 4", # 対応ã—ã¦ã„ã‚‹ã¯ãšã ãŒãƒ»ãƒ»ãƒ» + "MSIE 9", # 以下ã€googleã«ã‚ˆã‚‹ã‚µãƒãƒ¼ãƒˆ + "Fire[Ff]ox 4", + "Opera Version 11", +); + +$v_css=qq(*,img,body,td,div{background-color:#000;color:#fff;margin:0;padding:0}); +$v_html5_js=qq(window.focus();flowplayer("player","$basehref$::skin_url/flowplayer-3.2.7.swf",{clip:{url:"$flvpath",autoPlay:true,autoBuffering:true,scaling:"fit"},canvas:{backgroundColor:"#000000",backgroundGradient:"none"},plugins:{controls:{height:24,play:true,stop:true,volume:true,mute:true,time:true,fullscreen:true,volumeSliderColor:"#000000",tooltipColor:"#5F747C",progressColor:"#112233",bufferColor:"#445566",buttonColor:"#5F747C",sliderColor:"#000000",backgroundGradient:"high",durationColor:"#ffffff",backgroundColor:"#222222",progressGradient:"medium",borderRadius:"0",buttonOverColor:"#728B94",bufferGradient:"none",timeBgColor:"#555555",sliderGradient:"none",volumeSliderGradient:"none",tooltipTextColor:"#ffffff",timeColor:"#01DAFF"}}});); +$v_flash_js=qq(window.focus();VideoJS.setupAllWhenReady();VideoJS.DOMReady(function(){var a=VideoJS.setup("playvideo");var b=VideoJS.setup("All");a.play()});VideoJS.setupAllWhenReady({controlsBelow:false,controlsHiding:true,defaultVolume:0.85,flashVersion:9,linksHiding:true});); + +&main; + +sub main { + $query=new CGI; + + foreach my $i (0x00 .. 0xFF) { + $::_urlescape{chr($i)} = sprintf('%%%02x', $i); + $::_dbmname_encode{chr($i)} = sprintf('%02X', $i); + } + + $ENV{PATH_INFO}=~s/^\///g; + $file=$ENV{PATH_INFO}; + $file=~s/\..*//g; + $ext=$ENV{PATH_INFO}; + $ext=~s/.*\.//g; + + $videopath=$::playvideo_plugin_videopath; + $videourl=$::playvideo_plugin_videourl; + + my $exifTool = new Image::ExifTool; + my $info = $exifTool->ImageInfo("$videopath/$file.$wmv"); + + $title=&code_convert(\$$info{Title}, 'sjis'); + $author=&code_convert(\$$info{Author}, 'sjis'); + $copyright=&code_convert(\$$info{Copyright}, 'sjis'); + + if($ext eq "asx" || $ext eq "wmx" || $ext eq "wvx") { + &plugin_counter_do("playvideo_$file","w"); + print <<EOM; +Content-Type: video/x-ms-wvx; charset=Shift_JIS + +<asx version="3.0"> +<entry> +<title>$$info{Title}</title> +<author>$$info{Author}</author> +<copyright>$$info{Copyright}</copyright> +<ref href="$videourl/$file.$wmv" /> +</entry> +</asx> +EOM + } elsif($ext eq "zip" && $::playvideo_plugin_usedownload eq 1) { + &plugin_counter_do("playvideo_$file","w"); + foreach $cmd (split(/\n/,$::zip_cmds)) { + if (-x $cmd) { + $fname="$zip_tmp/$file.$wmv-$ENV{REMOTE_ADDR}.zip"; + # 簡易ãƒãƒƒã‚¯ + do { + sleep 1; + } if (-r $fname); + + chdir($videopath); + if(open(PIPE,"$cmd $zip_opts $fname $file.$wmv |")) { + @TMP=<PIPE>; + close(PIPE); + $size = -s $fname; + if(open(R, $fname)) { + my $downloadfile="$file.zip"; + if($::playvideo_plugin_downloadfilename_inwmv) { + my $in_author; + + if($::playvideo_plugin_downloadfilename_inwmv_withauthor) { + $in_author=" ($author)" if($author ne ''); + } + if($title ne '') { + $downloadfile="$title$in_author.zip"; + } + } + $::defaultcode='sjis'; + ($charset,$downloadfile)=&dlfileconvert($downloadfile); + print $query->header( + -type=>"application/zip; charset=$charset", + -Content_disposition=>"attachment; $downloadfile", + -Content_length=>$size, + -expires=>"now", + -P3P=>"" + ); + + binmode R; + binmode STDOUT; + print <R>; + close(R); + unlink($fname); + exit; + } else { + unlink($fname); + &err("Can't create zip file. sorry."); + exit; + } + } else { + unlink($fname); + &err("Can't create pipe. sorry.");# + exit; + } + exit; + } + } + &err("Not found zip command."); + exit; + } elsif($ext eq "dl" && $::playvideo_plugin_usedownload eq 1) { + $size = -s "$videopath/$file.$wmv"; + my $downloadfile="$file.$wmv"; + if($::playvideo_plugin_downloadfilename_inwmv) { + my $in_author; + + if($::playvideo_plugin_downloadfilename_inwmv_withauthor) { + $in_author=" ($author)" if($author ne ''); + } + if($title ne '') { + $downloadfile="$title$in_author.$wmv"; + } + } + + ($charset,$downloadfile)=&dlfileconvert($downloadfile); + print $query->header( + -type=>"application/zip; charset=$charset", + -Content_disposition=>"attachment; $downloadfile", + -Content_length=>$size, + -expires=>"now", + -P3P=>"" + ); + + if(open(R, "$videopath/$file.$wmv")) { + binmode R; + binmode STDOUT; + print <R>; + close(R); + exit; + } else { + &err("Can't open download file. sorry."); + exit; + } + } elsif($ext eq $flv || $ext eq $vhtml) { + if(lc $::charset eq 'utf-8') { + $::kanjicode='utf8'; + } else { + $::charset=( + $::kanjicode eq 'euc' ? 'EUC-JP' : + $::kanjicode eq 'utf8' ? 'UTF-8' : + $::kanjicode eq 'sjis' ? 'Shift-JIS' : + $::kanjicode eq 'jis' ? 'iso-2022-jp' : '') + } + } + + &getbasehref if($::skin_url!~/^https?\:\/\//); + &skin_init; + if(-r "$::explugin_dir/setting.inc.cgi") { + require "$::explugin_dir/setting.inc.cgi"; + my %ret=&plugin_setting_init; + } + &plugin_counter_do("playvideo_$file","w"); + $title=&code_convert(\$$info{Title}, $::defaultcode); + $author=&code_convert(\$$info{Author}, $::defaultcode); + $copyright=&code_convert(\$$info{Copyright}, $::defaultcode); + $title=$file if($title eq ''); + $width=$$info{ImageWidth} . "px"; + $height=$$info{ImageHeight} . "px"; + my $iecompatible; + if(-r "$::explugin_dir/iecompatiblehack.inc.cgi") { + require "$::explugin_dir/iecompatiblehack.inc.cgi"; + my %ret=&plugin_iecompatiblehack_init; + if($ret{'http_header'} ne '') { + $iecompatible=$ret{'http_header'}; + $iecompatible=~s/\n//g; + $iecompatible="\n$iecompatible"; + } + } + $csscharset=qq( charset="$::charset"); + + + $flvpath=&checkurl($file,$flv,$videopath,$videourl,%::playvideo_plugin_videourl); + $flvpath=&checkurl($file,$mp4,$videopath,$videourl,%::playvideo_plugin_videourl) + if($flvpath eq ''); + + if($ext eq $vhtml) { + $html5videotag=&html5video($file,$videopath,$videourl,%::playvideo_plugin_videourl); + if($html5videotag ne "") { + $body=<<EOM; +Content-Type: text/html; charset=$::charset$iecompatible + +<!DOCTYPE html> +<html lang="$::lang"> +<head> +<link rel="stylesheet" href="$basehref$::skin_url/$::skin{default_css}" type="text/css" media="screen"$csscharset /> +<link rel="stylesheet" href="$basehref$::skin_url/$::skin{print_css}" type="text/css" media="print"$csscharset /> +<link rel="stylesheet" href="$basehref$::skin_url/video-js.css" type="text/css" media="screen" title="Video JS"$csscharset /> +<title>$title</title> +<style type="text/css"><!-- +$v_css +//--></style> +<title>$title</title> +<script src="$basehref$::skin_url/video.js" type="text/javascript"$csscharset></script> +<script type="text/javascript"><!-- +$v_html5_js +//--></script> +</head> +<body oncontextmenu="return false"> +<div class="video-js-box" id="player"> +<video id="playvideo" class="video-js" width="$$info{ImageWidth}" height="$$info{ImageHeight}" controls="controls" preload="auto" autoplay="autoplay"> +$html5videotag +</video> +</div> +EOM + } else { + $body.=<<EOM; +Content-Type: text/html; charset=$::charset$iecompatible + +<!DOCTYPE html> +<html lang="$::lang"> +<head> +<link rel="stylesheet" href="$basehref$::skin_url/$::skin{default_css}" type="text/css" media="screen"$csscharset /> +<link rel="stylesheet" href="$basehref$::skin_url/$::skin{print_css}" type="text/css" media="print"$csscharset /> +<link rel="stylesheet" href="$basehref$::skin_url/video-js.css" type="text/css" media="screen" title="Video JS"$csscharset /> +<title>$title</title> +<style type="text/css"><!-- +$v_css +//--></style> +<title>$title</title> +<script type="text/javascript" src="$basehref$::skin_url/flowplayer-3.2.6.min.js"></script> +</head> +<body oncontextmenu="return false"> +<div style="width:$width;height:$height" id="player"></div> +<script><!-- +$v_flash_js +//--></script> +</div> +EOM + } + } else { + $body.=<<EOM +Content-Type: text/html; charset=$::charset$iecompatible + +<?xml version="1.0" encoding="$::charset" ?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="$::lang"> +<head> +<link rel="stylesheet" href="$basehref$::skin_url/$::skin{default_css}" type="text/css" media="screen"$csscharset /> +<link rel="stylesheet" href="$basehref$::skin_url/$::skin{print_css}" type="text/css" media="print"$csscharset /> +<title>$title</title> +<script type="text/javascript" src="$basehref$::skin_url/flowplayer-3.2.6.min.js"></script> +<style type="text/css"><!-- +$v_css +//--></style> +<title>$title</title> +</head> +<body oncontextmenu="return false"> +<div id="page"> +<div style="width:$width;height:$height" id="player"></div> +<script type="text/javascript"><!-- +$v_flash_js +//--></script> +EOM + } + if($author ne '' && $copyright ne '') { + $body.=<<EOM; +<table width="100%"><tr><td>作æˆè€…：$author 著作権：$copyright</td> +<td align="right"><form action="#"><input type="button" value="é–‰ã˜ã‚‹" onclick="self.close();"></form></td></tr></table> +EOM + } elsif($author ne '' && $copyright eq '') { + $body.=<<EOM; +<table width="100%"><tr><td>作æˆè€…：$author</td> +<td align="right"><form action="#"><input type="button" value="é–‰ã˜ã‚‹" onclick="self.close();"></form></td></tr></table> +EOM + } elsif($author eq '' && $copyright ne '') { + $body.=<<EOM; +<table width="100%"><tr><td>著作権：$copyright</td> +<td align="right"><form action="#"><input type="button" value="é–‰ã˜ã‚‹" onclick="self.close();"></form></td></tr></table> +EOM + } else { + $body.=<<EOM; +<p align="right"><form action="#"><input type="button" value="é–‰ã˜ã‚‹" onclick="self.close();"></form></p> +EOM + } + $body.=<<EOM; +</div></body></html> +EOM + + print &code_convert(\$body, $::kanjicode); + + } elsif($ext=~/^sm(\d+)/) { + &plugin_counter_do("playvideo_$file","w"); + print <<EOM; +Location: http://www.nicovideo.jp/watch/$ext + +EOM + } else { + &plugin_counter_do("playvideo_$file","w"); + print <<EOM; +Location: http://www.youtube.com/watch?v=$ext + +EOM + } +} + +sub dlfileconvert { + my ($downloadfile)=shift; + $::defaultcode='sjis'; + + if($downloadfile=~/[\x81-\xfe]/) { + if($ENV{HTTP_USER_AGENT} =~/Chrome/) { + $downloadfile=&code_convert(\$downloadfile,"utf8"); + $downloadfile=qq(filename="$downloadfile"); + $downloadfile=~s/%2e/\./g; + $charset="utf-8"; + } elsif($ENV{HTTP_USER_AGENT}=~/MSIE/) { + $downloadfile=qq{filename="} . &code_convert(\$downloadfile,"sjis") . qq{"}; + $charset="Shift-JIS"; + } else { + $downloadfile=&code_convert(\$downloadfile,"utf8"); + $downloadfile=qq(filename="$downloadfile"); + $charset="utf-8"; + } + } else { + $downloadfile=qq(filename="$downloadfile"); + $charset="utf-8"; + } + return ($charset,$downloadfile); +} + +sub html5video { + my($file,$path,$videourl,%videourls)=@_; + + my $agent=$ENV{HTTP_USER_AGENT}; + my $tag=""; + my $url; + + if(($url=&checkurl($file,$mp4,$path,$videourl,%videourls)) ne '') { + foreach(@HTML5_VIDEO_TARGETS_MP4) { + my($arg1,$arg2,$arg3)=split(/ /,$_); + if($arg3 eq "") { + if($agent=~/$arg1[\s|\/](\d+)\./) { + if($1 >= $arg2) { + $tag.=<<EOM; +<source src="$url" type="video/mp4" /> +EOM + } + } + } elsif($agent=~/$arg1/) { + if($agent=~/$arg2[\s|\/](\d+)\./) { + if($1 >= $arg3) { + $tag.=<<EOM; +<source src="$url" type="video/mp4" /> +EOM + } + } + } + } + } + + if(($url=&checkurl($file,$ogv,$path,$videourl,%videourls)) ne '') { + foreach(@HTML5_VIDEO_TARGETS_OGV) { + my($arg1,$arg2,$arg3)=split(/ /,$_); + if($arg3 eq "") { + if($agent=~/$arg1[\s|\/](\d+)\./) { + if($1 >= $arg2) { + $tag.=<<EOM; +<source src="$url" type='video/ogg; codecs="theora, vorbis"' /> +EOM + } + } + } elsif($agent=~/$arg1/) { + if($agent=~/$arg2[\s|\/](\d+)\./) { + if($1 >= $arg3) { + $tag.=<<EOM; +<source src="$url" type='video/ogg; codecs="theora, vorbis"' /> +EOM + } + } + } + } + } + + if(($url=&checkurl($file,$webm,$path,$videourl,%videourls)) ne '') { + foreach(@HTML5_VIDEO_TARGETS_WEBM) { + my($arg1,$arg2,$arg3)=split(/ /,$_); + if($arg3 eq "") { + if($agent=~/$arg1[\s|\/](\d+)\./) { + if($1 >= $arg2) { + $tag.=<<EOM; +<source src="$url" type='video/webm; codecs="vp8, vorbis"' /> +EOM + } + } + } elsif($agent=~/$arg1/) { + if($agent=~/$arg2[\s|\/](\d+)\./) { + if($1 >= $arg3) { + $tag.=<<EOM; +<source src="$url" type='video/webm; codecs="vp8, vorbis"' /> +EOM + } + } + } + } + } + + return $tag; +} + +sub is_exist_page { + return 1; +} + +sub encode { + my ($encoded) = @_; + $encoded =~ s/(\W)/$::_urlescape{$1}/g; + return $encoded; +} + +sub dbmname { + my ($name) = @_; + $name =~ s/(.)/$::_dbmname_encode{$1}/g; + return $name; +} + +my $_tz=''; +sub gettz { + if($_tz eq '') { + $_tz=(localtime(time))[2]+(localtime(time))[3]*24+(localtime(time))[4]*24 + +(localtime(time))[5]*24-(gmtime(time))[2]-(gmtime(time))[3]*24 + -(gmtime(time))[4]*24-(gmtime(time))[5]*24; + } + return $_tz; +} + +sub code_convert { + my ($contentref, $kanjicode, $icode) = @_; + if($$contentref ne '') { + if ($::lang eq 'ja') { + if($::code_method{ja} eq 'jcode.pl') { + die "Unsupport jcode.pl"; + } else { + &load_module("Jcode"); + $$contentref .= ''; + $$contentref=~s/\xef\xbd\x9e/\xe3\x80\x9c/g; + &Jcode::convert($contentref, $kanjicode, $icode); + $$contentref=~s/\xe3\x80\x9c/\xef\xbd\x9e/g; + } + } + } + return $$contentref; +} + +sub err { + ($msg)=@_; + print <<EOM; +Content-type: text/plain + +$msg +EOM +} + +sub getbasehref { + return if($::basehref ne ''); + $::basehost = "$ENV{'HTTP_HOST'}"; + + if (($ENV{'https'} =~ /on/i) || ($ENV{'SERVER_PORT'} eq '443')) { + $::basehost = 'https://' . $::basehost; + } else { + $::basehost = 'http://' . $::basehost; + # Special Thanks to gyo + $::basehost .= ":$ENV{'SERVER_PORT'}" + if ($ENV{'SERVER_PORT'} ne '80' && $::basehost !~ /:\d/); + } + + my $uri=$ENV{REQUEST_URI}; + $uri=~s/v\.cgi.*//g; + $::basehref=$::basehost . $uri; + $::basepath=$uri; + $::basepath=~s/\/[^\/]*$//g; + $::basepath="/" if($::basepath eq ''); + $::script=$uri if($::script eq ''); +} + +sub skin_init { + $::skin_file="$::skin_dir/" . &skin_check("$::skin_name.skin%s.cgi",".$::lang",""); + $::skin{default_css}=&skin_check("$::skin_name.default%s.css",".$::lang",""); + $::skin{print_css}=&skin_check("$::skin_name.print%s.css",".$::lang",""); + $::skin{common_js}=&skin_check("common%s.js",".$::kanjicode.$::lang",".$::lang"); +} + +sub skin_check { + my($file)=@_; + foreach(@_) { + my $f=sprintf($file,$_); + return $f if(-f "$::skin_dir/$f"); + } + die sprintf("$file not found",""); + exit; +} + +sub exec_explugin_sub { + my($explugin)=@_; + foreach(@::loaded_explugin) { + return if($explugin eq $_); + } + if (&exist_explugin($explugin) eq 1) { + my $action = "\&plugin_" . $explugin . "_init"; + push(@::loaded_explugin,$explugin); + my %ret = eval $action; + $::_exec_plugined{$explugin} = 2 if($ret{init}); + $::HTTP_HEADER.="$ret{http_header}\n"; + $::IN_HEAD.=$ret{header}; + $::IN_BODY.=$ret{bodytag}; + + $explugin_last.="$ret{last_func},"; + if (($ret{msg} ne '') && ($ret{body} ne '')) { + $exec = 0; + &skinex($ret{msg}, $ret{body}); + exit; + } + } +} + +sub exist_explugin { + my ($explugin) = @_; + + if (!$_exec_plugined{$explugin}) { + my $path = "$::explugin_dir/$explugin" . '.inc.cgi'; + if (-e $path) { + require $path; + $::debug.=$@; + $_exec_plugined{$1} = 1; + return 1; + } + return 0; + } + return $_exex_plugined{$explugin}; +} + +sub getcookie { + my($cookieID,%buf)=@_; + my @pairs; + my $pair; + my $cname; + my $value; + my %DUMMY; + + @pairs = split(/;/,&decode($ENV{'HTTP_COOKIE'})); + foreach $pair (@pairs) { + ($cname,$value) = split(/=/,$pair,2); + $cname =~ s/ //g; + $DUMMY{$cname} = $value; + } + @pairs = split(/,/,$DUMMY{$cookieID}); + foreach $pair (@pairs) { + ($cname,$value) = split(/:/,$pair,2); + $buf{$cname} = $value; + } + return %buf; +} + +sub decode { + my ($s) = @_; + $s =~ tr/+/ /; + $s =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/chr(hex($1))/eg; + return $s; +} + +sub load_module{ + my $mod = shift; + return $mod if $::_module_loaded{$mod}++; + eval qq( require $mod; ); + $mod=undef if($@); + return $mod; +} + +sub escapeoff {}; + +__END__ +=head1 NAME + +playvideo.inc.pl - PyukiWiki External Plugin + +=head1 SYNOPSIS + +Playvideo Plugin + +=head1 SEE ALSO + +=over 4 + +=item PyukiWiki/Plugin/Nanami/ad/ + +L<http://pyukiwiki.sfjp.jp/PyukiWiki/Plugin/Nanami/ad/> + +=item PyukiWiki CVS + +L<http://sfjp.jp/cvs/view/pyukiwiki/PyukiWiki-Devel/v.cgi?view=log> + +L<http://sfjp.jp/cvs/view/pyukiwiki/PyukiWiki-Devel-UTF8/v.cgi?view=log> + +L<http://sfjp.jp/cvs/view/pyukiwiki/PyukiWiki-Devel/plugin/playvideo.inc.pl?view=log> + +L<http://sfjp.jp/cvs/view/pyukiwiki/PyukiWiki-Devel-UTF8/plugin/playvideo.inc.pl?view=log> + +=back + +=head1 AUTHOR + +=over 4 + +=item Nanami + +L<http://nanakochi.daiba.cx/> etc... + +=item PyukiWiki Developers Team + +L<http://pyukiwiki.sfjp.jp/> + +=back + +=head1 LICENSE + +Copyright (C) 2005-2012 by Nanami. + +Copyright (C) 2005-2012 by PyukiWiki Developers Team + +License is GNU GENERAL PUBLIC LICENSE 3 and/or Artistic 1 or each later version. + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +=cut
