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

publish

Browse Source
This commit is contained in:
mynah
2018-08-15 07:59:04 +00:00
parent ec5686a905
commit ca4b987cef
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -60,7 +60,7 @@ sub new { bless {}, shift };
my ($self,@bind)=@_; my ($self,@bind)=@_;
my @empty; my @empty;
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); 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);
#((col1=>d1,col2=>d1),(col1=>d2,col2=>d2)) #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2))
@@ -72,7 +72,7 @@ sub new { bless {}, shift };
my ($c,@bind)=@_; my ($c,@bind)=@_;
my @empty; my @empty;
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); 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);
#((col1=>d1,col2=>d1),(col1=>d2,col2=>d2)) #((col1=>d1,col2=>d1),(col1=>d2,col2=>d2))
@@ -158,7 +158,7 @@ sub _read{
sub _write{ sub _write{
my ($q,@bind)=@_; my ($q,@bind)=@_;
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 ); 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);
$dbh->disconnect(); $dbh->disconnect();
@@ -169,7 +169,7 @@ sub _write{
sub _writemsg{ sub _writemsg{
my ($q,@bind)=@_; my ($q,@bind)=@_;
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); 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);
$dbh->disconnect(); $dbh->disconnect();