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.
Creates a new server instance. The following arguments are recognized:
The TCP port to listen on
The template directory
The columns to display