blob: b18b7269820a8a884ddc3d923ec260a390fd500e (
plain)
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
|
#!/usr/bin/env perl
use Dancer;
use Data::Dumper;
set public => './';
get '/download/*.*' => sub {
my ($file, $ext) = splat;
# do something with $file.$ext here
};
get '/' => sub {
send_file "./index.html";
};
get qr{/img/([\w\.\-_]+)} => sub {
my ($filename) = splat;
send_file sprintf("/img/%s", $filename);
};
get qr{/css/([\w\.\-_]+)} => sub {
my ($filename) = splat;
send_file sprintf("/css/%s", $filename);
};
get qr{/js/([\w\.\-_]+)} => sub {
my ($filename) = splat;
send_file sprintf("/js/%s", $filename);
};
get qr{/fonts/([\w\.\-_]+)} => sub {
my ($filename) = splat;
send_file sprintf("/fonts/%s", $filename);
};
dance;
|
