From 2938f318d802af373111fd870489ac262d85e366 Mon Sep 17 00:00:00 2001 From: mynah Date: Thu, 16 Aug 2018 03:18:46 +0000 Subject: [PATCH] links and filereadutf8 --- dojo.conf | 4 +++- lib/Dojo/Model/Users.pm | 6 +++--- lib/Dojo/Model/Vuelo.pm | 13 +++++++------ templates/home/htmlSide.html.ep | 14 +++++++------- 4 files changed, 20 insertions(+), 17 deletions(-) diff --git a/dojo.conf b/dojo.conf index 4141a2b..f871e9c 100644 --- a/dojo.conf +++ b/dojo.conf @@ -2,7 +2,9 @@ perldoc => 1, secrets => ['b8a9e54090ccb580b6203e53a9f9199af38ce538'], path => 'public', - + hypnotoad => { + listen => [ 'http://127.0.0.1:3000/' ], + }, #Chat ======================================================= chat_addr => "https://chat.vuelodegrulla.com", diff --git a/lib/Dojo/Model/Users.pm b/lib/Dojo/Model/Users.pm index e22ec04..ab105f6 100644 --- a/lib/Dojo/Model/Users.pm +++ b/lib/Dojo/Model/Users.pm @@ -37,7 +37,7 @@ sub _read{ my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::GRULLADB.":".Dojo::Conf::GRULLADB_H,Dojo::Conf::GRULLADB_UR,Dojo::Conf::GRULLADB_URP,{mysql_enable_utf8 => 1}); return \@empty unless($dbh); #$dbh->do(qq{SET NAMES 'utf8'}); - my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind); + my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind)//"error"; #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2)) $dbh->disconnect(); return $h; @@ -47,9 +47,9 @@ sub _read{ sub _write{ my ($q,@bind)=@_; my (@empty); - my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::GRULLADB.":".Dojo::Conf::GRULLADB_H,Dojo::Conf::GRULLADB_UW,Dojo::Conf::GRULLADB_UWP); + my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::GRULLADB.":".Dojo::Conf::GRULLADB_H,Dojo::Conf::GRULLADB_UW,Dojo::Conf::GRULLADB_UWP,{mysql_enable_utf8 => 1}); return 0 unless($dbh); - my $h=$dbh->do($q,{ Slice => {} },@bind); + my $h=$dbh->do($q,{ Slice => {} },@bind)//"error"; $dbh->disconnect(); # log("db write:". $h ); return $h; diff --git a/lib/Dojo/Model/Vuelo.pm b/lib/Dojo/Model/Vuelo.pm index 2704508..d9020f7 100644 --- a/lib/Dojo/Model/Vuelo.pm +++ b/lib/Dojo/Model/Vuelo.pm @@ -47,7 +47,8 @@ sub new { bless {}, shift }; return _read (path("public/home/tv/qTable.q")->slurp); #name,order,group } sub podcast_txt{ - return path("public/home/podcast/text.txt")->slurp; + # return "Hemos desarrollado con mucho cariño ejercicios gratuitos y descargables que pueden ser practicados por cualquier persona aún antes de asistir a uno de los cursos de instrucción."; + return decode_utf8(path("public/home/podcast/text.txt")->slurp); } sub podcast_infoHash{ return decode_json path("public/home/podcast/jsonPod.json")->slurp; @@ -62,7 +63,7 @@ sub new { bless {}, shift }; my $q= path("public/home/admin/mensajes/qEntries.q")->slurp; my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::MSGDB.":".Dojo::Conf::MSGDB_H,Dojo::Conf::MSGDB_UR,Dojo::Conf::MSGDB_URP,{mysql_enable_utf8 => 1}); return \@empty unless($dbh); - my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind); + my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind)//"error"; #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2)) $dbh->disconnect(); return $h; @@ -74,7 +75,7 @@ sub new { bless {}, shift }; my $q= path("public/home/admin/mensajes/json/qGetInfo.q")->slurp; my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::MSGDB.":".Dojo::Conf::MSGDB_H,Dojo::Conf::MSGDB_UR,Dojo::Conf::MSGDB_URP,{mysql_enable_utf8 => 1}); return \@empty unless($dbh); - my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind); + my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind)//\@empty; #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2)) $dbh->disconnect(); return shift @$h; @@ -149,7 +150,7 @@ sub _read{ my @empty; my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::VUELODB.":".Dojo::Conf::VUELODB_H,Dojo::Conf::VUELODB_UR,Dojo::Conf::VUELODB_URP, {mysql_enable_utf8 => 1}); return \@empty unless($dbh); - my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind); + my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind)//"error"; $dbh->disconnect(); #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2)) return $h; @@ -160,7 +161,7 @@ sub _write{ my (@empty); my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::VUELODB.":".Dojo::Conf::VUELODB_H,Dojo::Conf::VUELODB_UW,Dojo::Conf::VUELODB_UWP,{mysql_enable_utf8 => 1} ); return 0 unless($dbh); - my $h=$dbh->do($q,{ Slice => {} },@bind); + my $h=$dbh->do($q,{ Slice => {} },@bind)//"error"; $dbh->disconnect(); log("db write: $h"); return $h; @@ -171,7 +172,7 @@ sub _writemsg{ my (@empty); my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::MSGDB.":".Dojo::Conf::MSGDB_H,Dojo::Conf::MSGDB_UW,Dojo::Conf::MSGDB_UWP,{mysql_enable_utf8 => 1}); return 0 unless($dbh); - my $h=$dbh->do($q,{ Slice => {} },@bind); + my $h=$dbh->do($q,{ Slice => {} },@bind)//"error"; $dbh->disconnect(); log("db write: $h"); return $h; diff --git a/templates/home/htmlSide.html.ep b/templates/home/htmlSide.html.ep index 0a83066..b680007 100644 --- a/templates/home/htmlSide.html.ep +++ b/templates/home/htmlSide.html.ep @@ -2,13 +2,13 @@