aboutsummaryrefslogtreecommitdiffstats
path: root/server.pl
diff options
context:
space:
mode:
Diffstat (limited to 'server.pl')
-rwxr-xr-xserver.pl25
1 files changed, 15 insertions, 10 deletions
diff --git a/server.pl b/server.pl
index 3a1ac83..dc65539 100755
--- a/server.pl
+++ b/server.pl
@@ -4,20 +4,25 @@ use strict;
use warnings;
use utf8;
-use CGI::Application::Server;
+use MyServer;
use lib 'lib';
use FPanel::Interface;
-#use MyCGI::App::Account::Dispatch;
-my $server = CGI::Application::Server->new();
-#my $panel = FPanel::Interface->new(
-# PARAMS => { cfg_file => ['config.yml']
-# , format => 'YAML'
-# }
-#);
+my $server = MyServer->new();
$server->entry_points({
- '/cgi-bin' => #$panel
- 'FPanel::Interface'
+ '/cgi-bin' => 'FPanel::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();