From 77bb4587f9097f8f1158c60d4d8a910890333b95 Mon Sep 17 00:00:00 2001 From: pepper Date: Mon, 14 Jul 2014 23:12:46 -0700 Subject: yo yo yo --- bin/app.pl | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 bin/app.pl (limited to 'bin/app.pl') diff --git a/bin/app.pl b/bin/app.pl new file mode 100644 index 0000000..8556038 --- /dev/null +++ b/bin/app.pl @@ -0,0 +1,28 @@ +#!/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{/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; -- cgit v1.2.3-70-g09d2