レコーダのメール予約の設定を行うが、 tvsurf.jp の録画予約は携帯だと、番組表予約ができず、時間やチャンネル番号を入力しないとダメ。 これじゃ、誰も使わないって…

ON TV の録画予約メールの形式違い

次に ON TV を試す。こちらだと、携帯でも番組表を見ながら予約メールを出せる。 しかし、予約メールで送信されるメールの形式が VARDIA の形式に会わない。

ontv:   open  tv SC0438 0900 0930 0813
VARDIA: open  prog add 20080813 0900 0930 D011

ON TV 用の補正スクリプト

しかたがないので、届いたメールの該当行を強制的に書き換える、 以下のようなスクリプトをしかける。

#!/usr/bin/perl
$homedir = "$HOME" ;
%chlist = ( "SC0438" => "D011" , # NHK総合・福井
"SC0448" => "D021" , # NHK教育・福井
:
"SC0003" => "8" ,    # 地アナ8ch
"SC0014" => "10" ,   # 地アナ10ch ) ;
sub chconv
{
# 地上アナログ 1-64
# 地上デジタル DXXX-X
# BSデジタル   BSXXX
# CSデジタル   CSXXX
# スカパー     SPXXX
# 専門チャンネル CCXXX/CBXXX
my ($ch) = @_ ;
if ( $chlist{$ch} ne "" ) {
return $chlist{$ch} ;
} else {
return $ch ;
}
}
open( FH , sprintf( ">$homedir/Maildir/new/%d-%d.ontv" , time , $$ ) )
|| die( "Can't open file\n" ) ;
my $flag = 1 ;
while( <> ) {
if ( $flag ) {
s/^To:\s+ONTV専用録画メールアドレス$/To: 録画用メールアドレス/ ;
s/^From:\s+admin\@ontvjapan\.com$/From: 通知用メールアドレス/ ;
print FH $_ ;
if ( /^$/ ) {
$flag = 0 ;
$count = 0 ;
}
} else {
if ( $count == 0 && /^open\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ ) {
($pass,$command,$ch,$start,$end,$mmdd) = ($1,$2,$3,$4,$5,$6) ;
my @now = localtime( time ) ;
my $now_mmdd = sprintf( "%02d%02d" , $now[ 4 ] , $now[ 3 ] ) ;
if ( $now_mmdd le $mmdd ) {
$year = $now[ 5 ] + 1900 ;
} else {
$year = $now[ 5 ] + 1901 ;
}
print FH sprintf( "open %s prog add %04d%04s %s %s %s\n" ,
$pass , $year , $mmdd , $start , $end , chconv( $ch ) ) ;
} else {
print FH $_ ;
}
$count++ ;
}
}

連絡：ママからもメール予約ができるように登録作業もしたよ。