diff options
Diffstat (limited to 'dev/server.pl')
-rwxr-xr-x | dev/server.pl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/dev/server.pl b/dev/server.pl new file mode 100755 index 0000000..4b52789 --- /dev/null +++ b/dev/server.pl @@ -0,0 +1,28 @@ +#!/usr/bin/perl -CADS + +use strict; +use warnings; +use utf8; + +use dev::MyServer; +use lib 'lib'; +use Fripost::Panel::Interface; + +my $server = MyServer->new(); + +$server->entry_points({ + '/cgi-bin' => 'Fripost::Panel::Interface' +}); + +my @config = 'default.in'; +push @config, 'config.in' if -f 'config.in'; + +# TODO: This is only for testing purposes. Using a blessed target above +# prevents me from logging in. +$server->options({ + '/cgi-bin' => { + PARAMS => { cfg_file => [ @config ], format => 'equal' } + } +}); + +$server->run(); |