#!/usr/bin/perl
use strict;
use Gtk2 -init;
use Gtk2::GladeXML;
use File::Temp qw(tempfile);

my($ventana, $main_window, $boton_salir, $resultado, $buscar, $etiqueta_a_buscar, $acerca, $guardar, $fh, $tempfile);
$ventana = Gtk2::GladeXML->new('/usr/share/gdrae/rae.glade');
#$ventana = Gtk2::GladeXML->new('glade/rae.glade');
$main_window = $ventana->get_widget('ventana_principal');
$boton_salir =  $ventana->get_widget('salir');
$resultado = $ventana->get_widget('resultado');
$buscar = $ventana->get_widget('buscar');
$etiqueta_a_buscar = $ventana->get_widget('etiqueta_buscar');
$acerca = $ventana->get_widget('acerca');
$guardar = $ventana->get_widget('guardar');
$ventana->signal_autoconnect_from_package('main');
$boton_salir->signal_connect(clicked => \&salir);
$buscar->signal_connect(clicked => \&buscar);

Gtk2->main;

sub salir {Gtk2->main_quit;}
sub boton_menu_quit {Gtk2->main_quit;}
sub on_salir2_activate {Gtk2->main_quit;}
sub on_acerca_de1_activate {$acerca->show_all;}
sub on_cerrar_about_clicked {$acerca->hide;}
sub on_ventana_principal_delete_event {Gtk2->main_quit;}
sub on_guardar2_activate {$guardar->show_all;}
sub buscar {
	my (@texto, $palabra);
	$palabra = $etiqueta_a_buscar->get_text();

	($fh, $tempfile) = tempfile();
	close($fh);

	system("lynx -dump --nolist \"http://buscon.rae.es/draeI/SrvltGUIBusUsual?LEMA=$palabra\" > $tempfile");
	open(RESULTADO, $tempfile) or die("No pude crear/abrir el archivo, el terminal devolvi $!");
	while(<RESULTADO>){
		push(@texto, $_);
	}
	close(RESULTADO);
	unlink($tempfile);
	$resultado->set_markup("@texto");
}
