#!/usr/bin/env perl
use Dancer2;
use Data::Dumper;
set public => './';

get '/download/*.*' => sub {
       my ($file, $ext) = splat;
       # do something with $file.$ext here
};

get qr{/img/([\w\.\-_]+)} => sub {
     my ($filename) = splat;
     send_file sprintf("/img/%s", $filename);
};
get qr{/patterns/([\w\.\-_]+)} => sub {
     my ($filename) = splat;
     send_file sprintf("/patterns/%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);
};
get '/' => sub {
  send_file ("index.html");
};
dance;