Changeset 13466

Timestamp:

06/08/08 12:41:42 (5 years ago)

Author:

tokuhirom

Message:

configurable.

Location:

lang/perl/Ulgori/trunk

Files:

• config.yaml (modified) (1 diff)
• ulgori.pl (modified) (1 diff)

lang/perl/Ulgori/trunk/config.yaml

@@ -3 +3 @@
 log_encoding: euc-jp
 entries_per_page: 20
+engine:
+  module: ServerSimple
+  args:
+    port: 4194
+

lang/perl/Ulgori/trunk/ulgori.pl

@@ -14 +14 @@
 ];
 use Ulgori::Handler;
+use Ulgori::Config;
+
+my $cfg = Ulgori::Config->instance;
 
 HTTP::Engine->new(
     interface => {
-        module => 'ServerSimple',
-        args => {
-            port => 4194,
-            host => 'localhost',
-        },
-        request_handler => sub {
-            my $c = shift;
-            Ulgori::Handler::handler( $c ),
-        }
+        %{ $cfg->{engine} },
+        request_handler => \&Ulgori::Handler::handler,
     },
 )->run;