OnTVによる番組予約

レコーダのメール予約の設定を行うが、 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++ ;
  }
}