Directory di app multiple con Dancer perl

Question

C'è un modo per avere un'app in ballerino ma con più appdir.

Oppure potrei fare qualcosa di simile:

Il mio progetto è in dir 'pippo'. Diciamo che ho una "barra" (non dentro "pippo") che ha una directory chiamata "pubblico". Io quale è la mia app 'foo' per usare questo pubblico come pubblico e se cerca 'diciamo' /css/style.css 'e non è in'/bar/public/'dovrebbe cercare'/foo/pubblico/'. Come lo posso fare?

Answer 1

Uno dei modi per scrivere un plug-in che rende statico (e sostituisce alcune funzionalità). È possibile utilizzare Dancer::Plugin::Thumbnail come esempio.

Altro modo che vedo è di patch-scimmia get_file_response() a Dancer::Renderer che non è davvero una buona idea.

Il seguente codice cerca i file statici in ogni dir dall'array @dirs. È sporco, brutto e pericoloso. Questo può essere rotto nella versione futura e potrebbe causare problemi con altre parti del framework di Dancer che non conosco. Sei avvisato.

#!/usr/bin/env perl 
use Dancer; 
use Dancer::Renderer; 
use MyWeb::App; 

my $get_file_response_original = \&Dancer::Renderer::get_file_response; 
my @dirs = ('foo'); 

*Dancer::Renderer::get_file_response = sub { 
    my $app = Dancer::App->current; 

    my $result; 

    # Try to find static in default dir 
    if ($result = $get_file_response_original->(@_)) { 
     return $result; 
    } 

    # Save current settings 
    my $path_backup = $app->setting('public'); 

    # Go through additional dirs 
    foreach my $dir (@dirs) { 
     $app->setting(public => $dir); 
     if ($result = $get_file_response_original->(@_)) { 
      last; 
     } 
    } 

    # Restore public 
    $app->setting('public' => $path_backup); 

    return $result 
}; 

dance; 

terzi modi è quello di lasciare nginx basta fare questo lavoro per voi, scrivendo una corretta configurazione nginx per l'applicazione.

Answer 2

OK, ecco il modo migliore per farlo. Ovviamente può essere un plugin.

Non si dovrebbe mai fare questo tipo di cose con l'hacking all'interno nucleo del ballerino, si dovrebbe invece sempre considerare l'implementazione di un gestore di percorso per fare il lavoro:

#!/usr/bin/env perl 
use Dancer; 
use File::Spec; 
use Dancer::FileUtils 'read_file_content'; 
use Dancer::MIME; 
use HTTP::Date; 

# your routes here 

# then the catchall route for 
# serving static files 

# better in config 
my @public_dirs = qw(/tmp/test/foo /tmp/test/bar /tmp/test/baz); 

get '/**' => sub { 
    my $path = request->path; 
    my $mime = Dancer::MIME->instance; 

    # security checks 
    return send_error("unauthrorized request", 403) if $path =~ /\0/; 
    return send_error("unauthrorized request", 403) if $path =~ /\.\./; 

    # decompose the path_info into a file path 
    my @path = split '/', $path; 

    for my $location (@public_dirs) { 
     my $file_path = File::Spec->catfile($location, @path); 

     next if ! -f $file_path; 

     my $content = read_file_content($file_path); 
     my $content_type = $mime->for_file($file_path); 
     my @stat = stat $file_path; 

     header 'Content-Type', $content_type; 
     header 'Content-Length', $stat[7]; 
     header 'Last-Modified', HTTP::Date::time2str($stat[9]); 
     return $content; 
    } 

    pass; 
}; 

start; 

Un esempio di questa applicazione in esecuzione:

$ mkdir -p /tmp/test/foo /tmp/test/bar /tmp/test/baz 
$ echo 1 > /tmp/test/foo/foo.txt 
$ echo 2 > /tmp/test/bar/bar.txt 
$ echo 3 > /tmp/test/baz/baz.txt 
$ ./bin/app.pl 
$ curl -I http://0:3000/baz.txt 
HTTP/1.0 200 OK 
Content-Length: 2 
Content-Type: text/plain 
Last-Modified: Fri, 14 Oct 2011 11:28:03 GMT 
X-Powered-By: Perl Dancer 1.3051 

Answer 3

Questo modulo può esserti di aiuto? https://github.com/Perlover/Dancer-Plugin-Hosts È possibile siti di configurazione virtuale in Dancer con propri appdir & altre impostazioni della directory ho caricato questo modulo oggi per GitHub presto sarà in CPAN