IO-DATA DVR-UN20E

ヨドバシ新宿店で、安さにつられて
外付けUSB DVDドライブを購入した。

IO-DATA　DVR-UN20Eというやつで、値段が約6500円+ポイント
なかなかお買い得でした。

今更外付けを買おうと思ったのは、外付けのガワが欲しかったから。

家に持ち帰って起動確認後、すぐさまバラス。
こいつを選んだ理由に側面が金属板だったからなのだが、
ドライブ設置面は、樹脂で、冷却効果はほとんどない状態にガッカリ。
内部IFがSATAでさらにガッカリ。
IDEタイプのリムーバブルドライブを入れようと思ってたのに…。
※ 通常はちゃんと下調べして買うのですが、今日は衝動買いのため、行き当たりばったりです。

とまぁ、いろいろとガッカリしてしまいましたが、
Pioneer BDC-S02Jが収まることが確認できたので、一応役には立ちそうで一安心。

IDEタイプの外付け欲しいなぁ

ＢＤメディアの在庫が尽きたので

改めて価格調査を実施

BD-RE＠25GBは値段が全体的に下落か!?

◆1枚あたり約490円(税込)

【送料無料】SONY Blu-ray Disc 25GB　20枚インクジェット対応（ワイド）　書き換え型　税込9,800円

クレカならこっちかな

◆1枚あたり約499円(税込)

【送料無料】ソニー 2倍速 ビデオ用ブルーレイディスク BD-RE ワイドプリント 20枚 20BNE1VBPS2　価格　9,980円 (税込)



◆1枚あたり約627円(税込)

SONY 録画用Blu-ray Disc 25GB 【2倍速対応】書換型 3枚パック [3BNE1VBSJ2]　価格 1,880円 (税込)

◆1枚あたり678円(税込)

TDK 録画用Blu-ray Disc 25GB 【2倍速対応】書換型 10枚パック [BEV25PWA10S]　価格 6,780円 (税込)

◆1枚あたり550円(税込)

【ドンちゃん秋特価】在庫限り 2倍速　くり返し録画用　ブルーレイディスク 25GB 3枚パック　税込1,648円

BD-RE＠50GBも値段が急落!?

◆1枚あたり1,480円(税込)

TDK 録画用Blu-ray Disc 50GB 【2倍速対応】書換型 片面2層 3枚パック [BEV50PWA3S] 4,440円 (税込)

送料考えるとamazonのほうが得だな
◆1枚あたり1,487円(税込) （4,480 税込）

TDK 録画用ブルーレイディスク 50GB BD-RE(繰り返し録画用) 2X ホワイトワイドプリンタブル 10mmケース 3枚パック BEV50PWA3S TDK このアイテムの詳細を見る

聖獣魔伝ビースト&ブレイド

聖獣魔伝ビースト&ブレイドというものを知る人は少ないかもしれない。
今日、ふとしたことで思いだして、Googleで検索をして
かつての物語のキーキャラをやってらした方のブログを拝見した。

なんとも懐かし過ぎて涙が出そうです。

実は、今だにこの作品の為だけに、当時の雑誌をすべて保管しています。
いつかはPDF化してスッキリしたいんですけど。

そういえば、ランキング入りした時のテレホンカードはいまだに持ってるなぁ
この作品を通じて、今は亡き、ホビーデータのPBMに参加したっけなぁ

ある意味私の人生のキーアイテムだなぁ

ん、改めてみると初めてかもしれない時事ネタ

園児のイモ「なぜ抜く」　第２京阪用地、大阪府が代執行(朝日新聞) - goo ニュース


一番の被害者は子供なのだろうね。

じゃあ、誰が悪いって話だけど。
このニュースが向いてるベクトルは大阪府の対応に問題があるように仕向けている。
まぁ、橋本叩きに使われた形なのかな。

記事の中で大阪府がコメントしている、「早く抜けば」ってくだりがあるけど
無茶言うな的なイメージを受ける書かれ方のようにも思える。


こういう記事はある一方に向けられた情報操作と思ってかからんといかんのだろう。

背景として何が存在していたのか、もう少し知りたいところだ。


未買収の土地が残っているから、2週間遅らせても平気というのなら
通行料で６億～７億円の損はどこから計上したのか
その辺をはっきりした上で結論を出したいところだ。

感情的に大阪府問題だろ！って考えてしまうのは浅はかでないかな
ただ、被害者たる子供たちには、今後の大阪府の素晴らしい対応を期待したいところですが。

HDL-GTRX化のための調査 その3

/usr/local/www/gate/service_set.cgi の中にこのような部分がある。

ここで、GTRとGTの差異をWeb画面上に出しているように思える。
なので、GTR側に $serv->set ( 'dlna' => $servhash{"dlna"} );　を追加すれば
 Web上で設定できるのではないかと思う。
&HDLcgi::table_header ( __('サービス設定') );

$str_en  = __('有効');
$str_dis = __('無効');


if( $modelname eq 'HDL-GTR' ) {
        $p = &HDLcgi::table_row ( $p, 40, __('Microsoftネットワーク共有')               , ($servhash{"samba"} == 1)?    $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('Microsoftネットワーク共有アクセスログ')     , ($sambalog == 1)?             $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('AppleShareネットワーク共有')              , ($servhash{"netatalk"} == 1)? $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('FTP')                                     , ($servhash{"vsftpd"} == 1)?   $str_en: $str_dis );
}else{
        $p = &HDLcgi::table_row ( $p, 40, __('Microsoftネットワーク共有')               , ($servhash{"samba"} == 1)?    $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('AppleShareネットワーク共有')              , ($servhash{"netatalk"} == 1)? $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('FTP')                                     , ($servhash{"vsftpd"} == 1)?   $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('DLNA Server')                             , ($servhash{"dlna"} == 1)?     $str_en: $str_dis );
}

ついでに、 /usr/local/www/gate/service.cgi にも同じように条件分けされてる部分があるので編集の必要がありそうだ。 &HDLcgi::table_header( __('共有サービスの設定') );


if( $modelname eq 'HDL-GTR' ) {

&HDLcgi::table_row( $p, 40, "<center>" . __('有効にするサービスの選択') . "</center>"
        , &HDLcgi::popup_help( qq||
        . qq|<input type="checkbox" name="samba"  value="1" $samba_on > |
        .  __('Microsoftネットワーク ファイル共有') . qq|　　　　|
        . qq|<input type="checkbox" name="sambalog"  value="1" $sambalog_on >|. __('アクセスログを記録') . "<p>", "svc_sambalog" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="atalk"  value="1" $atalk_on > |
        . __('AppleShareネットワーク ファイル共有') . "<p>", "svc_netatalk" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="vsftpd" value="1" $vsftpd_on> |
        . __('FTP') . "<p>", "svc_ftp" )
        , ( $modelname eq 'HDL-GTR' )?  "select_gtr" : "select"
        );

}else{

&HDLcgi::table_row( $p, 40, "<center>" . __('有効にするサービスの選択') . "</center>"
        , &HDLcgi::popup_help( qq|<input type="checkbox" name="samba"  value="1" $samba_on > |
        .  __('Microsoftネットワーク ファイル共有') . "<p>", "svc_samba" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="atalk"  value="1" $atalk_on > |
        . __('AppleShareネットワーク ファイル共有') . "<p>", "svc_netatalk" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="vsftpd" value="1" $vsftpd_on> |
        . __('FTP') . "<p>", "svc_ftp" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="dlnasv" value="1" $dlnasv_on> |
        . __('DLNA Server') . qq|  <a href="/gate/dlnafilter.cgi">| . __('アクセス制限') . qq|</a></div><DIV><IMG Src="/img/dixim_logo.gif" Style="height: 38px; width: 50px;">|, "svc_dlna" )

        , "select"
        );
}

HDL-GTRX化のための調査 その2

/usr/local/www/gate/ にDLNAに関する設定ページが格納されている
管理web画面にログインし、直接URLをたたくと表示がされる。
http://landisk/gate/dlnafilter.cgi

このページでやってることは
/mnt/hda5/dmsf_data/conf/access/default　に
アクセス定義を書く処理等のようです。

sh-2.05b# cat /usr/local/www/gate/dlnafilter.cgi

#!/usr/bin/perl
# -*- mode: landisk-perl; coding: utf-8; -*-
#
# dlnafilter.cgi: DLNA アクセス制限の設定
# Copyright (C) 2004-2007 I-O DATA DEVICE,INC. ALL RIGHTS RESERVED.
#

# for debug
#use warnings;
#use strict;

sub BEGIN {
push(@INC, '/usr/local/bin');
push(@INC, '/usr/local/www/gate');
}

require "cgi-lib.pl";&ReadParse;

use POSIX;
use Locale::gettext;

use HDLdefines;
use HDLcgi;

sub __ {
dcgettext('dlnafilter', shift, LC_MESSAGES);
}


###############################################################################
# メインルーチン
###############################################################################
setlocale(LC_MESSAGES, &$HDLdefines::lang());
bindtextdomain('dlnafilter', '/usr/local/share/locale/www/gate');

## loginチェック
&HDLcgi::check_login( %in );

$| = 1;#バッファリング禁止。

##################################################################
#親プロセス
if ($pid = fork){

$res = waitpid $pid, 0; #子プロセス終了を待つ

exit(0);
}

##################################################################
#子プロセス
elsif(defined $pid){

require 'HDLsystem.pm';

# LEDの設定
$sys = HDLsystem->new( exclusive => 1 );
if (!defined $sys){
&HDLcgi::hdl_err_message("HDLsystem");
goto end_exit;
}
$sys->after_led( status => 'status_on' ),
$sys->set_led ( status => 'status_fastblink' );

# 引数取得
my $accesslist_in = $in{"accesslist"};
my $modifylist_in = $in{"modifylist"};
my $btn = $in{"btn"};
my $btn_allow = $in{"btn_allow"};
my $btn_deny = $in{"btn_deny"};
my $btn_del = $in{"btn_del"};
my @mac_list = ();
my $index;
my @access_tmp = ();
my @access_ip = ();
my @modify_tmp = ();
my @modify_ip = ();
my $access_btn = "";
my $modify_btn = "";

# DLNA アクセス制限モード取得
my $dlnaaccess = `sudo cat /mnt/hda5/dmsf_data/conf/access/default`;
chomp $dlnaaccess;

# ボタン処理
if ( $btn eq __('デフォルトを許可→禁止に変更') ) {
`sudo rm -f /mnt/hda5/dmsf_data/conf/access/default > /dev/null`;
`sudo sh -c 'echo deny > /mnt/hda5/dmsf_data/conf/access/default'`;
$dlnaaccess = "deny";
`sudo /etc/rc2.d/S98dlna restart > /dev/null`;
} elsif ( $btn eq __('デフォルトを禁止→許可に変更') ) {
`sudo rm -f /mnt/hda5/dmsf_data/conf/access/default > /dev/null`;
`sudo sh -c 'echo allow >> /mnt/hda5/dmsf_data/conf/access/default'`;
$dlnaaccess = "allow";
`sudo /etc/rc2.d/S98dlna restart > /dev/null`;
} elsif ( $btn_allow eq __('許可') ) {
if ( $dlnaaccess eq "allow" ) {
@maclist = split(/�/,$modifylist_in);
foreach (@maclist) {
`sudo cp -pf /mnt/hda5/dmsf_data/conf/access/deny/$_ /mnt/hda5/dmsf_data/conf/access/allow/ > /dev/null`;
`sudo rm -f /mnt/hda5/dmsf_data/conf/access/deny/$_ > /dev/null`;
}
} else {
@maclist = split(/�/,$accesslist_in);
foreach (@maclist) {
`sudo cp -pf /mnt/hda5/dmsf_data/conf/access/deny/$_ /mnt/hda5/dmsf_data/conf/access/allow/ > /dev/null`;
`sudo rm -f /mnt/hda5/dmsf_data/conf/access/deny/$_ > /dev/null`;
}
}
`sudo /etc/rc2.d/S98dlna restart > /dev/null`;
} elsif ( $btn_deny eq __('禁止') ) {
if ( $dlnaaccess eq "allow" ) {
@maclist = split(/�/,$accesslist_in);
foreach (@maclist) {
`sudo cp -pf /mnt/hda5/dmsf_data/conf/access/allow/$_ /mnt/hda5/dmsf_data/conf/access/deny/ > /dev/null`;
`sudo rm -f /mnt/hda5/dmsf_data/conf/access/allow/$_ > /dev/null`;
}
} else {
@maclist = split(/�/,$modifylist_in);
foreach (@maclist) {
`sudo cp -pf /mnt/hda5/dmsf_data/conf/access/allow/$_ /mnt/hda5/dmsf_data/conf/access/deny/ > /dev/null`;
`sudo rm -f /mnt/hda5/dmsf_data/conf/access/allow/$_ > /dev/null`;
}
}
`sudo /etc/rc2.d/S98dlna restart > /dev/null`;
} elsif ( $btn_del eq __('削除') ) {
@maclist = split(/�/,$accesslist_in);
foreach (@maclist) {
`sudo rm -f /mnt/hda5/dmsf_data/conf/access/$dlnaaccess/$_ > /dev/null`;
}
`sudo /etc/rc2.d/S98dlna restart > /dev/null`;
}


my $allow = `sudo ls -1 /mnt/hda5/dmsf_data/conf/access/allow`;
my $deny = `sudo ls -1 /mnt/hda5/dmsf_data/conf/access/deny`;

if ($dlnaaccess eq "allow") {
@access_tmp = split( /n/ , $allow );
@modify_tmp = split( /n/ , $deny );
} else {
@access_tmp = split( /n/ , $deny );
@modify_tmp = split( /n/ , $allow );
}
$index = 0;
foreach (@access_tmp) {
$access_ip[$index] = `sudo cat /mnt/hda5/dmsf_data/conf/access/$dlnaaccess/$_`;
$index++
}
# accessボタン
if ( $index > 0 ) {
if ($dlnaaccess eq "allow") {
$access_btn = qq|<input type="submit" value="| . __('禁止') . qq|" name="btn_deny">'."n".'<input type="submit" value="| . __('削除') . qq|" name="btn_del">|;
} else {
$access_btn = qq|<input type="submit" value="| . __('許可') . qq|" name="btn_allow">'."n".'<input type="submit" value="| . __('削除') . qq|" name="btn_del">|;
}
} else {
$access_btn = "";
}

$index = 0;
foreach (@modify_tmp) {
if ($dlnaaccess eq "allow") {
$modify_ip[$index] = `sudo cat /mnt/hda5/dmsf_data/conf/access/deny/$_`;
} else {
$modify_ip[$index] = `sudo cat /mnt/hda5/dmsf_data/conf/access/allow/$_`;
}
$index++
}

# modifyボタン
if ( $index > 0 ) {
if ($dlnaaccess eq "allow") {
$modify_btn = qq|<input type="submit" value="| . __('許可') . qq|" name="btn_allow">|."n";
} else {
$modify_btn = qq|<input type="submit" value="| . __('禁止') . qq|" name="btn_deny">|."n";
}
} else {
$modify_btn = "";
}


#
# HTML出力
#
if ($dlnaaccess eq "allow") {
&HDLcgi::page_header(
__('アクセス制限（デフォルト許可）'),
'',
'',
'',
'',
''
);
} else {
&HDLcgi::page_header(
__('アクセス制限（デフォルト禁止）'),
'',
'',
'',
'',
''
);
}

print < <SCRIPT LANGUAGE="JavaScript">

</SCRIPT>
EOM

print qq|<form name="thispage" method="get" action="/gate/wait_page.cgi" onSubmit="return disable()">n|;

#
# 新規ユーザの操作メニュー
#

&HDLcgi::table_header ( __('アクセスがあったDLNAクライアント') );
&HDLcgi::sub_header( __('選択'), __('MACアドレス'), __('IPアドレス') );
$p = 0;
$index = 0;
foreach ( @access_tmp ) {
$p = &HDLcgi::table_row3 ($p, 10, qq|n<input type="checkbox" name="accesslist" value="$_">n|, 40, $_, $access_ip[$index]);
$index++;
}
&HDLcgi::table_footer();
print $access_btn;
print "";

if ($dlnaaccess eq "allow") {
&HDLcgi::table_header( __('アクセスを禁止するDLNAクライアント') );
} else {
&HDLcgi::table_header( __('アクセスを許可するDLNAクライアント') );
}
&HDLcgi::sub_header( __('選択'), __('MACアドレス'), __('IPアドレス') );
$p = 0;
$index = 0;
foreach ( @modify_tmp ) {
$p = &HDLcgi::table_row3 ($p, 10, qq|n<input type="checkbox" name="modifylist" value="$_">n|, 40, $_, $modify_ip[$index]);
$index++;
}
&HDLcgi::table_footer();
print $modify_btn;
print "";
if ($dlnaaccess eq "allow") {
print qq|n<input type=submit name=btn value="| . __('デフォルトを許可→禁止に変更') . qq|">nnn|;
} else {
print qq|n<input type=submit name=btn value="| . __('デフォルトを禁止→許可に変更') . qq|">nn|;
}
print qq|<input type=hidden name=next value="/gate/dlnafilter.cgi">n|;

print "</form>n";
&HDLcgi::page_footer();
goto end_exit;


end_exit:
undef $sys;
exit (0);

}

HDL-GTRX化のための調査

コメントをいただいたようなので、DLNAについて再度調べてみる。
DLNAを有効化する際にキックする起動シェルは
/etc/init.d/dlna であり
# /etc/init.d/dlna start　とすれば起動する。
ちなみに、起動シェルを眺めてみれば、configファイルがどこにあるかは一目瞭然。
/mnt/hda5/dmsf/config　です。


sh-2.05b# cat /etc/init.d/dlna
#!/bin/sh
#
# chkconfig: 2345 95 5
# description: DiXiM Media Server
#
# $Id: dmsfactrl,v 1.5 2003/08/13 11:13:06 cvs Exp $

# configuration
config=/mnt/hda5/dmsf/config
. "$config"
program_path="$program_home/$program_name"
pid="/var/run/$program_name".pid

ulimit -n 1100
export CHARACTER_ENCODING="UTF8"

[ -x $program_path ] || exit 1

start() {

echo -n "Starting DLNAServer : "
host_name=$(hostname)
echo -n $host_name > $data_home/conf/friendly_name
# Start daemon.
if [ -e $pid ]; then
if [ -e "/proc/"`cat $pid` ]; then
echo "Already Started"
return 1
else
rm -f $pid
fi
fi
$program_path $account $data_home $pid &
echo "[ OK ]"
}

stop() {
# Stop daemon.
echo -n "Shutting down DLNAServer : "
if [ -e $pid ]; then
kill `cat $pid`
sleep 1
killall dmsf >& /dev/null
sleep 1
killall dmsf >& /dev/null
sleep 1
killall dmsf >& /dev/null
sleep 1
killall dmsf >& /dev/null
sleep 1
killall dmsf >& /dev/null
sleep 1
killall dmsf >& /dev/null
sleep 1
killall dmsf >& /dev/null
sleep 1
kill -KILL `cat $pid`
rm -f $pid
echo "[ OK ]"
return 0
else
killall dmsf >& /dev/null
echo "[ OK ]"
return 0
fi
}

restart() {
stop
sleep 1
start
}

# See how we were called.
case "$1" in
start)
start
;;
stop)
stop
;;
restart)
restart
;;
*)
echo "Usage: "$program" {start|stop|restart}"
exit 1
esac

exit $?

--------------------------------------------
--------------------------------------------

sh-2.05b# cat /mnt/hda5/dmsf/config
program_name="dmsf"
ctrl_name="dmsfctrl"
program_home="/mnt/hda5/$program_name"
data_home="/mnt/hda5/dmsf_data"
init_home="/etc/init.d"
account="root"

エリック・ツァベルが引退!!

その年齢は38歳
歴代最高のスプリンターと称さずにはいられない
エリック・ツァベルが今夜のパリ・ツールで引退だそうです。

私が自転車レースに興味を持った頃から、今夜に至るまで
走り続けてくれたその彼が引退です。

今日は、彼の最後のレースを見届けたいと思います。