- 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
396 ：名無しさん＠編集中[sage]：2010/06/01(火) 14:16:27 ID:UYYBpbXS - iEgpが停止しただけで、過去の番組情報は生きているので、だれかソトの人がなんとかしてもらえないでしょうか？(懇願)
| - 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
397 ：名無しさん＠編集中[sage]：2010/06/01(火) 17:49:05 ID:UYYBpbXS - >>393
PupSQLite なんかで,epg.db開いてみて、テーブル,da_channel内のTOKYO MXの dc_network_idと同じ数値を
テーブル、da_eventのdv_transport_stream_idに持つフィールドのdv_service_idは一種類だけでしょうか?
複数あるようなら、望みのdv_service_idの方を、テーブルda_channelのTOKYO MXのフィールドのdc_service_idに書いてやると何とかならないでしょうか？
# ここはTOKYO MX入らない。
| - 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
401 ：名無しさん＠編集中[sage]：2010/06/01(火) 21:45:32 ID:UYYBpbXS - クイックハックなので取り扱い注意
コメントアウトする。
# if($omsgid =~ /template=detail/){
# $omsgid = &get_iepgURL($omsgid);
# }
関数を入れ替える
sub get_iepg {
local($msg) = @_;
$msg =~ /station=([0-9]*)/; $chepg = $1;
$msg =~ /sdate=([0-9]*)/; $chepg .= $1;
$msg =~ /shour=([0-9]*)/; $chepg .= $1;
$msg=~ /sminutes=([0-9]*)/; $chepg .= $1;
&expire_file($CacheDir, 'epg', 'CacheLockEPG', $ExpireEPG * 3600);
$OCache = $CacheDir . "/" . $chepg . '.epg';
#$resbuf="";
$resbuf = &read_cache($OCache, 'CacheLockEPG');
if($resbuf eq ""){
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)" . $ua->agent);
if($Proxy ne ""){ $ua->proxy('http', $Proxy); }
my $req = new HTTP::Request GET => $Server . '/tv.php?' . $msg;
$req->referer($Server . '/tv.php');
my $res = $ua->request($req);
if ($res->is_success) {
$resbuf = $res->content;
&cache_write($resbuf, 'CacheLockEPG', $OCache);
}else{
&htmlhead();
print $res->status_line . "\n";
}
}
つづく。
| - 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
402 ：名無しさん＠編集中[sage]：2010/06/01(火) 21:48:54 ID:UYYBpbXS - if($resbuf ne ""){
$sta = $chan = $YearI = $MonI = $DatI = $StatI = $EndI = $TitleI = $TitleSI = "";
my $performer = 0;
$msg =~ /sdate=20(\d{2})(\d{2})(\d{2}).*shour=(\d+).*sminutes=(\d+)/;
$YearI=$1;$MonI=$2;$DatI=$3;
$StatI=sprintf("%02d%02d00",$4,$5);
foreach $RecS (split(/\n/, $resbuf)){
if($RecS =~ /\d{1,2}月\d{1,2}日（.*(\d{2}):(\d{2}) ／ (.*)<br \/>$/){
$EndI = $1.$2."00";
$objStation = $3;
foreach $chanTmp (@iepg_chan){
($ChanObj, $stations) = split(/:/, $chanTmp);
foreach $station (split(/\,/, $stations)){
if($objStation eq $station){
$chan = $ChanObj; $sta = $station;
last;
}
}
if($chan ne ""){ last; }
}
}elsif($RecS =~ /<h1>(.*)<\/h1>/){
$TitleI=$1; $TitleI =~ s/<.*?>//g; $TitleI= &special_repl($TitleI);
}elsif($RecS =~ /<div id="db-headline">(.*)<\/div>/){
$TitleSI=$1; $TitleSI =~ s/<.*?>//g; $TitleSI= &special_repl($TitleSI);
}elsif($performer == 1 && $RecS =~ /<P>(.*)<\/P>/){
$TitleSP = $1; $TitleSP =~ s/<.*?>//g; $TitleSP = &special_repl($TitleSP);
$performer = 0;
}elsif($RecS =~ /<h2>出演<\/h2>/){ $perform = 1; }
}
}
}
| - 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
403 ：名無しさん＠編集中[sage]：2010/06/01(火) 21:49:53 ID:UYYBpbXS - >>401
>>402
msnさんが書式を変えたらすぐ駄目になります。
|
|