HTTP::Server::FFRIndexed - HTTP server for the file index
#!/usr/bin/perl -w
use strict;
use HTTP::Server::FFRIndexed;
HTTP::Server::FFRIndexed
->new(columns => [qw[mime_type artist album track title ]],
dsn => "dbi:SQLite:dbname=$0.sqlite",
scan => ["C:/Audio Captures/",],
verbose => 1,
)->run;
This module implements the controller and server for a FFRIndexed database. It should maybe be split up into the real (HTTP) server and the controller if possible.
The server does currently not enforce Taint Mode and doesn't really validate its input parameters, so it is susceptible both to path attacks and cross site scripting attacks or HTML injection attacks.
__PACKAGE__->new ARGSCreates a new server instance. The following arguments are recognized:
portThe TCP port to listen on
templateThe template directory
columnsThe columns to display