BLASTEN.COM - Programaci?n de TV

"Programa" hecho en PHP-GTK en el que puedes ver la programaci?n de 6 cadenas de television distintas.

Requiere PHP-GTK (gtk.php.net)

<?php

/*****************************************
** Adaptac??n del codigo de Aeoris para
** sacar la programaci?n a GTK.
** Basicamente puedes ver la programacion
** de 6 cadenas:
** TVE1, Telemadrid, Antena3, Canalsur,
** Tele5 y Canalplus.
**
** Creado por xlony (xlony.gfdez@gmail.com)
*****************************************/

//cargamos la dll:
dl(stristr (PHP_OS, "WIN") ? "php_gtk.dll" : "php_gtk.so");

//creamos la ventana:
$window=&new GtkWindow(GTK_WINDOW_DIALOG);
$window->set_title("Programaci?n");
$window->set_position(GTK_WIN_POS_CENTER);
$window->connect_object("destroy",array("gtk","main_quit"));
$window->set_border_width(3);
$window->set_policy(false,false,false);

//creamos la tabla
$table=&new GtkTable(3,4);
$table->set_row_spacings(5);
$table->set_col_spacings(5);

//ponemos unas palabritas antes del GtkEntry:
$label=&new GtkLabel("Cadena:");

//hacemos el GtkEntry:
$entry=&new GtkEntry();

//hacemos el GtkText:
$text=&new GtkText();
$text->set_usize(600,300);
$text->set_word_wrap(true);

//hacemos los botones:
$tve1=&new GtkButton("TVE 1");
$tve1->connect_object("clicked","ver","TVE1",$text);
$madrid=&new GtkButton("Telemadrid");
$madrid->connect_object("clicked","ver","TVAM",$text);
$antena3=&new GtkButton("Antena 3");
$antena3->connect_object("clicked","ver","antena 3",$text);
$canalsur=&new GtkButton("Canal Sur");
$canalsur->connect_object("clicked","ver","Canal Sur",$text);
$tele5=&new GtkButton("Tele 5");
$tele5->connect_object("clicked","ver","tele 5",$text);
$canalplus=&new GtkButton("Canal +");
$canalplus->connect_object("clicked","ver","Canal Plus",$text);

//hacemos la scrollbar:
$scroll=&new GtkVScrollbar($text->vadj);

//organizamos el programa:
$table->attach($tve1,0,1,0,1);
$table->attach($madrid,1,2,0,1);
$table->attach($canalsur,2,3,0,1);
$table->attach($antena3,0,1,3,4);
$table->attach($tele5,1,2,3,4);
$table->attach($canalplus,2,3,3,4);
$table->attach($text,0,3,1,2);
$table->attach($scroll,3,4,1,2);

//a?adimos a la window la table:
$window->add($table);

//imprimimos todo:
$window->show_all();
$window->show();

Gtk::main();

//funcion ver:
function ver($cadena,$GtkText)
{
 if($url=@file("http://www.teletexto.com/Categorias/Programacio
nTV/subcategoria/General/default.asp?p=n&c=".urlencode($cadena)))
 {
 foreach($url as $line)
 {
 $line=strip_tags(trim($line));
 if(!empty($line)) $a[]=$line;
 }
 $a=array_slice($a,50,array_search('TVE2',$a)-1);
 $a=str_replace(" ? TVE2 Antena 3 Tele 5 Ca
nal + Autonom. Digital + ","",implode(" ",$a));
 $a=str_replace(" ? TVE2 Antena 3 Tele
 5 Canal + Autonom. Digital + ","",$a);
 $a=str_replace(" ","\n",html_entity_decode($a));
 $GtkText->delete_text(0,$GtkText->get_length());
 $GtkText->freeze();
 $GtkText->insert(null,null,null,$a);
 $GtkText->thaw();
 }
}
?>