revolucion

This commit is contained in:
mynah
2019-03-14 04:12:19 -06:00
parent 26523cdca2
commit 58586d81bd
3 changed files with 10 additions and 4 deletions

View File

@@ -90,7 +90,13 @@ sub podcast_infoHash{
sub months { return _read("select nombre as name, id from mes;")};
sub events { return _read($data_path->child("/admin/event/qEprev.q")->slurp)}
sub eventa { return shift @{_read($data_path->child("/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/")] }
sub eimgList{
my $dp = path('public/home/cal/img')->make_path;
return [ map{ $_->basename} grep{/(jpg|png)$/i}@{$dp->list} ];
}
#==============================================================================
# Write vdg user ==============================================================
sub contact{