revolucion
This commit is contained in:
@@ -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{
|
||||
|
||||
Reference in New Issue
Block a user