Dagskrá RÚV
Skrifađ af
Tómas A. Árnason ţann
14. desember 2007 - 15:27
Fjöldi lestra: 1507Klasi sem sćkir dagskránna frá RÚV og setur dagskrárliđina í mengi.
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
36 |
37 |
38 |
39 |
40 |
41 |
42 |
43 |
44 |
45 |
46 |
47 |
48 |
49 |
50 |
51 |
52 |
53 |
54 |
55 |
56 |
57 |
58 |
59 |
60 |
61 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 |
110 |
111 |
112 |
113 |
114 |
115 |
116 |
117 |
|
<?php
/*
Tómas A. Árnason 14. desember 2007
Skrifađ í óveđrinu mikla, um klukkan 14:00.
Klasi sem sćkir dagskránna frá RÚV og setur dagskrárliđina í mengi.
Notkun:
$foo = new ruv_dagskra();
$foo->parse();
Síđan er hćgt ađ vinna meira međ mengiđ sem ţetta skilur eftir sig
*/
class ruv_dagskra
{
/*
Breytan fyrir dagsetninguna
*/
var $dags = '';
/*
Hvađa stöđ erum viđ ađ rćđa um?
1 Sjónvarpiđ
2 Rás 1 (Gufan)
3 Rás 2
8 Rondo
*/
var $stod = '1';
/*
Mengi međ dagskránni og upplýsingum
$foo->dagskra['upplysingar'] = array('dagsetning', 'stod');
$foo->dagskra['dagskra'] = array('klukkan' => 'dagskrarlidur');
*/
var $dagskra = array(
'upplysingar' => array(),
'dagskra' => array()
);
/*
Hćgt er ađ gefa upp dagsetningu á forminu "Y-m-d", t.d "2007-12-24"
Hćgt er ađ gefa upp stöđ sem nálgast á dágskrá hjá.
*/
function ruv_dagskra($dags = '', $stod = '1')
{
if(empty($dags))
{
$this->dags = date("Y-m-d");
}
else
{
$this->dags = $dags;
}
if($stod = '1')
{
$this->stod = '1';
}
else
{
$this->stod = $stod;
}
}
/*
Allveg hryllilega tilgangslaus ađgerđ, en who gives a **bleep**
*/
function dags()
{
return $this->dags;
}
/*
Hérna gerist allt!
Náum í dagskránna, og trođum henni í mengi...
*/
function parse($debug = false)
{
$slod_a_dagskra = "http://dagskra.ruv.is/files/text.aspx?channel={$this->stod}&date-from={$this->dags}&date-to={$this->dags}&spacing=tab";
$dagskra_text = file_get_contents($slod_a_dagskra);
$dagskra_arr = explode("\n", utf8_decode($dagskra_text));
$this->dagskra['upplysingar']['dags'] = $dagskra_arr['0'];
$this->dagskra['upplysingar']['stod'] = $dagskra_arr['1'];
foreach($dagskra_arr as $klukkan => $hvad)
{
if(preg_match("/^(\d{2})(.*)/",$hvad, $match))
{
$hvad = preg_replace("/\n/"," ", $hvad);
$lidur = explode("\t\t", $hvad);
$klukkan = substr($lidur['0'], '0', '5');
$hvad_er_tha = substr($lidur['0'], '6', strlen($lidur['0']));
$this->dagskra['dagskra'][$klukkan] = $hvad_er_tha;
}
}
if($debug == true)
{
print_r($this->dagskra);
}
}
}
$foo = new ruv_dagskra();
$foo->parse(true);
?>
|
17. desember 2007 - 20:49#1 - Tómashttp://ms.tomasarnason.com
Ţeir sem vilja dagskránna hjá SkjáEinum geta fengiđ hana hér
http://nfg.grundaskoli.is/tomas/s1.dagskra.php
SkjárEinn býđur ekki uppá ađ sćkja eftir degi. En vona ađ ţetta virki eitthvađ ađ viti.
1 athugasemd skrifuđ -