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

updatedb

Browse Source
This commit is contained in:
mynah
2018-07-18 04:28:26 -05:00
parent 0a7d71e21c
commit 4f0061cd7d
61 changed files with 1396 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -14,31 +14,36 @@ sub new { bless {}, shift };
sub mod{
my $q="select nombre,contenido from casa;";
return \@{_read($q,$vuelo)};
return \@{_read($q)};
}
sub umod{
my $c=shift;
my $q="update casa set contenido = ? where nombre = 'mod' ;";
return _write($q,@_);
}
sub pang{
my ($c,$q)=@_;
return {map { basename($_,".md") => load_md("public/$_")}@{$q->{md}}};
}
sub cal {
my $block=_read (path("public/home/cal/q1Block.q")->slurp,$vuelo);
my $data=_read (path("public/home/cal/q3Event.q")->slurp,$vuelo);
my $block=_read (path("public/home/cal/q1Block.q")->slurp);
my $data=_read (path("public/home/cal/q3Event.q")->slurp);
return ($data,$block);
}
sub event{
my ($self,$id)=@_;
return _read (path("public/home/event/qEvent.q")->slurp,$vuelo,$id);
return _read (path("public/home/event/qEvent.q")->slurp,$id);
}
sub store{
return _read (path("public/home/store/qStore.q")->slurp,$vuelo);
return _read (path("public/home/store/qStore.q")->slurp);
}
sub tv{
my $series = _read (path("public/home/tv/qSeries.q")->slurp,$vuelo); #group,name
my $table = _read (path("public/home/tv/qTable.q")->slurp,$vuelo); #name,order,group
my $series = _read (path("public/home/tv/qSeries.q")->slurp); #group,name
my $table = _read (path("public/home/tv/qTable.q")->slurp); #name,order,group
return ($series,$table);
}
@@ -50,11 +55,11 @@ sub podcast{
sub radio{
my $q="select contenido as rmod from casa where nombre='rmod';";
return _read($q,$vuelo);
return _read($q);
}
sub _read{
my ($q,$d,@bind)=@_;
my ($q,@bind)=@_;
my (@empty,$arr);
my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::VUELODB.":".Dojo::Conf::VUELODB_H,Dojo::Conf::VUELODB_UR,Dojo::Conf::VUELODB_URP);
return \@empty unless($dbh);
@@ -64,6 +69,15 @@ sub _read{
$dbh->disconnect();
return $h;
}
sub _write{
my $q=shift;
my (@empty);
my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::VUELODB.":".Dojo::Conf::VUELODB_H,Dojo::Conf::VUELODB_UW,Dojo::Conf::VUELODB_UWP);
return 0 unless($dbh);
my $h=$dbh->do($q,{ Slice => {} },@_);
$dbh->disconnect();
return $h;
}
sub load_md{
return "" unless