チェンジセット 83: trunk

コミット日時:

2008/12/30 22:12:46 (16 年前)

コミッタ:

sorshi

ログメッセージ:

foltiaHD最初のリリース。
デジタル録画はFriio/Friio BS/CSのみに対応。
ivtvは1.0系使用になりました。

ファイル:

• trunk/doc/img/iPhone_20080928-23.jpg (追加)
• trunk/doc/img/iPhone_20080928-25.jpg (追加)
• trunk/doc/img/iPhone_20080928-27.jpg (追加)
• trunk/doc/img/iPhone_20080928-30.jpg (追加)
• trunk/doc/img/screen02.png (更新) (変更前)
• trunk/doc/index.html (更新) (17 diffs)
• trunk/install/mktable.txt (更新) (5 diffs)
• trunk/install/perl/addpidatq.pl (更新) (2 diffs)
• trunk/install/perl/captureimagemaker.pl (更新) (2 diffs)
• trunk/install/perl/deletemovie.pl (更新) (1 diff)
• trunk/install/perl/digitaltvrecording.pl (追加)
• trunk/install/perl/foltia_conf1.pl.template (更新) (1 diff)
• trunk/install/perl/foltialib.pl (更新) (2 diffs)
• trunk/install/perl/ipodtranscode.pl (更新) (6 diffs)
• trunk/install/perl/record-v4l2.pl (追加)
• trunk/install/perl/recwrap.pl (更新) (7 diffs)
• trunk/install/perl/tool (追加)
• trunk/install/perl/tvrecording.pl (更新) (9 diffs)
• trunk/install/perl/updatem2pfiletable.pl (更新) (2 diffs)
• trunk/install/php/foltia_config2.php.template (更新) (2 diffs)
• trunk/install/php/img/icon.png (追加)
• trunk/install/php/index.php (更新) (6 diffs)
• trunk/install/php/iui (追加)
• trunk/install/php/listreserve.php (更新) (15 diffs)
• trunk/install/php/m.php (更新) (6 diffs)
• trunk/install/php/reservecomp.php (更新) (2 diffs)
• trunk/install/php/reserveepgcomp.php (更新) (3 diffs)
• trunk/install/php/reserveprogram.php (更新) (2 diffs)
• trunk/install/php/selectcaptureimage.php (更新) (2 diffs)
• trunk/install/php/showlib.php (更新) (6 diffs)
• trunk/install/php/showlibc.php (更新) (10 diffs)
• trunk/install/php/showplaylist.php (更新) (4 diffs)

trunk/doc/index.html

@@ -32 +32 @@
-  番組名と放映局を指定しておけばあとはなにもせずに毎回録画されます。<a href="http://cal.syoboi.jp/">しょぼいカレンダー</a>というアニメ番組表サイトと強く連係することで、野球中継で時間がずれても毎回期待通り録画されます。<br />
-  　
-
-MPEG4
+適切な録画装置を組み合わせることでハイビジョン録画も実現します。
+H.264/AVC
-　全ての主要操作はWebベースでコントロールされます。</p>
-<p><br />
@@ -42 +42 @@
-  <li>番組名によるアニメ自動録画機能
-    <ul>
-
+
+
-    </ul>
-  </li>
-  <li>EPG番組表による番組選択録画機能</li>
-  <li>開始時刻、放送局など個別設定による手動録画機能</li>
+  <li>iPhoneではシンクされてない番組でも専用画面でストリーミング視聴可能 </li>
-  <li>USBリモコンユニットを使った外部チューナー制御機能</li>
-Video
-しくみ
+
+仕組
-    <ul>
-。
+
-                <a href="img/foltia_vodcast.jpg"><img src="img/foltia_vodcast_s.jpg" width="320" height="240" border="2" /></a><br />
-      </li>
-    </ul>
-
+
+
+
+
+
+
+
+
+
+
-  </li>
-</ul>
@@ -61 +72 @@
-<h2 id="requirementhardware">・必要ハードウェア</h2>
-<ul>
-
-
+
+
+
- <div class="sidebar">
- IOデータ GV-MVP/RX,RX2は生産完了になり、後継として<a href = "http://www.iodata.jp/prod/multimedia/tv/2005/gv-mvprx3/index.htm">GV-MVP/RX3</a>が出ています。しかしGV-MVP/RX3はMPEG2エンコーダが変更になったため今のところ対応ドライバがありません。<br />
@@ -84 +96 @@
-  放映テレビ局とビットレートを選択する画面に移動するので内容を確認して予約ボタンを押します。番組の録画予約は番組ごとに一度するだけで全話自動で録画することが可能です。<br />
-  <br />
-6
+5
-  <br />
-  　予約ボタンを押すとデータベースの録画予約テーブル[foltia_tvrecord]に番組IDと放送局、録画ビットレートが追加されます。その後、キュー入れプログラム[addatq.pl]を呼びます。addatq.plは番組IDと局IDを受け取り48時間以内の放映予定を探し、それぞれの放映ごとに録画準備のためのプログラム[folprep.pl]を放送予定時刻の5分前にキュー入れします。<br />
-  　予約番組の放送予定時刻の5分前になると、準備プログラム[folprep.pl]が実行されます。これは、最新の番組表データを再取得し、放映時刻が変更されてないか確認後、放送開始時刻の1分前に録画プログラム[recwrap.pl]が走るようにキューを入れます。放送時刻が15分以上先に延びていたら、再度放送予定時刻の5分前に準備プログラム[folprep.pl]をキュー入れします。<br />
-
-
-
+
+
+
+
+
+
-  OS Xのローカライズ機構に準拠しているため、例えば665.localizedディレクトリはMac OS XのFinderでマウントすると「魔法少女リリカルなのはA's」と表示されます。<br />
-MPEG4への変換が終わるとpsp用MPEG4オプティマイザ[mp4psp]でタイトル入れとヘッダ組み立てをして最適化したあと、mplayerとImageMagickを利用してサムネールを作成
-
+[ipodtranscode.pl]は起動されると録画が古い順に順番にトラコンを実行し、サムネールを作成して、すべての録画ファイルを変換すると終了
+(ごめん、ちょっと古いまま)
-  <img src="img/blockdiagram.png" width="800" height="399" />　<br />
-</p>
@@ -113 +128 @@
-<hr>
-<h2 id="install">・インストール</h2>
-ビデオキャプチャ用ivtvドライバ
+録画プログラム、mplayer,ffmpeg,faac,iui,
-  　インストールはおおまかにOS,Apache,ivtvドライバ、PostgreSQL、foltiaの順で進めて行くとよいでしょう。<br />
-  　phpPgAdminやSambaなども必要に応じて入れておくと便利かもしれません。<br />
-　foltiaのダウンロードは公式ページ
+  　foltiaのダウンロードは公式ページのtarボール
-　Subversionを使う場合は下記のコマンドで最新versionを入手できます。</p>
-<p class="command">$svn co http://svn.dcc-jpl.com/foltia/trunk  foltia</p>
-
+(内容はやや古くなっています)
-<h3>・配線</h3>
-を取り付け、に
+、録画装置を取り付け、アンテナ線をつなぎ、
-<h3>・OSインストール</h3>
-手もとの開発
+筆者の
-<h3>・Apacheインストール</h3>
-<p>Apacheは2.2以降が2GBを越えるファイルの転送にも対応していて便利です。<br />
-  ポイントは、Apacheを動かすユーザをfoltiaにすることと、「.THM」のmime typeをimage/jpegにする設定を追加することです。</p>
-<h3>・ivtvドライバインストール</h3>
-
-
-
-
-
-
-
-
+
-<h3>・PostgreSQLインストール</h3>
-<p>ポイントは文字コードをEUC-JPでデータベースをつくることです。foltiaという名前でデータベースを作ったら、foltiaパッケージ付属のmktable.txtでテーブルを作成します。</p>
-ツール
+アプリ
-<p>以下のアプリケーションを利用します。インストールされてなければyumやaptなどからインストールして下さい。
-<br />
-
-
+
+
+
+
+
+
-<h3>・各種Perlモジュールのインストール</h3>
-<p>以下のPerlモジュールを利用します。インストールされてなければCPANなどからインストールして下さい。<br />
@@ -153 +165 @@
-<p>EPG番組表取得に必要なXMLTV日本語版をインストールします。<a href="http://linux.paken.org/index.php?XMLTV%C6%FC%CB%DC%C2%D0%B1%FE%C8%C7">ぱ研</a>が制作したものがすでに本家にマージされているようです。</p>
-<h3>・ffmpegインストール</h3>
-iPod H.264/AVCを作れる拡張をされたffmpegを
+最近のffmpegはiPod用H.264作成オプション(-f ipod)をもっていますが、ディストリビューション付属のffmpegがうまく動かなかったら作り直して
-  <br />
-1.ffmpegのソースを入手する
---revision {"2006-03-28 22:00"} 
+
-ffmpeg 
-
-
-
-
-
+
-  手もとでは下記オプションでビルドしています。
-mp3lame --enable-x264 --enable-gpl --enable-a52
-
+libmp3lame --enable-libx264 --enable-libxvid
+
-<h3>・foltia本体</h3>
-<p>installディリクトリの中にある「perl」と「php」をそれぞれ適当なところに配置します。<br />
-  手もとの環境では/home/foltia/perl/と/home/foltia/php/に配置しています。</p>
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-<h3>・外部チューナコントロール(オプション)</h3>
-<p>Home Electronics社製USB 赤外線トランスミッタ　<a href="http://www.home-electro.com/tira2.php">Tira-2.1</a>を利用することにより、外部チューナのコントロールを行うことが可能です。<br />
@@ -186 +206 @@
-  <span class="screen"><br />
-  $recunits = '4';<br />
-搭載エンコーダの数。GV-MVP/RX2Wを一枚刺しの場合は2
+アナログ録画の設定です。搭載エンコーダの数を指定します。GV-MVP/RX2Wを一枚刺しの場合は2になります。デジタルハイビジョン録画のみの場合は0
-  <br />
-  <span class="screen">$recfolderpath = '/home/foltia/php/tv';<br />
@@ -192 +212 @@
-  <br />
-  <span class="screen">$uhfbandtype = 0;<br />
-
+アナログ録画の設定です。
-  <span class="screen"><br />
-  $rapidfiledelete = 1;</span><br />
-1なら削除ファイルは「mita」ディレクトリに移動、0なら即時削除します。mitaディレクトリはゴミ箱のように機能しますが自動的に削除はしません。らくちんな運用をしたければ0、安全のため保存しておきたければ1でよいでしょう。</p>
-6
-7
-8
+0
+1
+2
-  上記3行にキャプチャカードごとに固有な映像入力のパラメータを示すivtvのinput numperを指示します。それぞれ、チューナ入力、S映像入力、コンポジット入力を指定します。デフォルトはIO
-
-
-
-
-
+
+
-  <span class="screen"><br />
-  $haveirdaunit = 1;</span><br />
@@ -216 +233 @@
-  <span class="screen">$trconqty = 2;</span><br />
-  MPEG4変換の品質を指定します。デフォルトはH.264/AVCの中画質となっています。<br />
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-  <br />
-  <span class="screen">$phptoolpath = $toolpath ;</span><br />
@@ -250 +269 @@
-<h4>・設定3:foltia_stationテーブル</h4>
-<p>録画の重要な設定となる項目です。インストールが無事に終了してれば首都圏の放送局設定サンプルが入っていますのでそれを参考に設定して下さい。<br />
-
+しょぼいカレンダーの情報によって放送局は自動的に追加されていきます。
-  <br />
-  <span class="screen">stationid</span>:ユニークなID値です。<br />
@@ -266 +285 @@
-  foltia_epgにデータがインポートされていて<br />
-  3.foltia_stationテーブルのontvcodeフィールドにfoltia_epgテーブルのontvchannelフィールドと同じ放送局識別名が記入されている<br />
-
+
+
+
-<h3>・Tira2準備(オプション)</h3>
-<p>　USBトランスミッタであるTira2を動作させるために必要な準備を行います。<br />
@@ -276 +297 @@
-<h3>・動作確認</h3>
-<p>　ここまで設定できたらあと一息で完了します。まず単純な録画ができるか動作確認していきましょう。<br />
+  【デジタルハイビジョン編】<br />
+~/perl/toolにインストールしたrecfriioが正しく動作するか確かめます。</p>
+<p><span class="command">recfriio --b25 27 60 /home/foltia/php/tv/test-mpeg2-ts.m2t </span></p>
+<p>これで27チャンネルのvlcで視聴出来る状態のMPEG2-tsファイルが60秒ぶん、指定した位置にでき上がれば録画成功です。<br />
+  エラーがでた場合はインストールを見直して下さい。<br />
+  【アナログ編】<br />
-  　最初に</p>
-<p><span class="command">$head /dev/video0</span></p>
@@ -281 +308 @@
-  　つぎに、録画試験を~/perl/tvrecording.plを使って行います。</p>
-<p><span class="command">$./tvrecording.pl 1 60 0 test.m2p 5 0 0 /dev/video0</span></p>
-
+
+
-  　つぎに、しょぼいカレンダーから番組データをインポートできるかを確認します。</p>
-<p><span class="command">$./perl/getxml2db.pl</span></p>
@@ -287 +315 @@
-  　ここまでできたらWebブラウザでインストールしたphpのディレクトリを開いてみましょう。<br />
-  <img src="img/screen03.png" width="800" height="600" /><br />
-
-
-
-
+
+
+
-  　予約が完了したらシェルでatqコマンドでキューが入ったを確認します。</p>
-<p class="command">$atq<br />
-6-01-31 00:4
+9-01-08 01:1
-<p>放映予定の5分前に起動するプロセスが入ってることが確認できます。<br />
-0:4
+1:1
-  folprep.plが起動すると放映予定1分前にrecwrap.plがキューに入ります。</p>
-<p class="command">$atq<br />
-6-01-31 00:4
-690-16-20060131-0045.m2p
+9-01-08 01:1
+1546-1-20090108-0115.m2t
-  TID:しょぼいカレンダーと共通の番組IDです。<br />
-  話数:番組が第何話かを示します。該当しない場合は空白になります。<br />
-  放映日:YYYYmmddスタイルの放映日です。<br />
-  放映時刻:0000-2359の間での開始時刻になります。しょぼいカレンダーでは24:00以降の時刻を扱いますがfoltiaでは暦通り24:00以降の時刻は次の日として取り扱います。<br />
-
+
+
-<p>　番組指定による自動録画が動いたら、つぎにEPGによる個別番組録画の動作確認に移りましょう。<br />
-  　まず番組データをXMLTVを用いてインポートします。</p>
@@ -349 +377 @@
-<p>&nbsp;</p>
-<h3>予約一覧:</h3>
-
+(いまのところデジタル録画の重複表示には対応していません)
-　色が付いている番組は重複警告です。搭載された録画ユニットで録画し切れない場合に色がつきます。赤色はカードに搭載されたアナログチューナーの重複、青色は外部入力の重複を示します。重複警告がでている番組は録画が欠ける可能性があります。また、アナログチューナー、外部チューナーともに00:00-00:30 番組A ,00:30-01:00 番組Bという番組が連続している場合は重複とは判断しません。<br />
-　引数rでエンコーダ数を変更して予約状況を調べる事が出来ます。listreserve.php?r=6で6台エンコーダを搭載したときの予約状況を調べる事が出来ます。<br />
@@ -401 +429 @@
-    <img src="img/screen15.png" width="800" height="600" /><br /> 
-　「キャプ」でキャプチャ画面一覧を開きます。<br />
-
+
+
+
+
-</p>
-<h3>Folcast(RSS):</h3>
@@ -468 +499 @@
-<p>今後ユーザごとにFolcastを編集出来る機能などを開発予定です。</p>
-<h2 id="colophon">・おわりに</h2>
-使用例として自宅では富士通T90Hというパソコンにfoltia録画ボリュームをSambaでマウントし、WinDVDでMPEG2を再生、外ではiPod
-VideoでMPEG4を視聴しています。DVD 
+パソコンにfoltia録画ボリュームをSambaでマウントし、VLCでMPEG2を再生、外ではiPhoneでfolcastかストリーミングで視聴しています。DVD
+
-  　foltiaはまだまだ開発途上のソフトウェアです。今後の計画は以下の様なものを考えています。<br />
-  　・未読番組管理機能<br />
-  　・ロケーションフリーテレビのようなライブストリーミング機能<br />
- 　・デジタル放送のデジタル録画機能<br />
-詳しくはfoltia Development Central wiki:「<a href = "http://www.dcc-jpl.com/foltia/wiki/futuretodo">foltia のToDoやらゆめを適当に書くwik</a>i」に
-  
+詳しくはfoltia Development Central wiki:「<a href = "http://www.dcc-jpl.com/foltia/wiki/futuretodo">foltia
+のToDoやらゆめを適当に書くwik</a>i」に書かれる予定です
+
-<p>・謝辞<br />
-  以下の数々のサイトを利用、参考にさせていただいております。改めましてお礼申し上げます。<br />

trunk/install/mktable.txt

@@ +1 @@
+
-drop table  foltia_program ;
-
@@ -33 +34 @@
-m2pfilename text ,
-PSPfilename text ,
-
+
+
+
-);
-create unique index foltia_subtitle_pid_index on foltia_subtitle (pid);
@@ -46 +49 @@
-drop table foltia_tvrecord;
-create table foltia_tvrecord (
- PRIMARY KEY
+
-stationid int8,
-
+
+
-);
-create  index foltia_tvrecord_tid_index on foltia_tvrecord (tid);
@@ -99 +103 @@
-    tunerch text,
-    device text,
-
+
+
+
-);
-REVOKE ALL on "foltia_station" from PUBLIC;
@@ -133 +139 @@
---
-INSERT INTO foltia_program VALUES (0, 'EPG録画', '', '', NULL, '', '', 3, 1, '', '');
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-

trunk/install/perl/addpidatq.pl

@@ -47 +47 @@
- if ($titlecount[0]  == 1 ){
-
-
+,digital
- $sth = $dbh->prepare($DBQuery);
-$sth->execute();
- @titlecount= $sth->fetchrow_array;
-$bitrate = $titlecount[0];#ビットレート取得
+if ($titlecount[1] >= 1){
+        $usedigital = $titlecount[1];#デジタル優先フラグ
+}else{
+        $usedigital = 0;
+}
-
-#PID抽出
-$now = &epoch2foldate(`date +%s`);
-
-
+
+
-
-
-#stationIDからrecch
- $stationh = $dbh->prepare($DBQuery);
-        $stationh->execute();
-@stationl =  $stationh->fetchrow_array;
-$recch = $stationl[0];
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-$DBQuery =  "SELECT  * FROM  foltia_subtitle WHERE pid='$pid' ";
- $sth = $dbh->prepare($DBQuery);
@@ -109 +126 @@
-}
-
- $bitrate $tid $countno $pid
- $bitrate $tid $countno $pid
+$bitrate $tid $countno $pid $stationid $usedigital $digitalstationband $digitalch
+$bitrate $tid $countno $pid $stationid $usedigital $digitalstationband $digitalch
-
-}#end #もし新開始時刻が15分移譲先なら再キュー
-
-}else{
- $pid  $startafter  $now 
+$pid $startafter $now
-}#放送が未来の日付なら
-

trunk/install/perl/captureimagemaker.pl

@@ -100 +100 @@
-# $captureimgdir = "$tid"."-"."$countno"."-"."$date"."-"."$time";
-$captureimgdir = $filename;
-
+|\.m2t$
-
-unless (-e "$capimgdirname/$captureimgdir"){
@@ -118 +118 @@
-
-#　10秒ごとに
-
+
+
+
+
+
+
+
-

trunk/install/perl/deletemovie.pl

@@ -32 +32 @@
-
-#ファイル名正当性チェック
-\z
+$|.m2t$
-
-}else{

trunk/install/perl/foltia_conf1.pl.template

@@ -15 +15 @@
-$uhfbandtype = 1; # CATVなら1 UHF帯なら0 : 0=ntsc-bcast-jp 1=ntsc-cable-jp
-$rapidfiledelete =  1;#1なら削除ファイルは「mita」ディレクトリに移動。0なら即時削除
-6
-7
- = 8
+0
+1
+= 2
-$haveirdaunit = 1;#Tira-2<http://www.home-electro.com/tira2.php>をつないでいるときに1,なければ0
-$mp4filenamestyle = 1 ;#0:PSP ファームウェアver.2.80より前と互換性を持つファイル名 1;よりわかりやすいファイル名
-$trconqty = 2;
-
-
-
-
+(古い設定)
+ / デジタル  360x202 24.00fps 300kbps
+ / デジタル 480x272  29.97fps 400kbps
+ / デジタル  640x352 29.97fps 600kbps
-$phptoolpath = $toolpath ;#php版の初期設定の位置。デフォルトではperlと同じ位置
-

trunk/install/perl/foltialib.pl

@@ -22 +22 @@
-         $DBPass="";
-        
+
+
+  $FILESTATUSRESERVINGLONG = 10;
+  $FILESTATUSRESERVINGSHORT = 20;
+  $FILESTATUSRECORDING = 30;
+  $FILESTATUSRECTSSPLITTING = 40;
+  $FILESTATUSRECEND = 50;
+  $FILESTATUSWAITINGCAPTURE = 55;
+  $FILESTATUSCAPTURE = 60;
+  $FILESTATUSCAPEND = 70;
+  $FILESTATUSTHMCREATE = 72;
+  $FILESTATUSWAITINGTRANSCODE = 80;
+  $FILESTATUSTRANSCODETSSPLITTING = 90;
+  $FILESTATUSTRANSCODEFFMPEG = 100;
+  $FILESTATUSTRANSCODEWAVE = 110;
+  $FILESTATUSTRANSCODEAAC = 120;
+  $FILESTATUSTRANSCODEMP4BOX = 130;
+  $FILESTATUSTRANSCODEATOM = 140;
+  $FILESTATUSTRANSCODECOMPLETE = 150;
+  $FILESTATUSALLCOMPLETE = 200;
+
-
-#------------------------------
@@ -258 +279 @@
-
-
+sub getpidbympegfilename {
+#引き数:m2pfilename
+#戻り値:PID
+my $m2pfilename =  $_[0] ;
+if ($m2pfilename eq ""){
+        return  0 ;
+}
+
+my $DBQuery =  "SELECT pid FROM foltia_subtitle WHERE m2pfilename = '$m2pfilename' LIMIT 1 ";
+my $sth;
+$sth = $dbh->prepare($DBQuery);
+$sth->execute();
+#print "$DBQuery\n";
+my @pidinfo = $sth->fetchrow_array;
+my $pid  = $pidinfo[0];
+
+if ($pid eq ""){
+        return  0 ;
+}else{
+        return $pid;
+}
+}#end sub getpidbympegfilename
+
+sub changefilestatus {
+#引き数:PID,updatestatus
+#戻り値:エラーコード
+my $pid =  $_[0] ;
+my $updatestatus = $_[1];
+if (($pid eq "" ) || ($updatestatus eq "")){
+        return  0 ;
+}
+
+if ($updatestatus > 0 ){
+my $DBQuery =  "UPDATE  foltia_subtitle SET filestatus = $updatestatus , lastupdate      = now() WHERE pid = $pid ";
+my $sth;
+$sth = $dbh->prepare($DBQuery);
+$sth->execute();
+return 1;
+}else{
+        &writelog("foltialib changefilestatus ERR Sttus invalid:$updatestatus");
+        return  0 ;
+}
+}# end sub changefilestatus
+
+
+sub getfilestatus {
+#引き数:PID
+#戻り値:ステータス
+
+#10:予約中(5分以上先)
+#20:予約中(5分以内)
+#30:録画中
+#40:TSSplit中
+#50:MPEG2録画終了
+#55 静止画キャプチャ待
+#60:静止画キャプ中
+#70:静止画キャプ終了
+#72:サムネイル作成済み(.THM)
+#80:トラコン待
+#90:トラコン中:TSsplit
+#100:トラコン中:H264
+#110:トラコン中:WAVE
+#120:トラコン中:AAC
+#130:トラコン中:MP4Box
+#140:トラコン中:ATOM
+#150:トラコン完了
+#200:全完了
+my $pid =  $_[0] ;
+if ($pid eq "" ){
+        return  0 ;
+}
+
+my $DBQuery =  "SELECT filestatus FROM foltia_subtitle  WHERE pid = $pid ";
+my $sth;
+$sth = $dbh->prepare($DBQuery);
+$sth->execute();
+
+my @statusinfo = $sth->fetchrow_array;
+my $status  = $statusinfo[0];
+
+if ($status eq ""){
+        return  0 ;
+}else{
+        return $status;
+}
+
+
+}# end sub getfilestatus
+
+
+sub makemp4dir{
+#TIDが100以上の3桁の場合はそのまま
+my $pspfilnamehd = $_[0];
+my $tid = $_[0];
+my $pspdirname = "$tid.localized/";
+$pspdirname = $recfolderpath."/".$pspdirname;
+
+#なければ作る
+unless (-e $pspdirname ){
+        system("$toolpath/perl/mklocalizeddir.pl $tid");
+        #&writelog("recwrap mkdir $pspdirname");
+}
+$pspdirname = "$tid.localized/mp4/";
+$pspdirname = $recfolderpath."/".$pspdirname;
+#なければ作る
+unless (-e $pspdirname ){
+        mkdir $pspdirname ,0777;
+        #&writelog("recwrap mkdir $pspdirname");
+}
+return ("$pspdirname");
+}#endsub makemp4dir
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-1;
-

trunk/install/perl/ipodtranscode.pl

@@ -1 +1 @@
-#!/usr/bin/perl
-/path/to/mpeg2.m2p mp4filenamestring /path/to/mpeg2/tid.localized/mp4/ PID [aspect]
+
-#
-# Anime recording system foltia
-# http://www.dcc-jpl.com/soft/foltia/
-#
-#
-# iPod MPEG4/H.264トラコン
-# ffmpegを呼び出して変換
-# ffmpegはiPodパッチあて版を想定している
-# ffmpegの作り方は
-# http://www.dcc-jpl.com/diary/ddata2006/02A.html#20060215-00
-#
-# DCC-JPL Japan/foltia project
@@ -18 +14 @@
-use DBD::Pg;
-use Jcode;
-
-
-$path = $0;
@@ -25 +20 @@
-push( @INC, "$path");
-}
-
-require "foltialib.pl";
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
-#DB初期化
@@ -46 +39 @@
-         $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-# タイトル取得
-if ($pid ne ""){
@@ -82 +119 @@
-
-}
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-# クオリティごとに
-
-
-
+
+
-$mp4file = "${mp4outdir}M4V${mp4filenamestring}.MP4";
-
-
-
-
+
+
+
+
+
+
-$mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4";
-
-
-
-
+
+
+
+
+
+
-$mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4";
-
-
-
-
+
+
+
+
+
+
-$mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4";
-
-
-
-
+
+
+
+
+
+
-$mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4";
-
-
-
+
+
+
+
+
-
-$encodeoptionlog = $encodeoption;
@@ -122 +347 @@
-&writelog("ipodtranscode START QTY=$trconqty $encodeoptionlog");
-#print "ffmpeg $encodeoptionlog \n";
-
+
+
-&writelog("ipodtranscode FFEND $inputmpeg2");
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

trunk/install/perl/recwrap.pl

@@ -1 +1 @@
-#!/usr/bin/perl
- ch length(sec) [bitrate(5)] [TID] [NO]  [PID]
+ch length(sec) [bitrate(5)] [TID] [NO] [PID] [stationid] [digitalflag] [digitalband] [digitalch] 
-#
-# Anime recording system foltia
@@ -39 +39 @@
-$tid  = $ARGV[3] ;
-$countno  = $ARGV[4] ;
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-$outputfile = `date  +%Y%m%d-%H%M --date "1 min "`;
-chomp($outputfile);
+
-if ($tid == 0){
-".m2p"
+$extension
-                $mp4newstylefilename = "-0--".$outputfile."-".$recch;
-}else{
-        if ($countno == 0){
-".m2p"
+$extension
-                $mp4newstylefilename = "-" . $tid ."--".$outputfile;
-        }else{
-".m2p"
+$extension
-                $mp4newstylefilename = "-" . $tid ."-".$countno."-".$outputfile;
-        }
-}
+
+if ($usedigital == 1){
+#デジタルなら
+&writelog("recwrap RECSTART DIGITAL $digitalstationband $digitalch $reclength $stationid 0 $outputfilename $tid $countno friio");
+#録画
+$starttime = (`date +%s`);
+$oserr = system("$toolpath/perl/digitaltvrecording.pl $digitalstationband $digitalch $reclength $stationid 0 $outputfilename $tid $countno friio");
+$oserr = $oserr / 256;
+
+if ($oserr == 1){
+        &writelog("recwrap ABORT recfile exist. [$outputfilename] $digitalstationband $digitalch $reclength $stationid 0  $outputfilename $tid $countno");
+        exit;
+}elsif ($oserr == 2){
+        &writelog("recwrap ERR 2:friio busy;retry.");
+        &continuousrecordingcheck;#もうすぐ終わる番組をkill
+        sleep(2);
+        $oserr = system("$toolpath/perl/digitaltvrecording.pl $digitalstationband $digitalch $reclength $stationid N $outputfilename $tid $countno friio");
+        $oserr = $oserr / 256;
+        if ($oserr == 2){
+        &writelog("recwrap ERR 2:friio busy;Giving up digital recording.");
+        }
+}elsif ($oserr == 3){
+&writelog("recwrap ABORT:ERR 3");
+exit ;
+}
+}else{
-#リモコン操作
-# $haveirdaunit = 1;リモコンつないでるかどうか確認
@@ -71 +114 @@
-        exit;
-        }#end if
-
-
+
+
+
-#録画
-#system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfile $bitrate $tid $countno");
@@ -83 +127 @@
-        exit;
-}
+
+}#endif #デジタル優先フラグ
+
-#デバイスビジーで即死してないか検出
-$now = (`date +%s`);
-        if ($now < $starttime + 100){ #録画プロセス起動してから100秒以内に戻ってきてたら
+        $retrycounter == 0;
-                while($now < $starttime + 100){
+                        if($retrycounter >= 5){
+                                &writelog("recwrap WARNING  Giving up recording.");
+                                last;
+                        }
-                &writelog("recwrap retry recording $now $starttime");
+                #アナログ録画
-$starttime = (`date +%s`);
+if($outputfilename =~ /.m2t$/){
+        $outputfilename =~ s/.m2t$/.m2p/;
+}
-$oserr = system("$toolpath/perl/tvrecording.pl $recch $reclength N $outputfilename $bitrate $tid $countno");
-$now = (`date +%s`);
@@ -96 +152 @@
-                                exit;
-                        }# if
+                $retrycounter++;
-                }# while
-        } # if 
-
-
-        &writelog("recwrap RECEND [$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid");
-
-#DB初期化
-        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;;
-
-# m2pファイル名をPIDレコードに書き込み
-
-
-
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
-
+
+
-
-# m2pファイル名をPIDレコードに書き込み
- 
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
-UPDATEDB 
+DEBUG UPDATEDB
-
-# Starlight breaker向けキャプチャ画像作成
-if (-e "$toolpath/perl/captureimagemaker.pl"){
-        &writelog("recwrap Call captureimagemaker $outputfilename");
+&changefilestatus($pid,$FILESTATUSCAPTURE);
-        system ("$toolpath/perl/captureimagemaker.pl $outputfilename");
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
- @psptrcn= $sth->fetchrow_array;
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
- 
-#TIDが100以上の3桁の場合はそのまま
-my $pspfilnamehd = "";
-
-
+
+
-$pspdirname = "$tid.localized/";
-$pspdirname = $recfolderpath."/".$pspdirname;
-
-#なければ作る
-
-
-
-
+#
+#
+#
+#
-$pspdirname = "$tid.localized/mp4/";
-$pspdirname = $recfolderpath."/".$pspdirname;
-#なければ作る
-
-
-
-
+#
+#
+#
+#
-
-#ファイル名決定
@@ -350 +412 @@
-
-# MP4ファイル名をPIDレコードに書き込み
-
-
-
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
@@ -358 +418 @@
-
-# MP4ファイル名をfoltia_mp4files挿入
- "insert into 
+"insert into
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
-&writelog("recwrap UPDATEmp4DB  $DBQuery");
-
+&changefilestatus($pid,200);
-}#PSPトラコンあり
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

trunk/install/perl/tvrecording.pl

@@ -5 +5 @@
-#
-#tvrecording.pl
-に準備処理を加えた
+を呼びだす
-#
-#usage tvrecording.pl ch length(sec) [clip No(000-)] [filename] [bitrate(5)] [TID] [NO] [/dev/video0]
@@ -44 +44 @@
-#$startupsleeptime = 52;                                        #process wait(MAX60sec)
-$startupsleeptime = 37;                                 #process wait(MAX60sec)
-
+
-
-#-------------------------------
@@ -64 +64 @@
-        $recfolderpath = '/home/foltia/php/tv';         
-}#end sub getRecPath
-
+
+
-#準備
-&prepare;
@@ -74 +75 @@
-$reclengthsec = $reclengthsec + $extendrecendsec ;
-
+&callrecordv4l;
+
-&writelog("tvrecording:$recch:$reclengthsec:$outputfile:$recdevice:$capturedeviceinputnum:$ivtvrecch:$stdbitrate:$peakbitrate");
-
-
-
-
+
-sub chkextinput{
-
@@ -87 +88 @@
-                $capturedeviceinputnum = 7 ;
-                }
-0
+1
-        $ivtvrecch = '';
-}elsif($recch == -1){
@@ -95 +96 @@
-                $capturedeviceinputnum = 8;
-                }
-0
+1
-        $ivtvrecch = '';
-}else{
@@ -103 +104 @@
-                $capturedeviceinputnum = 6 ;
-                }
-0
+1
-        $ivtvrecch = $recch;
-}
@@ -304 +305 @@
-                $outputfile = $ARGV[3];
-                $outputfile = &filenameinjectioncheck($outputfile);
+                $outputfilewithoutpath = $outputfile ;
-                $outputfile = $outputpath.$outputfile ;
-#               $outputfile .= "$ARGV[3]";              
-#               $outputfile .= `date  +%Y%m%d-%H%M --date "1 min "`;
-
-
+
-        }else{
-
-
-
-&writelog("tvrecording:  DEBUG ARGV[3] is null  \$outputfile $outputfile ")
-
+       
+       
+       
+               $outputfilewithoutpath = $outputfile 
+
-        }
-
@@ -341 +342 @@
-}#end setbitrate
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

trunk/install/perl/updatem2pfiletable.pl

@@ -34 +34 @@
-        $sth->execute();
-
-p
+?
-$file =~ s/$recfolderpath\///;
-$query =  "insert into  foltia_m2pfiles values ('$file')";
@@ -57 +57 @@
-$filetid = $fileline[0];
-$filetid =~ s/[^0-9]//g;
-
-
-
+
+       
+       
-#print "$filetid;$fileline[2];$query\n"
-# http://www.atmarkit.co.jp/fnetwork/rensai/sql03/sql1.html
-
-
+
+# end foreach
-$oserr = $dbh->commit;
-

trunk/install/php/foltia_config2.php.template

@@ -17 +17 @@
-                $recfolderpath = '/home/foltia/php/tv'; //録画ファイルの保存先のパス。
-                $httpmediamappath = '/tv'; //ブラウザから見える録画ファイルのある位置。
-エンコーダの
+アナログキャプチャカードチャンネル
-
-                $protectmode = 0; //未使用:(ブラウザからの予約削除を禁止するなどの保護モードで動作します)
@@ -24 +24 @@
-                $environmentpolicytoken = "";//環境ポリシーのパスワードに連結されるセキュリティコード
-                $perltoolpath = $toolpath ;//perl版の初期設定の位置。デフォルトではphpと同じ位置
+                $usedigital = 1;//Friioなどでデジタル録画をするか 1:する 0:しない
-
-// データベース接続設定

trunk/install/php/index.php

@@ -13 +13 @@
-オプション
-mode:"new"を指定すると、新番組(第1話)のみの表示となる。
+now:YmdHi形式で日付を指定するとその日からの番組表が表示される。
-
- DCC-JPL Japan/foltia project
@@ -32 +33 @@
-}//end if login
-
-
-
+
+
+
+
-function printtitle(){
-
@@ -64 +67 @@
-WHERE foltia_tvrecord.tid = foltia_program.tid 
-AND foltia_program.tid = foltia_subtitle.tid 
-
-
+
+
+
-        ";
-        $reservedrssametid = m_query($con, $query, "DBクエリに失敗しました");
@@ -112 +116 @@
-LEFT OUTER JOIN foltia_station on (foltia_subtitle.stationid = foltia_station.stationid )
-WHERE foltia_tvrecord.stationid = 0 AND
-
+
+
-        ";
-
@@ -145 +150 @@
-WHERE foltia_program.tid = foltia_subtitle.tid AND foltia_station.stationid = foltia_subtitle.stationid 
- AND foltia_subtitle.enddatetime >= '$now'  AND foltia_subtitle.countno = '1' 
-
+
+
-        ";
-        $rs = m_query($con, $query, "DBクエリに失敗しました");
@@ -166 +172 @@
-WHERE foltia_program.tid = foltia_subtitle.tid AND foltia_station.stationid = foltia_subtitle.stationid 
- AND foltia_subtitle.enddatetime >= '$now'  
-
+
+
-        ";
-        $rs = m_query($con, $query, "DBクエリに失敗しました");

trunk/install/php/listreserve.php

@@ -46 +46 @@
-$mymemberid = getmymemberid($con);
-$now = getgetnumform(startdate);
+*if ($now == ""){
+$now = getgetnumform(date);
+}
-
-if ($now > 200501010000){
@@ -63 +66 @@
-foltia_subtitle.startoffset , 
-foltia_subtitle.pid , 
-
+
+
-FROM foltia_subtitle , foltia_program ,foltia_station ,foltia_tvrecord
-WHERE foltia_tvrecord.tid = foltia_program.tid AND foltia_tvrecord.stationid = foltia_station .stationid AND foltia_program.tid = foltia_subtitle.tid AND foltia_station.stationid = foltia_subtitle.stationid
@@ -79 +83 @@
-foltia_subtitle.startoffset , 
-foltia_subtitle.pid , 
-
+
+
-FROM foltia_tvrecord
-LEFT OUTER JOIN foltia_subtitle on (foltia_tvrecord.tid = foltia_subtitle.tid )
@@ -127 +132 @@
-                        <th align="left">話数</th>
-                        <th align="left">サブタイトル</th>
-
+(ズレ)
-                        <th align="left">総尺</th>
-                        <th align="left">画質</th>
+                        <th align="left">デジタル優先</th>
-
-                </tr>
@@ -165 +171 @@
-foltia_tvrecord.bitrate  , 
-foltia_subtitle.startoffset , 
-
+
+
-FROM foltia_subtitle , foltia_program ,foltia_station ,foltia_tvrecord
-WHERE foltia_tvrecord.tid = foltia_program.tid AND foltia_tvrecord.stationid = foltia_station .stationid AND foltia_program.tid = foltia_subtitle.tid AND foltia_station.stationid = foltia_subtitle.stationid
@@ -181 +188 @@
-foltia_tvrecord.bitrate  , 
-foltia_subtitle.startoffset , 
-
+
+
-FROM foltia_tvrecord
-LEFT OUTER JOIN foltia_subtitle on (foltia_tvrecord.tid = foltia_subtitle.tid )
@@ -218 +226 @@
-foltia_tvrecord.bitrate  , 
-foltia_subtitle.startoffset , 
-
+
+
-FROM foltia_subtitle , foltia_program ,foltia_station ,foltia_tvrecord
-WHERE foltia_tvrecord.tid = foltia_program.tid AND foltia_tvrecord.stationid = foltia_station .stationid AND foltia_program.tid = foltia_subtitle.tid AND foltia_station.stationid = foltia_subtitle.stationid
@@ -235 +244 @@
-foltia_tvrecord.bitrate  , 
-foltia_subtitle.startoffset , 
-
+
+
-FROM foltia_tvrecord
-LEFT OUTER JOIN foltia_subtitle on (foltia_tvrecord.tid = foltia_subtitle.tid )
@@ -277 +287 @@
-                                        }else{
-                                        print "<a href=\"http://cal.syoboi.jp/tid/$tid\" target=\"_blank\">$title</a>";
+
-                                        }
-                                        print "</td>\n";
@@ -305 +316 @@
-                                        //録画レート
-                                        echo("<td>".htmlspecialchars($rowdata[7])."<br></td>\n");
+                                        
+                                        //デジタル優先
+                                        echo("<td>");
+                                        if (htmlspecialchars($rowdata[11]) == 1){
+                                        print "する";
+                                        }else{
+                                        print "しない";
+                                        }
+                                        echo("<br></td>\n");
-                                echo("</tr>\n");
-                        }
@@ -313 +333 @@
-
-<table>
+        <tr><td>アナログ重複表示</td><td><br /></td></tr>
-        <tr><td>エンコーダ数</td><td><?=$recunits ?></td></tr>
-        <tr class="overwraped"><td>チューナー重複</td><td><br /></td></tr>
@@ -329 +350 @@
-foltia_program .title ,
-foltia_tvrecord.bitrate ,
-
+
+
-FROM  foltia_tvrecord , foltia_program , foltia_station 
-  
+
-ORDER BY foltia_program.tid  DESC
-";
@@ -354 +376 @@
-                        <th align="left">録画リスト</th>
-                        <th align="left">画質</th>
+                        <th align="left">デジタル優先</th>
+
-                </tr>
-        </thead>
@@ -385 +409 @@
-                                        //MP4
-                                        echo("<td><a href=\"showlibc.php?tid=$tid\">mp4</a></td>\n");
-
+
-                                        echo("<td>".htmlspecialchars($rowdata[3])."<br></td>\n");
-
+
+
+
+
+
+
+
-                                echo("</tr>\n");
-                                }else{
@@ -395 +425 @@
-                                <td>EPG録画</td>
-                                <td><a href=\"showlibc.php?tid=0\">mp4</a></td>";
-
+
+
+
+
+
+
+
+
+
-                                }//if tid 0
-                        }//for

trunk/install/php/m.php

@@ -35 +35 @@
-
-$now = date("YmdHi");   
+$today = date("Ymd");
+$nowdate = date("Hi",(mktime(date("G"),date("i")+8,date("s"),date("m"),date("d"),date("Y"))));
-$errflag = 0;
-$pname = "手動録画";
@@ -74 +76 @@
-$recstid = getgetnumform(recstid);
-$pname = getgetform(pname);
+//$usedigital = getgetnumform(usedigital);
+
-//確認
-$startdatetime = "$startdate"."$starttime";
@@ -105 +109 @@
-        }
-}
+//デジタル優先
+/*if ($usedigital == 1){
+}else{
+        $usedigital = 0;
+}
+*/
-//正しければ
-if ($errflag == 0){
@@ -193 +203 @@
-  <p>放送日:
-    <input name="startdate" type="text" id="startdate" size="9" value="<?=$startdate?>" />
-19800121
+<?=$today?>
-  <p>録画開始時刻:
-    <input name="starttime" type="text" id="starttime" size="5" value="<?=$starttime?>" />
-2304
+<?=$nowdate?>
-  <p>
-    録画尺:
@@ -205 +215 @@
-<?php
-$query = "
-
+,digitalch 
-FROM foltia_station 
-WHERE stationrecch > 0 
+UNION 
+SELECT DISTINCT  stationid,stationname,stationrecch ,digitalch 
+FROM  foltia_station 
+WHERE digitalch > 0
-ORDER BY \"stationid\" ASC";
-
@@ -248 +262 @@
-        }
-}
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-?>
-  <p>番組名:

trunk/install/php/reservecomp.php

@@ -54 +54 @@
-                $station = 0;
-                }
-
+
+
+
+
-$bitrate = getgetnumform(bitrate);
-                if ($bitrate == "") {
@@ -202 +205 @@
-
-                if ($maxrows == 0) { //新規追加
-
+,'$usedigital'
-                                $rs = m_query($con, $query, "DB書き込みに失敗しました");
-                }else{//修正　(ビットレート)
-                        $query = "UPDATE  foltia_tvrecord  SET 
-
-
+
-                        $rs = m_query($con, $query, "DB書き込みに失敗しました");
-                }

trunk/install/php/reserveepgcomp.php

@@ -78 +78 @@
-        }else{
-        $rowdata = pg_fetch_row($rs, 0);
+        
-        $insertpid = $rowdata[0];
-
+
+
+
+
+
-        }
-// next 話数を探す
@@ -121 +126 @@
-values ( '$insertpid','0','$stationid',
-        '$nextcno','$subtitle','$startdatetime','$enddatetime','0' ,'$lengthmin' , '$memberid')";
-
-        $rs = m_query($con, $query, "DBクエリに失敗しました");
-
@@ -143 +147 @@
-}
-
-?>
-
-
-<?php
-print "<table width=\"100%\" border=\"0\">
-    <tr><td>放送開始</td><td>$startdatetime</td></tr>

trunk/install/php/reserveprogram.php

@@ -89 +89 @@
-  <tr>
-    <td>放送局</td>
-
+
+
-  </tr>
-  <tr>
@@ -128 +129 @@
-
-        </td>
+        
+        <td>
+        <select name="usedigital">
+        <?php
+         if ($usedigital == 1){
+                print "
+                <option value=\"1\" selected>する</option>
+                <option value=\"0\">しない</option>
+                ";
+                }else{
+                print "
+                <option value=\"1\">する</option>
+                <option value=\"0\" selected>しない</option>
+                ";
+                }
+        ?>
+        </select>
+        </td>
+
-    <td><select name="bitrate">
-        <option value="14">最高画質</option>

trunk/install/php/selectcaptureimage.php

@@ -116 +116 @@
-        $tid = ereg_replace("[^0-9]", "", $tid);
-
-
+|\.m2t$
-$serveruri = getserverfqdn ();
-
@@ -124 +124 @@
-
-if (file_exists("./sb-edit.php") ) {
-width='160' height='120' 
+
-}else{
-width='160' height='120'
+
-}
-}//foreach

trunk/install/php/showlib.php

@@ -36 +36 @@
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-<title>foltia:MP4 Lib</title>
-</head>
-
-<?php
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-?>
-<body BGCOLOR="#ffffff" TEXT="#494949" LINK="#0047ff" VLINK="#000000" ALINK="#c6edff" >
-<div align="center">
-<?php 
-        printhtmlpageheader();
-?>
-  <p align="left"><font color="#494949" size="6">録画ライブラリ表示</font></p>
-  <hr size="4">
-<p align="left">再生可能ライブラリを表示します。<br>
-
-<?
-//新仕様 /* 2006/10/26 */
-$query = "
@@ -70 +89 @@
-
-if ($maxrows > 0 ){
+if(ereg("iPhone",$useragent)){
+        print "<ul id=\"home\" title=\"録画ライブラリ表示\" selected=\"true\">";
+}else{
-print "
-  <table BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"2\" WIDTH=\"100%\">
@@ -82 +104 @@
-        <tbody>
-";
+}
-for ($row = 0; $row < $maxrows; $row++) {
-        $rowdata = pg_fetch_row($rs, $row);
@@ -90 +113 @@
-$counts = htmlspecialchars($counts);
-
+if(ereg("iPhone",$useragent)){
+print "<li><a href=\"showlibc.php?tid=$tid\" target=\"_self\">$title</a></li>\n";
+}else{
-print "
-<tr>
@@ -98 +124 @@
-</tr>\n
-";
+}
-}//for
+
+if(ereg("iPhone",$useragent)){
+        print "</ul>\n</body>\n</html>\n";
+}else{
-print "
-        </tbody>
@@ -105 +136 @@
-</html>
-";
+}
+
-}else{
-print "録画ファイルが存在しません。</body></html>";

trunk/install/php/showlibc.php

@@ -41 +41 @@
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">
-<meta http-equiv="Content-Style-Type" content="text/css">
-<link rel="stylesheet" type="text/css" href="graytable.css">
-<script src="http://images.apple.com/main/js/ac_quicktime.js" language="JavaScript" type="text/javascript"></script> 
-<?php
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        print "<title>foltia:Lib</title>
-</head><body BGCOLOR=\"#ffffff\" TEXT=\"#494949\" LINK=\"#0047ff\" VLINK=\"#000000\" ALINK=\"#c6edff\" > \n";
-                printhtmlpageheader();
-                die_exit("再生可能番組がありません<BR>");
-       
+
-$now = date("YmdHi");   
-
@@ -75 +85 @@
-}
-//ヘッダ続き
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-<div align=\"center\">
-";
@@ -84 +104 @@
-  <hr size=\"4\">
-<p align=\"left\">再生可能ムービーを表示します。<br>";
-
-$serveruri = getserveruri();
-if ($tid == 0){
-print "$title 【<A HREF = \"./folcast.php?tid=$tid\">この番組のFolcast</A> [<a href=\"itpc://$serveruri/folcast.php?tid=$tid\">iTunesに登録</a>】 <br>\n";
@@ -93 +111 @@
-                                     htmlspecialchars($tid)  . "\" target=\"_blank\">$title</a> 【<A HREF = \"./folcast.php?tid=$tid\">この番組のFolcast</A> [<a href=\"itpc://$serveruri/folcast.php?tid=$tid\">iTunesに登録</a>]】 <br>\n";
-}
+}// endif if(ereg("iPhone",$useragent))
+
-//確認
-if (file_exists ("$recfolderpath/$tid.localized")){
@@ -101 +121 @@
-        exit;
-}                                        
-
-
-
-//新仕様/* 2006/10/26 */
@@ -133 +151 @@
-$maxrows = pg_num_rows($rs);
-if ($maxrows > 0 ){
+if(ereg("iPhone",$useragent)){
+        print "<ul id=\"home\" title=\"$title\" selected=\"true\">";
+}else{
-print "
-  <table BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"2\" WIDTH=\"100%\">
-        <tbody>
-";
-
+
-for ($row = 0; $row < $maxrows; $row++) {
-        $rowdata = pg_fetch_row($rs, $row);
@@ -178 +199 @@
-
-if (($sbpluginexist == 1) && (pg_num_rows ($rs ) > 0)){
-
+
+
-        
-        if (($capimgpath != "") && (file_exists("$recfolderpath/$tid.localized/img/$capimgpath") )){
@@ -195 +217 @@
-}
-
-
+
+
+
+
+
-print "  <tr>
-    <td rowspan=\"4\" width=\"170\"><a href = \"$httpmediamappath/$tid.localized/mp4/$fName\" target=\"_blank\"><img src = \"$imgsrcuri\" width=\"160\" height=\"120\"></a></td>
@@ -202 +228 @@
-  <tr>
-";
-
-
-
-
-
+       
+       
+       
+       
+       
-print "  </tr>
-  <tr>
@@ -216 +242 @@
-";
-
+}//endif iPhone
+
-}//for
-}else{
-print "録画ファイルがありません<br>\n";
-}//if
+
+if(ereg("iPhone",$useragent)){
+        print "<li><a href=\"http://$serveruri/showlib.php\" target=\"_self\">一覧へ戻る</a></li>\n";
+        print "</ul>\n";
+}else{
+        print "</tbody></table>\n";
+}
-?>
-        </tbody>
-</table>
-
-</body>
-</html>
+
+        

trunk/install/php/showplaylist.php

@@ -14 +14 @@
-　省略時、録画順にソートされる。
-　titleのときに、番組順ソートされる。
-
+/m2t
-
- DCC-JPL Japan/foltia project
@@ -97 +97 @@
-//旧仕様
-if($list == "raw"){
-p
+?
-
-
@@ -106 +106 @@
-
-        if(($fName == ".") or ($fName == "..") ){ continue; }
-p
+.+
-                $filesplit = split("-",$fName);
-        
@@ -230 +230 @@
-}
-        if (file_exists("./selectcaptureimage.php") ) {
-p
+.+
-        print "                 <td align=\"left\"><a href=\"./selectcaptureimage.php?pid=$pid\">キャプ</a></td>\n";
-        }