archiv_2.php

<html><head><meta charset="utf-8"></head><body><?php

// archiv_2.php nacita vic kanalu najednou a hleda zmeny oproti poslednimu spusteni programu
// https://youtu.be/F_UwrNEFTP4 (php.ini)

$kody = array(
"100517", // derne stitky
"101132", // trendy
"101021", // zaostreno
"101031", // hovory
"101024", // svet ve 20ti minutach
"100994", // hlavni zpravy
"101030", // pro a proti
"101187", // za hranou
"101022", // nazory a argumenty
"101017", // archiv plus
"101719", // quest (pocitacovy hry)
"101698" // historie zlocinu
);

date_default_timezone_set('UTC'); // musi bejt v utc
$zmena = "0";
$povazovano_za_nove_hodin = "72";
$povazovano_za_nove_hodin = $povazovano_za_nove_hodin * 3600;

// historie
$filename = "/tmp/archiv_2_hist.txt"; // smaze se pri restartu systemu !
$ted_stamp = time();
$out = $ted_stamp;

$his_stamp = file_get_contents($filename);

if ($his_stamp == NULL){
file_put_contents($filename, $out);
exit("vytvoren soubor $filename, spustit znovu");
// pokud nic nenacte vytvori novy, vypise hlaseni a ukonci
}

file_put_contents($filename, $out);

// pole
$dny_an = array("Mon","Tue","Wed","Thu","Fri","Sat","Sun");

$dny_cz = array("Pondělí","Úterý","Středa","Čtvrtek","Pátek","Sobota","Neděle");

$mesic_an = array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

$mesic_cz = array("Ledna","Února","Března","Dubna","Května","Června","Července","Srpna","Září","Října","Listopadu","Prosince");

$mesic_num = array("01","02","03","04","05","06","07","08","09","10","11","12");

$pocet_kodu = sizeof($kody);


// main loop
for($aa = 0; $aa < $pocet_kodu; $aa++){

$poc = "1";

$curl = curl_init("http://www2.rozhlas.cz/podcast/podcast_porady.php?p_po=" . $kody[$aa]);

curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);

$page[$aa] = curl_exec($curl);

curl_close($curl);

$pole[$aa] = explode("\n", $page[$aa]);
$pocet_radku = sizeof($pole[$aa]);

$vypis_nazev = "0";

$nazev_rss = strip_tags($pole[$aa][4]);
$nazev_stanice = strip_tags($pole[$aa][11]);

$nazev_2 = "<font color='red' font size='5'><b>$nazev_rss - $nazev_stanice</b></font>";

for($bb = 22; $bb < $pocet_radku; $bb = $bb + 10){

// datum
$datum2 = ($pole[$aa][$bb]);

$aaa = strpos($datum2,">");
$bbb = substr($datum2,$aaa+1);

$ccc = strpos($bbb,"+");
$ddd = substr($bbb,0,$ccc-1);

$den_v_tydnu = substr($ddd,0,3);

for($y = 0; $y <= sizeof($dny_an); $y++){
if ($den_v_tydnu == $dny_an[$y]){
$den_v_tydnu_cz = $dny_cz[$y];
break;
}else{
$den_v_tydnu_cz = "chyba_den";
}
}

$den_v_mesici = substr($ddd,-20,-18);

$mesic = substr($ddd,-17,-14);

for($x = 0; $x <= sizeof($mesic_an); $x++){
if ($mesic == $mesic_an[$x]){
$mesic_num_out = $mesic_num[$x];
$mesic_cz_out = $mesic_cz[$x];
break;
}
}

$rok = substr($ddd,-13,-9);

$pub_cas = substr($ddd,-8);

// prevod na pub timestamp
$pub_date = $rok . "-" . $mesic_num_out . "-" . $den_v_mesici . " " . $pub_cas;

$d1 = new DateTime($pub_date);
$pub_stamp = $d1->getTimestamp();

// vyhodnoceni
$pub_stamp_puvodni = $pub_stamp;
$pub_stamp = $pub_stamp + $povazovano_za_nove_hodin;
if ($pub_stamp > $his_stamp){
$zmena = "1";

// vypis nazvu
if ($vypis_nazev == "0"){
echo $nazev_2;
echo "<br>";
$vypis_nazev = "1"; // aby se neopakoval nazev vicekrat
}

// vypis noveho
echo "<b>$poc) </b>";
$poc++;
echo "délka <b>";
echo strip_tags($pole[$aa][$bb-3]); // popis -2 , url + 1
echo "</b> minut - ";

// oriznuti pripadne nuly u $den_v_mesici
$je_nula = substr($den_v_mesici,0,-1);
if ($je_nula == "0"){
$den_v_mesici = substr($den_v_mesici,1);
}

echo "<b>$den_v_tydnu_cz $den_v_mesici $mesic_cz_out $rok</b>";
echo " - " . substr($pub_cas,0,5); // HH:MM
// to co je uplne novy je oznaceno hvezdickou (hvezdicku zobrazuje asi 2 hodiny)
// to co bylo zobrazeno jiz drive (promena $povazovano_za_nove_hodin) se zobrazi taky ale bez hvezdicky
if ($pub_stamp_puvodni > $his_stamp){
echo "<strong> *</strong>";
}
echo "<br>";

echo "<a href=";
echo "'";
echo strip_tags($pole[$aa][$bb+1]);
echo "'";
echo " style='text-decoration: none'"; // http://www.computerhope.com/issues/ch000074.htm
echo " target='_blank'>"; // otevre v novem panelu
echo strip_tags($pole[$aa][$bb-2]);
echo "</a><br><br>";
}

} // $bb
} // $aa

if ($zmena == "0"){
echo "<br><center> Archiv nic nového</center>";
}

?></body></html>