PerlBrowser 4.5

#!/usr/bin/env perl

#
# Instalar Gtk3 y Gtk3::WebKit por CPAN,para funcionar correctamente
# Programa de prueba para Tiempo de Tux <http://www.itimetux.com>
# Por Demianx864
# Eres libre de estudiar modificar y añadir nuevas cosas a el programa,que te diviertas :D
# Simple PerlBrowser 4.5
# Gracias al modulo WebKit <http://webkitgtk.org/>
#

use strict;
use feature ':5.14';
use Glib qw/TRUE FALSE/;
use Gtk3 -init;
binmode STDOUT, ":utf8";
use utf8;
use JSON;

my $json; # Definimos variable json

&json; # Llamamos rutina json

my $confP = decode_json($json); # Definimos variable que llama json

    # Variables que definen ajustes

        my $iniP = $confP->{'pantalla'}->{'inicio'}->[0];
        my $unscreen = $confP->{'pantalla'}->{'inicio'}->[1]; # Arrays

        use Gtk3::WebKit;      # Llamamos a webkit

        # Usar icono.xpm

        my $ventana = Gtk3::Window->new('toplevel'); # Definimos ventana principal
        my $icono = 'icon.xpm'; # Definimos icono
        if ( -e $icono ) { # Vemos si existe el icono
                $ventana->set_icon_from_file($icono); # Si es asi,se lo colomos a la ventana
        }

        # Parametros de la ventana

        my $titulo = "Simple Perl Browser"; # Titulo de la ventana
        $ventana->set_default_size(800, 600); # Tamaño por defecto
    $ventana->maximize(TRUE);  #  Maximizar al abrir
        $ventana->set_title($titulo);  # Colocamos titulo
        $ventana->set_border_width(2); # Añadimos bordes
        $ventana->$unscreen(); # No fullscreen por defecto
        $ventana->signal_connect(delete_event => \&salir); # Si recibe señal de X i a &salir
    my $inicio; # Ventana de configuracion de inicio

        # Opciones

        my $table = Gtk3::Grid->new; # Creamos tabla con Grid

    # Opciones nulas
    # Arrays multidimensionales

        my @entries = (
        [ "Opciones", undef, "_Opciones" ],
        ["Acerca de", 'gtk-about', "_Acerca de", '<control>B', "Acerca de", \&activate_action ],
        ["Configuracion", 'gtk-properties', "_Configuracion",'<control>S', "Configuracion", \&activate_action ],
        ["Salir", 'gtk-quit', "_Salir", '<control>Q', "Salir", \&activate_action ]
        );

    # Opciones cambiantes
    # Arrays multidimensionales

        my @toggle_entries = (
        ["Completa",undef, "_Pantalla Completa", undef,
        "Pantalla completa", \&activate_action, FALSE ],
        ["HideTitlebar", undef, "_Hide Titlebar", undef,
        "Hide Titlebar",  \&activate_action,FALSE]
        );

    # Las metemos en un grupo

        my $action_group = Gtk3::ActionGroup->new('AppWindowActions');
        $action_group->add_actions( \@entries, undef );
        $action_group->add_toggle_actions( \@toggle_entries, undef );

    # Creamos un UIManager y insertamos el grupo

        my $ui = Gtk3::UIManager->new();
        $ui->insert_action_group( $action_group, 0 );
        $ventana->add_accel_group( $ui->get_accel_group );
        my $ui_info = get_ui();
        $ui->add_ui_from_string( $ui_info, length($ui_info) );
        $table->attach( $ui->get_widget('/MenuBar'), 0, 0, 1, 1 );

        # Webkit

        my $uri = shift @ARGV || $iniP ; # Definimos url de variable $iniP
        my $ver = Gtk3::WebKit::WebView->new(); # Creamos WebView

        # Cargamos url

        &web();

        # Añadimos url a scrolls

        my $scrolls = Gtk3::ScrolledWindow->new(); # Creamos scrolled window
        $scrolls->set_policy ('automatic', 'automatic');
        $scrolls->add($ver); # Añadimos Webview

        ## Entrada

        my $entry = Gtk3::Entry->new;  # Entrada de url
        $entry->signal_connect( "activate" => \&entrada, undef ); # Desviamos entrada a &entrada
        my $entrycio = Gtk3::Entry->new; # Entrada de pagina de inicio
        $entry->set_icon_from_stock( 'secondary', 'gtk-apply' );
        $entry->signal_connect( 'icon-press' => \&entrada, undef );
        $entrycio->signal_connect( "activate" => \&confinicio, undef );

        # Botones

        # Creamos y labels

        my $brg = Gtk3::ToolButton->new_from_stock('gtk-quit');
        my $fresh = Gtk3::ToolButton->new_from_stock('gtk-refresh');
        my $frenar = Gtk3::ToolButton->new_from_stock('gtk-stop');
        my $batras = Gtk3::ToolButton->new_from_stock('gtk-go-back');
        my $belante = Gtk3::ToolButton->new_from_stock('gtk-go-forward');
        my $vermenos = Gtk3::ToolButton->new_from_stock('gtk-zoom-in');
        my $vermas = Gtk3::ToolButton->new_from_stock('gtk-zoom-out');
        my $label = Gtk3::Label->new("");
        my $spinner = Gtk3::Spinner->new();

    # Desviamos señales de botones a subrutinas

        $fresh->signal_connect ( "clicked" => \&recargar );
        $frenar->signal_connect ( "clicked" => \&parar );
        $batras->signal_connect( "clicked" => \&atras );
        $belante->signal_connect ( "clicked" => \&adelante );
        $vermenos->signal_connect ( "clicked" => \&zomin );
        $vermas->signal_connect ( "clicked" => \&zomout);

        # Frenar y recargar unificados

        my $botones = Gtk3::Notebook->new(); # Creamos Notebook
        $botones->set_show_tabs(FALSE);
        $botones->set_show_border(FALSE); # No mostramos bordes
        $botones->append_page($fresh); # Añadimos botones
        $botones->append_page($frenar);

        # Unimos todo

        # Caja horizontal

        my $hbox = Gtk3::Box->new("horizontal", 0);
        $hbox->pack_start($entry, TRUE,TRUE , 0);
        $hbox->pack_start($botones, FALSE,FALSE , 0);
        $hbox->pack_start($label, FALSE,FALSE , 5);
        $hbox->pack_start($spinner, FALSE,FALSE , 5);
        $hbox->pack_start($vermas, FALSE,FALSE , 0);
        $hbox->pack_start($vermenos, FALSE,FALSE , 0);
        $hbox->pack_start($batras, FALSE, FALSE, 0);
        $hbox->pack_start($belante, FALSE, FALSE, 0);
        $hbox->pack_start($table,FALSE, FALSE, 0);

        # Caja Vertical

        my $vbox = Gtk3::Box->new("vertical", 0);
        $vbox->pack_start($hbox, FALSE, FALSE, 0);
        $vbox->pack_start($scrolls, TRUE, TRUE,  0);

    # Añadimos cajas a ventana

        $ventana->add($vbox);

        # Lo mostramos

        $ventana->show_all();

Gtk3->main();

### Funciones :) ###

# Salir

sub salir {
Gtk3->main_quit; # Cerramos ventana
&opensettings(1,"unfullscreen"); # Cambiamos valores de conf.json
}

# Adelante

sub adelante{

$ver->go_forward; # Vamos para adelante

&cargar(); # Cambiamos Notebook

}

# Atras

sub atras{

$ver->go_back; # Vamos para atras

&cargar();

}

# Entrada URL

sub entrada{

&cargar();
&json; # Abrimos .json

my $motorb = $confP->{'pantalla'}->{'inicio'}->[2]; # Definimos el motor de busqueda

my $uri = $entry->get_text;  # Llamamos el texto ingresado en entry

if (substr($uri,0,7) eq "http://") { # Vemos si tiene http://
        $uri = $uri; # Si es asi,no cambiamos su valor
    }
    elsif(substr($uri,0,5) eq "https") {  # Vemos si tiene https
        $uri = $uri; # Si es asi no cambiamos si valor
    }
    elsif($uri =~ /\s/) { # Vemos si tiene espacios
    $uri = "$motorb" . "$uri";
    } # Si es asi,buscamos en el motor de busqueda
    elsif($uri =~ /[.]/) { # Vemos si tiene puntos sin espacios
    $uri = "http://" . $uri; # Si es asi,le añadimos http://
    }
    else { # Si es otra cosa,lo buscamos en el motor de busqueda
    $uri = "$motorb" . "$uri";
}
$ver->load_uri($uri); # Cargamos el url
$botones->set_current_page(1); # Cambiamos el boton de recargar
}

# Aumentar disminuir ZOOM

sub zomin { $ver->zoom_in } # Aumentamos el zoom

sub zomout { $ver->zoom_out } # Disminuimos el zoom

# Progreso

sub progreso{
&cargar();
my $ctitulo;
my $carga = $ver->get('progress'); # Llamos el progreso
$spinner->start(); # Iniciamos spiner

# Creamos bucle de verificacion

for ( $ctitulo < 100 ) { # Si aun no llega a 100 la carga,entramos al bucle
   my $ctitul = sprintf ("%2d%%", 100 * $carga); # Recortamos la carga
   $label->set_markup("$ctitul");  # Lo mostramos en un label
   if ($ctitul == 100) { # Si ya llego a 100
   $botones->set_current_page(0); # Cambiamos el notebook
   $spinner->stop(); # Detenemos spiner

                }
        }
}

# Titulo

sub titulo {
my $titul2 = $ver->get_title(); # Llamos el titulo de la web
my $url_sitio = $ver->get_uri(); # Llamamos el nombre de la url
if ($titul2){ # Si hay tal
$ventana->set_title( $titul2 );} # Se lo ponemos de nombre a la ventana
$entry->set_text("$url_sitio"); # Le ponemos el nombre de la url al entry
}

# Recargar

sub recargar {
&cargar();
$ver->reload; # Recargamos webview
}

# Detener

sub parar {
$ver->stop_loading;  # Detenemos carga de webview
$botones->set_current_page(0);
}

# Cargar

sub cargar { $botones->set_current_page(1); } # Cambiamos notebook

# Acerca de

sub acerca_de {

# Creamos Texto

my $texto =<<EOF;

SimplePerlBrowser

Navegador Web escrito en Perl

Por: Tiempo de Tux

Version: 4.5

EOF

# Lo mostramos en dialogo

my $dialog = Gtk3::MessageDialog->new(
$ventana,'destroy-with-parent', 'info', 'close', $texto);
$dialog->signal_connect( response => sub { $dialog->destroy } );
$dialog->show();
}

# Cargar pagina en webview

sub web {
$ver->load_uri( $uri ); # Cargamos url
$ver->signal_connect( 'notify::progress' => \&progreso, undef ); # Mandamos señales
$ver->signal_connect( 'notify::title' => \&titulo, undef ); # A subrutinas
}

# Activate acion (opciones)

sub activate_action {
my $action = shift;
my $name = $action->get_name; # Llamos el nombre de lo cliqueado

# Con estructiras selectivas,decidimos que hacer con ellos

if ( $name eq 'Completa' ) {
        &pantallacompleta;
}elsif ( $name eq 'HideTitlebar'){
        my $value = $ventana->get_hide_titlebar_when_maximized();
    if ( $value == 0 ) {
    $ventana->set_hide_titlebar_when_maximized (TRUE);
    }
    else{ $ventana->set_hide_titlebar_when_maximized (FALSE); }
    }
elsif ( $name eq 'Acerca de'){ &acerca_de(); }
elsif ( $name eq 'Configuracion'){ &buscador_actual(); }
elsif ( $name eq 'Salir'){ &salir(); }
}

# Ventana de configurar pagina de inicio

# Checar motor de busqueda actual

sub buscador_actual {

&json; # Lo abrimos cada que vez que se necesite

my $data; # Definimos una variable que llenaremos mas adelante

my $buscador_actual = $confP->{'pantalla'}->{'inicio'}->[2]; # Checamos el motor de busqueda

# Buscamos el motor

if ( $buscador_actual =~ m/google/ ) {

$data = "Google"; # Y llenamos la variable con el motor

} elsif ( $buscador_actual =~ m/bing/) {

$data = "Bing";

} elsif ( $buscador_actual =~ m/duck/) {

$data = "Duckduckgo";

} else {

$data = "No tienes configurado JSON";

}

&inicioconf($data); # Vamos a la pantalla de configuracion y le pasamos el motor

}

sub inicioconf {

    my ($motor_actual) = @_; # Recibimos el motor

        $inicio = Gtk3::Window->new('toplevel'); # Igual que la grande

        # Ventana

        $inicio->set_default_size(280, 100);
        $inicio->set_title("Pagina de inicio");
        $inicio->set_resizable(FALSE);
        $inicio->set_border_width(5);
        $inicio->set_position("center");
        $inicio->set_decorated(FALSE);
        $inicio->signal_connect (delete_event => sub {$inicio->destroy });

        # Dentro del box

        $entrycio->set_icon_from_stock( 'secondary', 'gtk-apply' );
        my $config = Gtk3::RadioButton->new_with_label_from_widget(undef, "Actual: $motor_actual");
        my $config0 = Gtk3::RadioButton->new_with_label_from_widget($config, "Google");
        my $config1 = Gtk3::RadioButton->new_with_label_from_widget($config, "Duckduckgo");
    my $config2 = Gtk3::RadioButton->new_with_label_from_widget($config, "Bing");
        my $separador0 = Gtk3::Separator->new('horizontal');
        my $separador1 = Gtk3::Separator->new('horizontal');
        my $separador2 = Gtk3::Separator->new('horizontal');
        my $labl0 = Gtk3::Label->new("Opciones");
        my $labl1 = Gtk3::Label->new("http://");
        my $labl2 = Gtk3::Label->new("Pagina de inicio");
        my $labl3 = Gtk3::Label->new("Buscador");
        my $ok = Gtk3::Button->new_with_label("Aceptar");
        my $cerrar = Gtk3::Button->new_with_label("Cerrar");

    # Señales

        $entrycio->signal_connect( 'icon-press' => \&confinicio );
    $config0->signal_connect (toggled => \&confnav, "Google"); #
    $config1->signal_connect (toggled => \&confnav, "Duck");   # Cuando recibamos un motor vamos a
    $config2->signal_connect (toggled => \&confnav, "Bing");   # confnav
    $cerrar->signal_connect ( "clicked" => sub {$inicio->destroy });
    $ok->signal_connect ( "clicked" => sub {$inicio->destroy });

        &seticio; # Colocamos el motor nuevo

        my $hcio = Gtk3::Box->new("horizontal", 0);
        $hcio->pack_start($labl1, FALSE, FALSE, 0);
        $hcio->pack_start($entrycio, FALSE, FALSE, 0);

        my $ayc = Gtk3::Box->new("horizontal", 0);
        $ayc->pack_start($ok, FALSE, FALSE, 30);
        $ayc->pack_start($cerrar, FALSE, FALSE, 30);

        my $vcio = Gtk3::Box->new("vertical", 2);
        $vcio->pack_start($labl0, FALSE, FALSE, 0);
        $vcio->pack_start($separador0, FALSE, FALSE, 0);
        $vcio->pack_start($labl2, FALSE, FALSE, 0);
        $vcio->pack_start($hcio, FALSE, FALSE, 2);
        $vcio->pack_start($separador1, FALSE, FALSE, 5);
        $vcio->pack_start($labl3, FALSE, FALSE, 5);
        $vcio->pack_start($config, FALSE, FALSE, 5);
        $vcio->pack_start($config0, FALSE, FALSE, 5);
        $vcio->pack_start($config1, FALSE, FALSE, 5);
        $vcio->pack_start($config2, FALSE, FALSE, 5);
        $vcio->pack_start($separador2, FALSE, FALSE, 5);
        $vcio->pack_start($ayc, FALSE, FALSE, 5);

        $inicio->add($vcio);

        # Lo mostramos

        $inicio->show_all();
}

# Menu

sub get_ui { # Creamos menu
    return "<ui>
        <menubar name='MenuBar'>
   <menu action='Opciones'>
          <menuitem action='Completa'/>
          <menuitem action='HideTitlebar'/>
          <menuitem action='Configuracion'/>
          <menuitem action='Acerca de'/>
          <menuitem action='Salir'/>
   </menu>
 </menubar>
</ui>";
}

# Configuracion de pagina de inicio

sub confinicio {

my $paginicio = $entrycio->get_text; # Llamos texto ingresado

if (substr($paginicio,0,7) eq 'http://') { # Si no tiene http://

    &opensettings(0,$paginicio); # Si tiene se lo mandamos a la configuracion

}

# Si no encontro http:// pasamos a elsif

elsif ($paginicio ne "" ) { # Vemos si se ha ingresado,algo

# Si no esta vacio

&opensettings(0,"http://" . $paginicio);

# Mandamos esta configuracion a JSON ^

}

}

# Pantalla completa

sub pantallacompleta {

my $fuu = substr($unscreen,0,2); # Recortamos variable

if ($fuu eq "un") { # vemos si en conf.json esta unfull la pantalla

&opensettings(1,"fullscreen"); # si es asi lo cambiamos

}
elsif ( $fuu eq "fu") { # vemos si en conf.json esta full la pantalla

&opensettings(1,"unfullscreen"); # si es asi lo cambiamos

}

else {

say "No tienes configurado\nconf.json\n"; # Si no hay archivo,o esta mal configurado

}

$ventana->$unscreen(); # Cargamos ajustes

}

# JSON

sub json {

{
  local $/; # Para usar archivos locales
  open my $cf, "<", "conf.json"; # Abrimos la configuracion
  $json = <$cf>; # Definimos $json con el filehandle
  close $cf; # Cerramos conf.json
}

}

# Colocar uri de pagina de inicio en el entry de confinicio

sub seticio {

my @text = split(m/^http[:]\/\//,$iniP); # Le quitamos el http://

$entrycio->set_text($text[1]);

}

# Configurar motor de busqueda

sub confnav {

my ($widget,$buscador) = @_;

# Motores de busqueda

my @motores = (

"http://www.bing.com/search?q=",

"https://duckduckgo.com/?q=",

"http://www.google.com/search?q="

);

if ($buscador eq 'Bing') {
    &opensettings(2,$motores[0]);
}
elsif($buscador eq 'Duck' ) {
    &opensettings(2,$motores[1]);
}
elsif ($buscador eq 'Google' ){
    &opensettings(2,$motores[2]);
}

}

# Sub rutina de ajustes

sub opensettings {

my ($number,$setting) = @_; # Pasamos lo valores pasados del codigo principal a variables locales

$unscreen = $confP->{'pantalla'}->{'inicio'}->[$number] = "$setting";

# Configuramossegun las variables locales ^

open my $cfn, ">", "conf.json"; # Abrimos conf.json
print $cfn encode_json($confP); # Escribimos configuracion
close $cfn; # Cerramos

}