From 9881490f8c578555aa2349f8223104aa22fc8954 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Mon, 10 Sep 2012 20:07:18 +0200
Subject: Development server.

---
 dev/server.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 dev/server.pl

(limited to 'dev/server.pl')

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();
-- 
cgit v1.2.3