summary refs log blame commit diff stats
path: root/lib/Crater/Routes/Gallery.rakumod
blob: 9c7fc0a6f880b9d65e22c5d54087d1810115caf9 (plain) (tree)
1
2
3
4
5
6
7
8





                          

                                                                     



                                                 








                                                                          
                                          


                                                                

                                                                             

             
                                        

                                                         
                                                           
                                                       


              
                                                  
                       
                                  


         
use Cro::HTTP::Router;
use Cro::WebApp::Template;

use Crater::Gallery;
use Crater::Session;

#| gallery-routes contains routes for gallery view, images. Routes in
#| this block must be authenticated.
sub gallery-routes(
    Crater::Gallery :$gallery!, #= gallery object
) is export {
    route {
        # Logged in users can view images.
        get -> LoggedIn $session, 'resources', 'img', *@path, :$original {
            my $dir = $gallery.directory;
            # Serve the thumbnail unless original image was requested.
            $dir .= add(".crater/thumbnails") unless $original.defined;
            static $dir, @path;
        }

        # Gallery view.
        get -> LoggedIn $session, *@path {
            # Generates a navigation bar for nested directories.
            my @nav = %(name => "home", url => "/"), ;
            for @path.kv -> $idx, $p {
                next if $p eq '';
                @nav.push: %(name => $p, url => (@nav[*-1]<url> ~ $p ~ "/"));
            }

            template 'gallery.crotmp', {
                :@nav,
                show-nav => @path.elems ?? True !! False,
                gallery => $gallery.list(sub-dir => @path),
                title => $gallery.title() // "Gallery",
            };
        }

        # Redirect to login page if not logged in.
        get -> *@path {
            response.status = 401;
        }
    }
}