@@ -159,5 +161,5 @@ http://lists.mplayerhq.hu/pipermail/ffmpeg-devel/2006-March/009814.html

環境によっては更にx264.cのアップデートが必要という情報が寄せられた。(From foltia BBS TTTさん) -

svn cat --revision 6711 ffmpeg/libavcodec/x264.c > ffmpeg/libavcodec/x264.c

3.メイクする
手もとでは下記オプションでビルドしています。 @@ -223,4 +225,7 @@ 5:iPhone/iPod 480x320 H.264 高画質 30fps 350kbps

+ $phptoolpath = $toolpath ;
+ foltiaのphpディレクトリのパスを指定します。デフォルトではperlと同じ階層になります。
+
そのほか、データベース設定もありますが環境に応じて設定して下さい。

・設定2:php/foltia_config2.php

@@ -237,4 +242,10 @@ $recunits = '4';
foltia_conf1.plと同じ搭載エンコーダの数。GV-MVP/RX2Wを一枚刺しの場合は2になります。

$useenvironmentpolicy = 0 ;
+環境ポリシーを使うかどうか。環境ポリシー機能については後述します。最初は利用しない状態で動作確認をすることをおすすめいたします。

$environmentpolicytoken = "";
+ 環境ポリシーのパスワードに連結されるセキュリティコード。環境ポリシー機能については後述します

$perltoolpath = $toolpath ;
+foltiaのperlディレクトリのパスを指定します。デフォルトではphpと同じ階層になります。

・設定3:foltia_stationテーブル

録画の重要な設定となる項目です。インストールが無事に終了してれば首都圏の放送局設定サンプルが入っていますのでそれを参考に設定して下さい。
@@ -397,5 +408,63 @@

・環境ポリシー

foltiaではチェンジセット70にて環境ポリシーと呼ばれる機能が追加されました。以下では環境ポリシー機能について説明いたします。

概要

+環境ポリシーは家庭内など利用者が複数いる環境でより便利に使えるよう導入されました。 +具体的には次のような機能を持ちます。
+・ユーザの概念の導入
+・ユーザごとの権限の概念の導入
+・ユーザごとの個別設定の保持(未実装) + +

設定

+ +

foltia_config2.phpで次の設定を変更します。

$useenvironmentpolicy = 0 ;
+ 環境ポリシーを使うかどうか。0が未使用(デフォルト)、1が使用です。

$environmentpolicytoken = "";
+ 環境ポリシーのパスワードに連結されるセキュリティコード。セキュリティコードとは各ユーザがログインするために自分のアカウントのパスワード以外に知らなければいけないフレーズです。デフォルトは空白です。空白でも差し支えありません。

$perltoolpath = $toolpath ;
+ foltiaのperlディレクトリのパスを指定します。デフォルトではphpと同じ階層になります。

古いfoltiaからアップグレードする場合はデータベースのテーブルを拡張する必要があります。
+ テーブルの + 詳細はmktable.txtファイルを参考にして下さい。
+ ・新規作成テーブル:foltia_envpolicy
+ ・追加カラム:foltia_subtitleテーブルにepgaddedbyカラム追加
+ ・新規レコード追加:foltia管理者アカウントをユーザリストに作ります。新規インストールした場合は次のように作られます。
+ 　insert into foltia_envpolicy + values ( '0','0','foltia','foltiapasswd',now(),'');
+
+

　つぎに.htpasswdファイルを作成します。デフォルトではperlディレクトリと同じ階層に設置されます。もし既に.htpasswdがあるならば必要に応じてバックアップを取っておいて下さい。ファイルの作成はperl/envpolicyupdate.plを実行することで自動的に作成されます。

　環境ポリシーが有効になると、アクセス時にブラウザによって認証画面が出るようになります。ID:foltia + PW:foltiapasswd)が初期管理者パスワードです。ページが表示されるとメニューの右端にアカウントが出るようになります。
+

操作

ログイン時に認証されなかった場合下記の画面になります。
+ +
+ここで「こちらから。」につながってるリンクをたどるとaccountregist.phpに移動して次のような画面となります。
+
+ここでアカウントを追加すると即時に有効になります。
+　設定でセキュリティコードを空白のデフォルトにしておいた場合、ここで登録されたパスワードでログイン出来ます。セキュリティコードを設定した場合パスワードとセキュリティコードをつないだ文字列でログイン可能となります。具体的にはこんな感じです。
+・アカウントのパスワード[fate]、セキュリティコード、空白の場合、ログインパスワード:[fate]
+・アカウントのパスワード[fate]、セキュリティコード、[nanoha]の場合、ログインパスワード:[fatenanoha]
+特権管理者はセキュリティコードのいかんにかかわらず常にアカウントのパスワードでログイン出来ます。

ユーザクラスは次のように定義されています。
+
+ 0:特権管理者:インストール時に設定されるfoltiaアカウントのクラス。
+ 1:管理者:予約削除、ファイル削除が出来る。セキュリティコード以外特権管理者と同様。
+ 2:利用者:EPG追加、予約追加が出来る。
+ 3:ビュアー:ファイルダウンロードが出来る。
+4:ゲスト:インターフェイスが見れる。(未実装)
+
+新規登録されたアカウントのデフォルトユーザクラスは2の利用者となります。
+

管理者はEPG録画の予約者確認と、予約削除が可能です。
+

今後ユーザごとにFolcastを編集出来る機能などを開発予定です。

・おわりに

　以上、駆け足でfoltiaの概要を説明してきました。今のところfoltiaには視聴に関する機能は一切ありませんが、使用例として自宅では富士通T90Hというパソコンにfoltia録画ボリュームをSambaでマウントし、WinDVDでMPEG2を再生、外ではiPod @@ -418,5 +487,5 @@ IRC #dameTunesのみなさま
他多数

本ドキュメントはオープンソースマガジン200年6月号(ソフトバンククリエイティブ刊)向け原稿として書き起こした稿をもとに加筆したものです。公開を快く許諾して下さいましたソフトバンククリエイティブ様にお礼申し上げます。

本ドキュメントはオープンソースマガジン2006年6月号(ソフトバンククリエイティブ刊)向け原稿として書き起こした稿をもとに加筆したものです。公開を快く許諾して下さいましたソフトバンククリエイティブ様にお礼申し上げます。

本ソフトウェアは完全な無保証です。ライセンスとしてGPL2を適用したいと考えていますが適用出来るかどうかの判断がまだ終わっていない段階です。

Index: /trunk/install/perl/foltialib.pl =================================================================== --- /trunk/install/perl/foltialib.pl (リビジョン 50) +++ /trunk/install/perl/foltialib.pl (リビジョン 70) @@ -227,4 +227,34 @@ +sub getphpstyleconfig{ +my $key = $_[0]; +my $phpconfigpath = ""; +my $configline = ""; + # read +if (-e "$phptoolpath/php/foltia_config2.php"){ + $phpconfigpath = "$phptoolpath/php/foltia_config2.php"; +}elsif(-e "$toolpath/php/foltia_config2.php"){ + $phpconfigpath = "$toolpath/php/foltia_config2.php"; +}else{ + $phpconfigpath = `locate foltia_config2.php | head -1`; + chomp($phpconfigpath); +} + + +if (-r $phpconfigpath ){ +open (CONFIG ,"$phpconfigpath") || die "File canot read.$!"; +while(){ + if (/$key/){ + $configline = $_; + $configline =~ s/\/\/.*$//; + $configline =~ s/\/\*.*\*\///; + }else{ + } +} +close(CONFIG); +}#end if -r $phpconfigpath +return ($configline); +}#end sub getphpstyleconfig + 1; Index: /trunk/install/perl/envpolicyupdate.pl =================================================================== --- /trunk/install/perl/envpolicyupdate.pl (リビジョン 70) +++ /trunk/install/perl/envpolicyupdate.pl (リビジョン 70) @@ -0,0 +1,73 @@ +#!/usr/bin/perl +# +# Anime recording system foltia +# http://www.dcc-jpl.com/soft/foltia/ +# +# +# envpolicyupdate.pl +# +# 環境ポリシー利用時に.htpasswdを再編する。 +# +# +# DCC-JPL Japan/foltia project +# +# + +use DBI; +use DBD::Pg; + +$path = $0; +$path =~ s/envpolicyupdate.pl$//i; +if ($pwd ne "./"){ +push( @INC, "$path"); +} + +require "foltialib.pl"; + +# 環境ポリシーを使っているかPHPコンフィグファイル解析 +$returnparam = getphpstyleconfig("useenvironmentpolicy"); +eval "$returnparam\n"; + +if ($useenvironmentpolicy == 1){ +$returnparam = getphpstyleconfig("environmentpolicytoken"); +eval "$returnparam\n"; + + my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d", + $DBDriv,$DBName,$DBHost,$DBPort); + $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;; + +$DBQuery = "SELECT userclass,name,passwd1 FROM foltia_envpolicy "; + + $envph = $dbh->prepare($DBQuery); + $envph->execute(); + +#なければつくる +unless (-e "$toolpath/.htpasswd"){ + $oserr = `touch $toolpath/.htpasswd`; +}else{ + $oserr = `mv $toolpath/.htpasswd $toolpath/htpasswd_foltia_old`; + $oserr = `touch $toolpath/.htpasswd`; +} + +while (@ref = $envph->fetchrow_array ){ + +if ($ref[0] == 0){ +#ユーザクラス +#0:特権管理者 +#1:管理者:予約削除、ファイル削除が出来る +#2:利用者:EPG追加、予約追加が出来る +#3:ビュアー:ファイルダウンロードが出来る +#4:ゲスト:インターフェイスが見れる + + $htpasswd = "$ref[2]"; +}else{ + $htpasswd = "$ref[2]"."$environmentpolicytoken"; +} + +$oserr = `htpasswd -b $toolpath/.htpasswd $ref[1] $htpasswd`; + + +}#end while +&writelog("envpolicyupdate htpasswd updated."); + +}#endif Index: /trunk/install/perl/foltia_conf1.pl.template =================================================================== --- /trunk/install/perl/foltia_conf1.pl.template (リビジョン 8) +++ /trunk/install/perl/foltia_conf1.pl.template (リビジョン 70) @@ -25,4 +25,5 @@ #2:iPod H.264 中画質 24fps 300kbps #3:iPod H.264 高画質 30fps 300kbps +$phptoolpath = $toolpath ;#php版の初期設定の位置。デフォルトではperlと同じ位置 #以下はデフォルトでインストールしてればいじらなくてもいい Index: /trunk/install/perl/ipodtranscode.pl =================================================================== --- /trunk/install/perl/ipodtranscode.pl (リビジョン 62) +++ /trunk/install/perl/ipodtranscode.pl (リビジョン 70) @@ -103,12 +103,13 @@ $encodeoption = "-y -i $inputmpeg2 -target ipod -profile 51 -level 30 $cropopt -acodec aac -ab 96 -vcodec h264 -maxrate 700 -minrate 0 -deinterlace -b 300 -ar 32000 -mbd 2 -coder 1 -cmp 2 -subcmp 2 -s 320x240 -r 30000/1001 -flags loop -trellis 2 -partitions parti4x4+parti8x8+partp4x4+partp8x8+partb8x8 $movietitle ${mp4outdir}MAQ${mp4filenamestring}.MP4"; $mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4"; -}elsif($trconqty == 4){ #sample:src 106.6sec encode 334.8sec x3.14 kbps @Celeron2.6GHz 904kbps -$encodeoption = "-y -i $inputmpeg2 -target ipod -profile 51 -level 30 $cropopt -s 480x320 -b 350 -r 24 -acodec aac -ar 32000 -ac 2 $movietitle ${mp4outdir}MAQ${mp4filenamestring}.MP4"; +}elsif($trconqty == 4){ #sample:src 106.6sec encode 239sec x2.24 1036kbps @Celeron2.6GHz + +$encodeoption = "-y -i $inputmpeg2 -target ipod -profile 51 -level 30 $cropopt -s 480x360 -b 400 -r 24 -acodec aac -ar 32000 -ac 2 $movietitle ${mp4outdir}MAQ${mp4filenamestring}.MP4"; $mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4"; -}elsif($trconqty == 5){ #sample:src 106.6sec encode 684.5sec x6.42 kbps @Celeron2.6GHz 667kbps +}elsif($trconqty == 5){ #sample:src 106.6sec encode 1012sec x9.49 727kbps @Celeron2.6GHz -$encodeoption = "-y -i $inputmpeg2 -target ipod -profile 51 -level 30 $cropopt -acodec aac -ab 96 -vcodec h264 -maxrate 700 -minrate 0 -deinterlace -b 350 -ar 32000 -mbd 2 -coder 1 -cmp 2 -subcmp 2 -s 480x320 -r 30000/1001 -flags loop -trellis 2 -partitions parti4x4+parti8x8+partp4x4+partp8x8+partb8x8 $movietitle ${mp4outdir}MAQ${mp4filenamestring}.MP4"; +$encodeoption = "-y -i $inputmpeg2 -target ipod -profile 51 -level 30 $cropopt -acodec aac -ab 96 -vcodec h264 -maxrate 700 -minrate 0 -deinterlace -b 400 -ar 32000 -mbd 2 -coder 1 -cmp 2 -subcmp 2 -s 480x360 -r 30000/1001 -flags loop -trellis 2 -partitions parti4x4+parti8x8+partp4x4+partp8x8+partb8x8 $movietitle ${mp4outdir}MAQ${mp4filenamestring}.MP4"; $mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4"; } Index: /trunk/install/perl/recwrap.pl =================================================================== --- /trunk/install/perl/recwrap.pl (リビジョン 60) +++ /trunk/install/perl/recwrap.pl (リビジョン 70) @@ -278,7 +278,13 @@ # 既にトラコンプロセスが走っているなら適当に待機 if ($trcnprocesses >= $cpucores){ - &writelog("recwrap TRCN WAITING :$trcnprocesses / $cpucores :$outputfilename "); - sleep 53; - sleep $recch; + if (-e "/proc/uptime" ){ + $loadaverage = `uptime`; + chomp($loadaverage); + }else{ + $loadaverage = ""; + } + &writelog("recwrap TRCN WAITING :$trcnprocesses / $cpucores :$outputfilename $loadaverage"); + sleep 113; + sleep ($recch)*5; } } until ($trcnprocesses < $cpucores); Index: /trunk/install/php/reservecomp.php =================================================================== --- /trunk/install/php/reservecomp.php (リビジョン 1) +++ /trunk/install/php/reservecomp.php (リビジョン 70) @@ -17,4 +17,19 @@ */ + +include("./foltialib.php"); +$con = m_connect(); + +if ($useenvironmentpolicy == 1){ +if (!isset($_SERVER['PHP_AUTH_USER'])) { + header("WWW-Authenticate: Basic realm=\"foltia\""); + header("HTTP/1.0 401 Unauthorized"); + redirectlogin(); + exit; +} else { +login($con,$_SERVER['PHP_AUTH_USER'],$_SERVER['PHP_AUTH_PW']); +} +}//end if login + ?> @@ -29,5 +44,4 @@ "/> 分 (最長360分)

録画局: " />

+繰り返し指定-毎週以下の曜日に録画: + 日曜　 + 月曜　 + 火曜　 + 水曜　 + 木曜　 + 金曜　 + 土曜　 +

+ 　 Index: /trunk/install/php/foltia_config2.php.template =================================================================== --- /trunk/install/php/foltia_config2.php.template (リビジョン 51) +++ /trunk/install/php/foltia_config2.php.template (リビジョン 70) @@ -21,4 +21,7 @@ $protectmode = 0; //未使用:(ブラウザからの予約削除を禁止するなどの保護モードで動作します) $demomode = 0; //未使用:(ユーザインターフェイスだけ動作するデモモードで動作します) + $useenvironmentpolicy = 0 ;//環境ポリシーを使うかどうか + $environmentpolicytoken = "";//環境ポリシーのパスワードに連結されるセキュリティコード + $perltoolpath = $toolpath ;//perl版の初期設定の位置。デフォルトではphpと同じ位置 // データベース接続設定 Index: /trunk/install/php/delreserve.php =================================================================== --- /trunk/install/php/delreserve.php (リビジョン 1) +++ /trunk/install/php/delreserve.php (リビジョン 70) @@ -17,4 +17,19 @@ */ + +include("./foltialib.php"); +$con = m_connect(); + +if ($useenvironmentpolicy == 1){ +if (!isset($_SERVER['PHP_AUTH_USER'])) { + header("WWW-Authenticate: Basic realm=\"foltia\""); + header("HTTP/1.0 401 Unauthorized"); + redirectlogin(); + exit; +} else { +login($con,$_SERVER['PHP_AUTH_USER'],$_SERVER['PHP_AUTH_PW']); +} +}//end if login + ?> @@ -29,5 +44,4 @@ Index: /trunk/install/php/deletemovie.php =================================================================== --- /trunk/install/php/deletemovie.php (リビジョン 17) +++ /trunk/install/php/deletemovie.php (リビジョン 70) @@ -15,4 +15,19 @@ */ + +include("./foltialib.php"); +$con = m_connect(); + +if ($useenvironmentpolicy == 1){ +if (!isset($_SERVER['PHP_AUTH_USER'])) { + header("WWW-Authenticate: Basic realm=\"foltia\""); + header("HTTP/1.0 401 Unauthorized"); + redirectlogin(); + exit; +} else { +login($con,$_SERVER['PHP_AUTH_USER'],$_SERVER['PHP_AUTH_PW']); +} +}//end if login + ?> @@ -26,6 +41,4 @@ 録画番組削除

次の番組を削除しました。

+次の番組を削除しました。

+ + + + + + + + + + "; -

ファイル名	タイトル	話数	サブタイ

- - - - - - - - - -

ファイル名	タイトル	話数	サブタイ

\n"; + +}else{//権限なし + print "

ファイル削除権限がありません。

"; +} + ?> - - Index: /trunk/install/php/showplaylist.php =================================================================== --- /trunk/install/php/showplaylist.php (リビジョン 59) +++ /trunk/install/php/showplaylist.php (リビジョン 70) @@ -19,4 +19,20 @@ */ + +include("./foltialib.php"); +$con = m_connect(); + +if ($useenvironmentpolicy == 1){ + if (!isset($_SERVER['PHP_AUTH_USER'])) { + header("WWW-Authenticate: Basic realm=\"foltia\""); + header("HTTP/1.0 401 Unauthorized"); + redirectlogin(); + exit; + } else { + login($con,$_SERVER['PHP_AUTH_USER'],$_SERVER['PHP_AUTH_PW']); + } +}//end if login + + ?> @@ -27,5 +43,4 @@ "; -$con = m_connect(); $now = date("YmdHi"); ?> Index: /trunk/install/php/reserveprogram.php =================================================================== --- /trunk/install/php/reserveprogram.php (リビジョン 31) +++ /trunk/install/php/reserveprogram.php (リビジョン 70) @@ -15,4 +15,19 @@ */ + +include("./foltialib.php"); +$con = m_connect(); + +if ($useenvironmentpolicy == 1){ + if (!isset($_SERVER['PHP_AUTH_USER'])) { + header("WWW-Authenticate: Basic realm=\"foltia\""); + header("HTTP/1.0 401 Unauthorized"); + redirectlogin(); + exit; + } else { + login($con,$_SERVER['PHP_AUTH_USER'],$_SERVER['PHP_AUTH_PW']); + } +}//end if login + ?> @@ -28,5 +43,4 @@ foltia　| 放映予定 | 新番組 | 予約一覧 | 番組一覧 | 番組表 | 録画一覧(録画順・番組順・全) | 録画ライブラリ | Folcast(RSS)[iTunesにFolcastを登録] |

\n"; +$username = $_SERVER['PHP_AUTH_USER']; + +print "

foltia　| 放映予定 | 新番組 | 予約一覧 | 番組一覧 | 番組表 | 録画一覧(録画順・番組順・全) | 録画ライブラリ | Folcast[iTunesに登録] | "; +if ($useenvironmentpolicy == 1){ + print "【 $username 】"; +} + +print "

\n"; } @@ -529,15 +537,161 @@ - - - - - - - - - - - +function login($con,$name,$passwd){ +global $environmentpolicytoken; + +//入力内容確認 + if (((mb_ereg('[^0-9a-zA-Z]', $name)) ||(mb_ereg('[^0-9a-zA-Z]', $passwd) ))){ + + //print "エラー処理\n"; + //print ""; + redirectlogin(); + +}else{ +//print "正常処理\n"; +//db検索 +escape_string($name); +escape_string($passwd); + +$query = " +SELECT memberid ,userclass,name,passwd1 +FROM foltia_envpolicy +WHERE foltia_envpolicy.name = '$name' + "; + $useraccount = m_query($con, $query, "DBクエリに失敗しました"); + $useraccountrows = pg_num_rows($useraccount); + + if ($useraccountrows == 1 ){ + $rowdata = pg_fetch_row($useraccount, 0); + $memberid = $rowdata[0]; + $userclass = $rowdata[1]; + $username = $rowdata[2]; + $dbpasswd = $rowdata[3]; + }else{ + header("HTTP/1.0 401 Unauthorized"); + //print ""; + redirectlogin(); + }//end if + + +// passwdをdbから取りだし +if ($userclass == 0){ +$dbpasswd = "$dbpasswd"; +}else{ +// db passwdとトークンを連結し +$dbpasswd = "$dbpasswd"."$environmentpolicytoken"; +} +//それが入力と一致すれば認証 +if ($passwd == $dbpasswd) { +//print "認証成功
$dbpasswd $passwd\n"; +}else{ +//print "認証失敗
$dbpasswd $passwd\n"; + header("HTTP/1.0 401 Unauthorized"); + //print "