server.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use CGI::Application::Server;
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'
#              }
#);

$server->entry_points({
    '/index.cgi' => #$panel
    'FPanel::Interface'
});
$server->run();