Microsoft Windows [Version 6.3.9600]
(c) 2013 Microsoft Corporation. All rights reserved.

C:\Users\Public\Documents\radio>korec -clean
=== Exception at 2015/05/21 18:57:28 ===
System.TypeInitializationException : 'ah' のタイプ初期化子が例外をスローしました。

*use -v option to show debug information


C:\Users\Public\Documents\radio>korec -clean -v
=== Exception at 2015/05/21 18:57:37 ===
System.TypeInitializationException : 'ah' のタイプ初期化子が例外をスローしました。

*use -v option to show debug information


C:\Users\Public\Documents\radio>korec -h
=== Exception at 2015/05/21 18:57:56 ===
System.TypeInitializationException : 'ah' のタイプ初期化子が例外をスローしました。

*use -v option to show debug information


C:\Users\Public\Documents\radio>

6,"06:00ツブ★ドル ユメカナラジオ！? ","06:00れい＆ゆいの文化放送ホームランラジオ!松嵜麗、渡部優衣 ","06:00伊福部崇の ラジオのラジオ伊福部崇 ","06:00桃園ひめこ・巴奎依のライトノベル学園桃園ひめこ、巴奎依 ","06:00金の卵石井璃里子、熊谷正弥、馬場惇平 ","06:00超！モバイル Ａ＆Ｇ　presents 生放送 ","06:00超！Ａ＆Ｇ＋ スペシャル"
,"06:30木戸衣吹・エリイ ゆめいろ学院木戸衣吹、山崎エリイ ","06:30のざＰ・松永真穂の ライブドッグ野崎圭一、松永真穂 ","06:30bamboo（milktub）、上田朱音 ","06:30今村彩夏 STAY GOLD今村彩夏 ","06:30高垣彩陽の あしたも晴レルヤ高垣彩陽 ",,
7,"07:00三上枝織の A&G NEXT GENERATION Ｌａｄｙ　Ｇｏ！！三上枝織 ","07:00上坂すみれの A&G NEXT GENERATION Ｌａｄｙ　Ｇｏ！上坂すみれ ","07:00小松未可子の A&G NEXT GENERATION Ｌａｄｙ　Ｇｏ！！小松未可子 ","07:00大久保瑠美の A&G NEXT GENERATION Ｌａｄｙ　Ｇｏ！！大久保瑠美 ","07:00高森奈津美の A&G NEXT GENERATION Ｌａｄｙ　Ｇｏ！！高森奈津美 ","07:00アニアモ！川上莉央、立花理香 ","07:00岩田光央・鈴村健一 スウィートイグニッション岩田光央、鈴村健一"

土曜日04時00分 放送休止*4
土曜日03時30分 角元明日香の本気！アニラブ角元明日香*1
土曜日03時00分 A&G NEXT BREAKS 吉田有里のFIVE STARS*1
土曜日02時30分 カスタマイＺのハジメマシタカスタマイZ*1
土曜日02時00分 木戸衣吹・エリイ ゆめいろ学院木戸衣吹、山崎エリイ*1
土曜日01時30分 「黒子のバスケ」 放送委員会小野賢章、小野友樹*1
土曜日01時00分 逢坂市立花江学園 ～Ｒａｄｉｏ逢坂良太、花江夏樹*1
土曜日00時30分 吉野裕行ＦＣ吉野裕行*1
土曜日00時00分 羽多野・寺島 Radio 2D LOVE*1
金曜日23時30分 有限会社 チェリーベル櫻井孝宏、鈴村健一、松来未祐*1
金曜日23時00分 小野大輔・近藤孝行の 夢冒険～Dragon＆Tiger小野大輔、近藤孝行*1
金曜日22時30分 EMERGENCY the RADIO*1
金曜日22時00分 れいちゃんねる！Ray ※隔週生放送*1
金曜日21時30分 ジェンガでナイト！*1
金曜日21時00分 黒崎真音のRADIO RONDO ROBE～妄想王女の単独電波～黒崎真音*1

**********************************************
Arugoworks KoRec Version:2.4.5.3
=== 2015/05/17 1:27:09 ===
**********************************************

**********************************************
Arugoworks KoRec Version:2.4.5.3
=== 2015/05/17 1:27:09 ===
**********************************************

=== Exception at 2015/05/17 1:27:09 ===
=== Exception at 2015/05/17 1:27:09 ===
System.MissingMethodException : メソッドが見つかりません: 'System.Threading.Tasks.Task`1 Arugoworks.KoRec.IOUtils.GetXElementAsync(System.String, System.Net.CookieContainer)'
System.MissingMethodException : メソッドが見つかりません: 'System.Threading.Tasks.Task`1 Arugoworks.KoRec.IOUtils.GetXElementAsync(System.String, System.Net.CookieContainer)'
   場所 r.d(Version A_0)
   場所 y.w()
   場所 af.a(String[] A_0)
   場所 w.a(String[] A_0)

=== Exception at 2015/05/17 1:27:09 ===
System.IO.IOException : 別のプロセスで使用されているため、プロセスはファイル 'C:\Users\Public\Documents\radio\20150517012709agqr.log' にアクセスできません。
   場所 System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
   場所 System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy, Boolean useLongPath, Boolean checkHost)
   場所 System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options, String msgPath, Boolean bFromProxy, Boolean useLongPath, Boolean checkHost)
   場所 System.IO.StreamWriter.CreateFile(String path, Boolean append, Boolean checkHost)
   場所 System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding, Int32 bufferSize, Boolean checkHost)
   場所 System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding)
   場所 ag.f(String A_0)
   場所 ag.f()
   場所 y.w()
   場所 af.a(String[] A_0)
   場所 w.a(String[] A_0)

use strict;
use warnings;
use utf8;
binmode STDIN,  ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

sub katto{
   $_[0] =~ /^\s*(.*)\s*$/;

   return $1;
}

sub dusk{
   my %cfg = @_;

   my $image;
   my $pid;
   my $sessionname;
   my $session;
   my $memusage;
   my $stat;
   my $username;
   my $cputime;
   my $windowtitle;
   my $paipu;
   my $tmpflag = 1;

   while($tmpflag){
      $tmpflag = 0;
      open $paipu, "tasklist /FO CSV /NH /V |";
      while(<$paipu>){
         chomp;
         $_ = Encode::decode('cp932', $_);
         s/^\s*\"//;
         s/\"\s*$//;
         ($image, $pid, $sessionname, $session, $memusage, $stat, $username, $cputime, $windowtitle) = split(/\Q","\E/,$_);
         if($windowtitle =~ /JoyToTheWorld/i){
            printf "*KoRec 発見 （+PID = $pid  +WindowTitle = \"$windowtitle\"）\n";
            if((kill 9, $pid) || (kill 15, $pid)){
               printf "*KILL シグナル送信成功\n";
            }else{
               printf "*KILLシグナル送信失敗\n";
               printf "*taskkillも大雑把に放つ\n";
               system('taskkill /F /T /FI "WINDOWTITLE eq JoyToTheWorld" >nul');
            }
            $tmpflag = 1;
         }
      }
      close $paipu;
   }
   printf "*ログ消去\n";
   unlink glob($cfg{logpath}.'\\*.log');
}




sub JoyToTheWorld{
   my $dh00;
   my $fh00;
   my $keepvideo;
   my $title;
   my %cfg = @_;


   &dusk(%cfg);

   printf "*番組表取得タスク起動\n";
   system("start \"JoyToTheWorld\" /REALTIME /MIN $cfg{korecpath}\\korec.exe -i agqr -margin $cfg{JTTW} -v -log -o $cfg{logpath} -LogFolder $cfg{logpath} -l auto -wait -ntp");

   printf "*今から$cfg{JTTW}秒後の番組を調べるよ\n";
   printf "*ログファイル出現待ち\n";
   LASTLABEL:while(1){
      opendir $dh00, "$cfg{logpath}" or die "肉じゃが作るよ : $!\n\n";
      while($_ = readdir $dh00){
         chomp;
         /agqr\.log$/ and last LASTLABEL;
      }
      closedir $dh00;
      sleep 1;
   }

   printf "*処理待ち\n";
   $_ = "$cfg{logpath}\\$_";
   while(-s $_ < 1300){
      sleep 1;
      printf "*-ログ容量 =%5d bytes, now.\n", -s $_;
   }

   $keepvideo = "";
   printf "*ログ検索 \($_\)\n";
   open $fh00, "<:utf8", $_;
   while($_ = readline $fh00){
      chomp;
      if(s/^Title:\s*//i){
         $title = $_;
      }
      if(s/^Keep video:\s*//i){
         /Yes/i and $keepvideo = "-keepvideo";
         last;
      }
   }
   close $fh00;

   printf "*$cfg{JTTW}秒後は";
   printf "【$title】らしい\n";

   &dusk(%cfg);

   return $title, $keepvideo;
}


sub kkorec{

   my %cfg;
   my $fh00;

   my $title00;
   my $title01;
   my $keepvideo00;
   my $keepvideo01;

   my $tmpflag;
   my $tmpline;
   my $tmpgo;



   printf "================================================\n";
   my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
   $year += 1900;
   $mon += 1;
   printf "     ${year}年${mon}月${mday}日 ${hour}時${min}分${sec}秒\n";
   printf "     の定時巡回です\n";
   printf "================================================\n";
   printf "\nCFG読出し\n";
   open $fh00, "<:utf8", "kkorec.ini" or die "No ini file : $!";
   $tmpflag = 0;
   while($_ = readline $fh00){
      if(/\[(\d+)\]/i){
         if("config" eq lc($1)){
            $tmpflag = 1;
         }else{
            $tmpflag = 0;
         }
      }elsif($tmpflag = 1){
         s/;.*$//;
         if(/^\s*(.*)\s*=\s*(.*)\\?\s*$/){
            $cfg{lc($1)} = $2;
         }
      }
   }
   close $fh00;

   printf "\n\n*** 番組表チェック １ ***\n";
   ($title00, $keepvideo00) = JoyToTheWorld(%cfg, 'JTTW' => "$cfg{margin0}");
   printf "\n\n*** 番組表チェック ２ ***\n";
   ($title01, $keepvideo01) = JoyToTheWorld(%cfg, 'JTTW' => "$cfg{margin1}");

   printf "\n";
   printf "*番組リスト読み出し\n";
   open $fh00, "<:utf8", "kkorec.ini" or die "No ini file : $!";
   $tmpgo = 0;
   $tmpflag = 0;
   while($_ = readline $fh00){
      s/;.*$//g;
      $_ = &katto($_) or next;
      chomp;
      if(/\[(\w+)\]/){
         if("program" eq lc($1)){
            $tmpflag = 1;
         }else{
            $tmpflag = 0;
         }
      }elsif($tmpflag == 1){
         $_ = &katto($_) or next;
         defined($_) or next;
         if($title00 =~ /$_/i){
            $tmpgo = 1;
            printf "【●】$_  ★HIT! $keepvideo00\n";
         }else{
            printf "【  】$_\n";
         }
      }
   }
   close $fh00;

   printf "\n";
   if($title00 eq $title01){
      printf "*今やってる番組は、今から録っても手遅れよ\n";
   }else{
      if($tmpgo == 1){
         printf "*次の番組を";
         if($keepvideo00 eq "-keepvideo"){
            print "録画";
         }else{
            print "録音";
            $keepvideo00 = "";
         }
         printf "するよ\n";
         printf "*【$title00】\n*KoRecは待機中\n";
         system("start \"Tinkle\" /REALTIME /MIN $cfg{korecpath}\\korec.exe -i agqr -margin $cfg{margin0} -v -log -o $cfg{logpath} -LogFolder $cfg{logpath} -l auto -wait -ntp $keepvideo00");
      }else{
         printf "*今回は見送りする\n";
      }
   }
   print "*これでいいかな？\n";
}
kkorec;

================================================
     2015年5月12日 22時4分55秒
     の定時巡回です
================================================

CFG読出し


*** 番組表チェック １ ***
*ログ消去
*番組表取得タスク起動
*今から1800秒後の番組を調べるよ
*ログファイル出現待ち
*処理待ち
*ログ検索 (..\arc\20150512220458agqr.log)
*1800秒後は【RADIO 4Gamer Tap(仮)】らしい
*KoRec 発見 （+PID = 7024  +WindowTitle = "JoyToTheWorld"）
*KILL シグナル送信成功
*ログ消去


*** 番組表チェック ２ ***
*ログ消去
*番組表取得タスク起動
*今から300秒後の番組を調べるよ
*ログファイル出現待ち
*処理待ち
*ログ検索 (..\arc\20150512220505agqr.log)
*300秒後は【RADIO 4Gamer Tap(仮)】らしい
*KoRec 発見 （+PID = 8028  +WindowTitle = "JoyToTheWorld"）
*KILL シグナル送信成功
*ログ消去

*番組リスト読み出し
【  】CATCH
【  】FIVE STARS
【  】GENERATION
【  】Ｌａｄｙ
【  】アニラブ
【  】内田さんと
【  】東山奈央
【  】井口裕香
【  】阿澄佳奈
【  】竹達彩奈
【  】ごぶごぶ
【  】ありがた系
【  】りめいく！
【  】えじまる
【  】井上麻里奈
【  】早見沙織
【  】初ラジ
【  】久保ユリカ
【  】TRYangle
【  】洲崎西
【  】中村繪里子
【  】花澤香菜
【  】お時間よろしいですか
【  】新番組
【  】津田のラジオ
【  】由佳・ありさ・未奈未
【  】高垣彩陽
【  】今村彩夏
【  】野水いおり
【  】豊崎愛生
【  】三澤紗千香
【  】村川梨衣
【  】長縄まりあ
【  】金田朋子
【  】みなとそふと
【  】高橋美佳子
【  】木戸衣吹
【  】姫イド隊
【  】進化論
【  】ライトノベル
【  】飯田里穂
【  】内田真礼
【  】エジソン
【  】こむちゃ
【  】ハルカス
【  】ラフラフ
【  】あどりぶ
【  】青春学園
【  】セハガール
【  】ラジオどっとあい
【  】セカンドショットアワー
【  】進化論
【  】丹下桜

*今やってる番組は、今から録っても手遅れよ
*これでいいかな？