• Files
• Commits
• Log
• Graph
• Stats

package stream;

use lib '/home/pi/perl5/lib/perl5';
use Data::Dumper;
use Dancer2;
use IO::All;
my $debug = '/home/pi/motion/debug.txt';

# set show_errors => 1; # for debug
# hook before => sub { my $r = request; _debug($r) };

get '/' => sub { return "route '/' - no filename supplied" };
get '/stream' => sub { return "route '/stream' - no filename supplied" };
get '/stream/:file' => sub {
    my $file = route_parameters->get('file'); # warn $file;
    my $media = '/media/usb/picam/'.$file;
    -e $media || die "can't find $media";
    send_file( 'video/'.$file, streaming => 1 );
};
any qr{.*} => sub { '404 - no route exists' };

sub _debug { io($debug)->append(Dumper @_) }

true;