Development server.

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();