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 05:07:04 +00:00
parent dad034eed3
commit 96764c0847
2 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Dojo/Controller/Home.pm
View File

@@ -2,7 +2,6 @@ package Dojo::Controller::Home;
use Mojo::Base 'Mojolicious::Controller'; use Mojo::Base 'Mojolicious::Controller';
use Mojo::Template; use Mojo::Template;
use Dojo::Support qw{ log dmph merge_hash load_module get_names}; use Dojo::Support qw{ log dmph merge_hash load_module get_names};
use Dojo::Conf;
sub tst{ sub tst{
my $c=shift; my $c=shift;
# $c->stash( merge_hash( # $c->stash( merge_hash(
@@ -60,6 +59,12 @@ sub tst{
my $c = shift; my $c = shift;
if ($c->param("mup")){ if ($c->param("mup")){
$c->flash(mname => $c->param("mname")); $c->flash(mname => $c->param("mname"));
$c->dbv->contact(
$c->param("mname"),
$c->param("mail"),
$c->match->stack->[-1]{action},
$c->param("msg")
);
$c->redirect_to('contact2'); $c->redirect_to('contact2');
}else{ }else{
$c->stash((load_module("home/contact"))[0]); $c->stash((load_module("home/contact"))[0]);

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

@@ -88,6 +88,13 @@ sub new { bless {}, shift };
sub eventa { return shift @{_read(path("public/home/admin/event/json/qEvent.q")->slurp,pop)}} sub eventa { return shift @{_read(path("public/home/admin/event/json/qEvent.q")->slurp,pop)}}
sub eimgList{ return [get_names("public/home/cal/img/")] } sub eimgList{ return [get_names("public/home/cal/img/")] }
#============================================================================== #==============================================================================
# Write vdg user ==============================================================
sub contact{
my $c=shift;
my $q="insert into entrada (nombre,correo,pagina,texto,fecha) values(?,?,?,?,now() )" ;
return _writemsg($q,@_);
}
#==============================================================================
# Write vdg admin ============================================================== # Write vdg admin ==============================================================
sub umod{ sub umod{
my $c=shift; my $c=shift;
@@ -159,6 +166,17 @@ sub _write{
return $h; return $h;
} }
sub _writemsg{
my ($q,@bind)=@_;
my (@empty);
my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::MSGDB.":".Dojo::Conf::MSGDB_H,Dojo::Conf::MSGDB_UW,Dojo::Conf::MSGDB_UWP);
return 0 unless($dbh);
my $h=$dbh->do($q,{ Slice => {} },@bind);
$dbh->disconnect();
log("db write: $h");
return $h;
}
sub load_md{ sub load_md{
return "" unless return "" unless
my $text = path(shift)->slurp; my $text = path(shift)->slurp;