diff options
| -rwxr-xr-x | index.fpl | 9 | ||||
| -rwxr-xr-x | index.pl | 8 |
2 files changed, 14 insertions, 3 deletions
@@ -4,10 +4,15 @@ use strict; use warnings; use Xerl; + use FCGI; +use Socket; +use Sys::Hostname; + +my $host = hostname(); +my $config = -e "config-$host.txt" ? "config-$host.txt" : 'config.txt'; while (FCGI::accept >= 0) { - my Xerl $xerl = Xerl->new( config => 'config.txt' ); + my Xerl $xerl = Xerl->new( config => $config ); $xerl->run(); } - @@ -5,6 +5,12 @@ use warnings; use Xerl; -my Xerl $xerl = Xerl->new( config => 'config.txt' ); +use Socket; +use Sys::Hostname; + +my $host = hostname(); +my $config = -e "config-$host.txt" ? "config-$host.txt" : 'config.txt'; + +my Xerl $xerl = Xerl->new( config => $config ); $xerl->run(); |
