c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

links and filereadutf8

Browse Source
This commit is contained in:
mynah
2018-08-16 03:18:46 +00:00
parent ca4b987cef
commit 2938f318d8
4 changed files with 20 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
dojo.conf
View File

@@ -2,7 +2,9 @@
perldoc => 1, perldoc => 1,
secrets => ['b8a9e54090ccb580b6203e53a9f9199af38ce538'], secrets => ['b8a9e54090ccb580b6203e53a9f9199af38ce538'],
path => 'public', path => 'public',
hypnotoad => {
listen => [ 'http://127.0.0.1:3000/' ],
},
#Chat ======================================================= #Chat =======================================================
chat_addr => "https://chat.vuelodegrulla.com", chat_addr => "https://chat.vuelodegrulla.com",

6
lib/Dojo/Model/Users.pm
View File

@@ -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}); 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); return \@empty unless($dbh);
#$dbh->do(qq{SET NAMES 'utf8'}); #$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)) #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2))
$dbh->disconnect(); $dbh->disconnect();
return $h; return $h;
@@ -47,9 +47,9 @@ sub _read{
sub _write{ sub _write{
my ($q,@bind)=@_; my ($q,@bind)=@_;
my (@empty); 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); return 0 unless($dbh);
my $h=$dbh->do($q,{ Slice => {} },@bind); my $h=$dbh->do($q,{ Slice => {} },@bind)//"error";
$dbh->disconnect(); $dbh->disconnect();
# log("db write:". $h ); # log("db write:". $h );
return $h; return $h;

13
lib/Dojo/Model/Vuelo.pm
View File

@@ -47,7 +47,8 @@ sub new { bless {}, shift };
return _read (path("public/home/tv/qTable.q")->slurp); #name,order,group return _read (path("public/home/tv/qTable.q")->slurp); #name,order,group
} }
sub podcast_txt{ 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{ sub podcast_infoHash{
return decode_json path("public/home/podcast/jsonPod.json")->slurp; 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 $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}); 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); 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)) #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2))
$dbh->disconnect(); $dbh->disconnect();
return $h; return $h;
@@ -74,7 +75,7 @@ sub new { bless {}, shift };
my $q= path("public/home/admin/mensajes/json/qGetInfo.q")->slurp; 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}); 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); 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)) #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2))
$dbh->disconnect(); $dbh->disconnect();
return shift @$h; return shift @$h;
@@ -149,7 +150,7 @@ sub _read{
my @empty; 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}); 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); return \@empty unless($dbh);
my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind); my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind)//"error";
$dbh->disconnect(); $dbh->disconnect();
#((col1=>d1,col2=>d1),(col1=>d2,col2=>d2)) #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2))
return $h; return $h;
@@ -160,7 +161,7 @@ sub _write{
my (@empty); 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} ); 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); return 0 unless($dbh);
my $h=$dbh->do($q,{ Slice => {} },@bind); my $h=$dbh->do($q,{ Slice => {} },@bind)//"error";
$dbh->disconnect(); $dbh->disconnect();
log("db write: $h"); log("db write: $h");
return $h; return $h;
@@ -171,7 +172,7 @@ sub _writemsg{
my (@empty); 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}); 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); return 0 unless($dbh);
my $h=$dbh->do($q,{ Slice => {} },@bind); my $h=$dbh->do($q,{ Slice => {} },@bind)//"error";
$dbh->disconnect(); $dbh->disconnect();
log("db write: $h"); log("db write: $h");
return $h; return $h;

14
templates/home/htmlSide.html.ep
View File

@@ -2,13 +2,13 @@
<section id="saside" class="aside"> <section id="saside" class="aside">
<aside class="aside"> <aside class="aside">
<p id="pclose" class="close">Cerrar</p> <p id="pclose" class="close">Cerrar</p>
<a class="aside" href="pang"><p class="aside">Nuestra escuela</p></a> <a class="aside" href="/pang"><p class="aside">Nuestra escuela</p></a>
<a class="aside" href="cal"><p class="aside">Calendario</p></a> <a class="aside" href="/cal"><p class="aside">Calendario</p></a>
<a class="aside" href="contact"><p class="aside">Contacto</p></a> <a class="aside" href="/contact"><p class="aside">Contacto</p></a>
<a class="aside" href="store"><p class="aside">Tienda Virtual</p></a> <a class="aside" href="/store"><p class="aside">Tienda Virtual</p></a>
<a class="aside" href="tv"><p class="aside">Vuelo de Grulla .TV</p></a> <a class="aside" href="/tv"><p class="aside">Vuelo de Grulla .TV</p></a>
<a class="aside" href="radio"><p class="aside">Radio</p></a> <a class="aside" href="/radio"><p class="aside">Radio</p></a>
<a class="aside" href="pod"><p class="aside">Programas grabados</p></a> <a class="aside" href="/pod"><p class="aside">Programas grabados</p></a>
</aside> </aside>
</section> </section>