blob: fdb828435c373cf690b00d21878a748c5041c1a5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
class Crater::Gallery {
has IO $.directory is required;
has Str $!title;
submethod TWEAK() {
# Get title from file if exists.
my $title-file = $!directory.add(".crater/title");
$!title = $title-file.slurp.chomp if $title-file.f;
}
#| Accessor for $!title.
method title() { $!title }
method list(:@sub-dir) {
# This will be considered an attempt to attack. There is no
# reason to check '.' I belive.
die "[!!!] @sub-dir contains '..'/'.'" if @sub-dir.grep('.'|'..');
# Serve the subdirectory if passed.
my @paths = @sub-dir
?? $!directory.add(@sub-dir.join("/")).dir
!! $!directory.dir;
# Gallery holds all the elements that will be shown.
my @gallery;
@gallery.push(%( :type<heading>, :text($_) )) with $!title;
# Add directories on top.
for @paths.grep(*.d).sort {
next if .ends-with(".crater");
push @gallery, %(:type<directory>, :text($_.relative($!directory)));
}
# Adding supported file types.
for @paths.grep(*.f).sort(*.modified) -> $f {
my $rel = $f.relative($!directory);
given $f.extension.lc {
when 'jpg'|'png' {
my $thumb = $!directory.add(".crater/thumbnails").add($rel);
# For images get the original if thumbnail doesn't
# exist, otherwise use the thumbnail.
push @gallery, %(
:type<img>,
:src($thumb.f ?? $rel !! "{$rel}?original"),
alt => $rel
);
}
when '0' {
push @gallery, %(:type<heading>, :text($f.slurp.chomp));
}
when 'txt' {
push @gallery, %(:type<text>, :text($f.slurp.chomp));
}
default {
note "Unhandled file: $f";
}
}
}
return @gallery;
}
}
|