Si quiero volver a la tabla para pinchar en otro enlace, simplemente pulso el botón Esc y se sale.
Sé que ésto puede lograrse con ...
-
- Publicidad
Fecha actual 2025-02-22 18:24 @808
News of Web
Site map of Web » Foro : Web
Todo lo relacionado con el desarrollo Web con Perl: desde CGI hasta MojoliciousMostrar imágenes flotantes al dar clic
Pues quiero mostrar una tabla con unos enlaces y quiero que al darle click a éstos se expanda una ventana (sin necesidad de redirigirme a otra URL) y entonces en esa ventana estará la imagen que deseo que se muestre en el navegador. Vamos, cómo lo tienen muchas webs.
Si quiero volver a la tabla para pinchar en otro enlace, simplemente pulso el botón Esc y se sale.
Sé que ésto puede lograrse con ...
Si quiero volver a la tabla para pinchar en otro enlace, simplemente pulso el botón Esc y se sale.
Sé que ésto puede lograrse con ...
Read more : Mostrar imágenes flotantes al dar clic | Vistas : 4399 | Respuestas : 2
Cómo hacer una petición REST con Mechanize
Resulta que tengo que conectarme al API de Windows Live, y necesito hacer una petición REST tal como dicen aquí:
POST https://login.live.com/oauth20_token.srf
Content-type: application/x-www-form-urlencoded
client_id=0005555555E1700&redirect_uri=http%3A%2F%2Fwww.contoso.com%2Fcallback.htm&client_secret=MdIepdjdfggd4sy8kzmHkU2VEKCLLo&code=2bd12503-7e88-bfe7-c5c7-82274a740ff&grant_type=authorization_code
Honestamente no sé si lo que hice está bien pero en algún momento me funcionó:
$mech->add_header( Encoding => 'application/x-www-form-urlencoded' );
$mech->post(
'https://login.live.com/oauth20_token.srf',
#$form
Content => 'client_id=00000000440D53FB&redirect_uri=http://yakane.krebox.com/index.pl?mode=login&client_secret=pFZtOG42WCNiDlg5OkFWQGs56h0ItKD&code='.$self->session->param('wl_token').'&grant_type=authorization_code'
);
my $content = $mech->content();
my $data = $self->dec_json($content);
pero ahora que lo ejecuto ...
POST https://login.live.com/oauth20_token.srf
Content-type: application/x-www-form-urlencoded
client_id=0005555555E1700&redirect_uri=http%3A%2F%2Fwww.contoso.com%2Fcallback.htm&client_secret=MdIepdjdfggd4sy8kzmHkU2VEKCLLo&code=2bd12503-7e88-bfe7-c5c7-82274a740ff&grant_type=authorization_code
Honestamente no sé si lo que hice está bien pero en algún momento me funcionó:
$mech->add_header( Encoding => 'application/x-www-form-urlencoded' );
$mech->post(
'https://login.live.com/oauth20_token.srf',
#$form
Content => 'client_id=00000000440D53FB&redirect_uri=http://yakane.krebox.com/index.pl?mode=login&client_secret=pFZtOG42WCNiDlg5OkFWQGs56h0ItKD&code='.$self->session->param('wl_token').'&grant_type=authorization_code'
);
my $content = $mech->content();
my $data = $self->dec_json($content);
pero ahora que lo ejecuto ...
Read more : Cómo hacer una petición REST con Mechanize | Vistas : 1661 | Respuestas : 2
Generador de estadísticas
Tengo el propósito de levantar un script donde un usuario pueda consultar vía web un gráfico estadístico respecto de la cantidad de reclamos que se hicieron entre un periodo (en base a una fecha inicio y otra fin)
y obtener algo como esto:
Y lo que tengo es lo siguiente:
#!/usr/bin/perl -wT
#estadisticas.pl
use strict;
use CGI qw/:standard/;
# en caso de errores
use CGI::Carp qw/fatalsToBrowser/;
# hacemos uso de plantillas
use ...
y obtener algo como esto:
Y lo que tengo es lo siguiente:
#!/usr/bin/perl -wT
#estadisticas.pl
use strict;
use CGI qw/:standard/;
# en caso de errores
use CGI::Carp qw/fatalsToBrowser/;
# hacemos uso de plantillas
use ...
Read more : Generador de estadísticas | Vistas : 1742 | Respuestas : 1
Premature end en script sencillo
Tengo problemas como con este sencillo script.
[[ (8)Exec format error: exec of '/usr/lib/cgi-bin/hello.pl' failed
Premature end of script headers: hello.pl
#!/usr/bin/perl -w
use CGI qw/:all/;
use CGI::Carp qw/fatalsToBrowser/;
use HTML::Template;
# open the html template
my $template = HTML::Template->new(filename => '/home/reLlene/tmpls/documento.tmpl');
# fill in some parameters
$template->param(HOME => $ENV{HOME});
$template->param(PATH => $ENV{PATH});
print "Content-type: ...
[[ (8)Exec format error: exec of '/usr/lib/cgi-bin/hello.pl' failed
Premature end of script headers: hello.pl
#!/usr/bin/perl -w
use CGI qw/:all/;
use CGI::Carp qw/fatalsToBrowser/;
use HTML::Template;
# open the html template
my $template = HTML::Template->new(filename => '/home/reLlene/tmpls/documento.tmpl');
# fill in some parameters
$template->param(HOME => $ENV{HOME});
$template->param(PATH => $ENV{PATH});
print "Content-type: ...
Read more : Premature end en script sencillo | Vistas : 2586 | Respuestas : 6
No sale bien la cabecera HTTP
Estoy trabajando localmente en entorno Windows, Perl y Apache, probando el módulo CGI::Application y Template-Toolkit.
He intentado hacer los ejemplos y tutoriales que presenta CGI::Application pero me tira un error de cabecera en forma permanente:
Mensaje de error:
malformed header from script 'main.pl': Bad header: <head>
main.pl se compone de:
my $PRIVATE_HOME_DIR;
BEGIN { $PRIVATE_HOME_DIR = '../../MySitePrivate'; }
use strict;
use lib $PRIVATE_HOME_DIR.'/MyApp';
use CGI::Carp qw(fatalsToBrowser);
use MyMain;
MyMain->new(
TMPL_PATH => $PRIVATE_HOME_DIR.'/templates'
,-config_file ...
He intentado hacer los ejemplos y tutoriales que presenta CGI::Application pero me tira un error de cabecera en forma permanente:
Mensaje de error:
malformed header from script 'main.pl': Bad header: <head>
main.pl se compone de:
my $PRIVATE_HOME_DIR;
BEGIN { $PRIVATE_HOME_DIR = '../../MySitePrivate'; }
use strict;
use lib $PRIVATE_HOME_DIR.'/MyApp';
use CGI::Carp qw(fatalsToBrowser);
use MyMain;
MyMain->new(
TMPL_PATH => $PRIVATE_HOME_DIR.'/templates'
,-config_file ...
Read more : No sale bien la cabecera HTTP | Vistas : 2625 | Respuestas : 7
Posible error en consulta
Tengo este código:
my $sq = "
SELECT
usuario, contador_emails, adquisicion,
nombres, email, tipo, telefonos, activo, numero_campana,
contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
estado
FROM interesado_temp
WHERE
email ='" . $emails . "'";
$interesado = $dbh->selectrow_hashref( $sq )
or die "Error Al buscar interesado por email " . $sq . $dbh->errstr();
y esa vuelta, me retorna el siguiente error:
<center><img src='http://kreatibox.com/images/logo.png'><br><br><br>
<div style=' width:80%; height:90px; background-color:#FFF;border-style:solid;border-size:1px; border-color:#FF0000'><br><b>La aplicacion tiene error:</b><br> Error al buscar interesado por ...
my $sq = "
SELECT
usuario, contador_emails, adquisicion,
nombres, email, tipo, telefonos, activo, numero_campana,
contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
estado
FROM interesado_temp
WHERE
email ='" . $emails . "'";
$interesado = $dbh->selectrow_hashref( $sq )
or die "Error Al buscar interesado por email " . $sq . $dbh->errstr();
y esa vuelta, me retorna el siguiente error:
<center><img src='http://kreatibox.com/images/logo.png'><br><br><br>
<div style=' width:80%; height:90px; background-color:#FFF;border-style:solid;border-size:1px; border-color:#FF0000'><br><b>La aplicacion tiene error:</b><br> Error al buscar interesado por ...
Read more : Posible error en consulta | Vistas : 2155 | Respuestas : 6
Comprobar el uso de fastcgi
Tengo este código y lo subí a mi hosting pero, ¿cómo puedo saber si de verdad está corriendo con el fastcgi o mod_fastcgi o, bueno, no sé cómo sea...
La URL es:
http://kreatibox.com/index3.cgi
y el código que tiene es:
use CGI::Fast qw(:standard);
$COUNTER = 0;
while (new CGI::Fast) {
print header;
print start_html("Fast CGI Rocks");
print
h1("Fast CGI Rocks"),
"Invocation number ",b($COUNTER++),
" PID ",b($$),".",
hr;
print ...
La URL es:
http://kreatibox.com/index3.cgi
y el código que tiene es:
use CGI::Fast qw(:standard);
$COUNTER = 0;
while (new CGI::Fast) {
print header;
print start_html("Fast CGI Rocks");
h1("Fast CGI Rocks"),
"Invocation number ",b($COUNTER++),
" PID ",b($$),".",
hr;
print ...
Read more : Comprobar el uso de fastcgi | Vistas : 2085 | Respuestas : 4
Cómo insertar imágenes GD con HTTP::Server::Simple
Hola, me gustaría saber cómo insertar imágenes desde el disco.
En concreto lo que quiero es que al ingresar a la página con el módulo GD crear la imagen, luego mostrarla en la web. ¿Es posible con el módulo HTTP::Server::Simple? De nos ser así, ¿es posible con otro módulo o método?
Sigo el ejemplo para crear el servidor, mostraré las subrutinas en cuestión solamente, evito también crear una imagen compleja para evitar un exceso de ...
En concreto lo que quiero es que al ingresar a la página con el módulo GD crear la imagen, luego mostrarla en la web. ¿Es posible con el módulo HTTP::Server::Simple? De nos ser así, ¿es posible con otro módulo o método?
Sigo el ejemplo para crear el servidor, mostraré las subrutinas en cuestión solamente, evito también crear una imagen compleja para evitar un exceso de ...
Read more : Cómo insertar imágenes GD con HTTP::Server::Simple | Vistas : 3968 | Respuestas : 9
Sesiones
Hola, explorer.
He intentado usar las sesiones pero pierdo la autenticación.
Dibujo la forma para solicitar el registro, autentico y, excelente, pero vuelvo a seleccionar la opción para registrar y vuelve a solicitar el registro.
El script lo inicializo de la siguiente manera:
use strict;
use warnings;
use diagnostics;
use DBI;
use Switch;
use CGI::Session;
CGI::Session->name("SID");
use CGI ':standard';
use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
###---CREAMOS EL OBJETO CGI::Session---###
my $cgi = CGI->new();
my $session = ...
He intentado usar las sesiones pero pierdo la autenticación.
Dibujo la forma para solicitar el registro, autentico y, excelente, pero vuelvo a seleccionar la opción para registrar y vuelve a solicitar el registro.
El script lo inicializo de la siguiente manera:
use strict;
use warnings;
use diagnostics;
use DBI;
use Switch;
use CGI::Session;
CGI::Session->name("SID");
use CGI ':standard';
use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
###---CREAMOS EL OBJETO CGI::Session---###
my $cgi = CGI->new();
my $session = ...
Read more : Sesiones | Vistas : 1417 | Respuestas : 1
Perl para la Web
Agradecería si me pudiesen sugerir qué módulos utilizar, cuáles son los más propicios para lo siguiente:
Tengo varios sistemas usando CGI, con HTML embebido dentro del propio código Perl, cosa que me gustaría cambiar. Es decir, independizar código HTML del código Perl. ¿Qué módulos serían los más sencillos, prolijos y prácticos a utilizar?
Gracias.
Tengo varios sistemas usando CGI, con HTML embebido dentro del propio código Perl, cosa que me gustaría cambiar. Es decir, independizar código HTML del código Perl. ¿Qué módulos serían los más sencillos, prolijos y prácticos a utilizar?
Gracias.
Read more : Perl para la Web | Vistas : 1638 | Respuestas : 2
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981