diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 13:31:48 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 13:31:48 +0200 |
| commit | 6460ff71ae10f85d7dc12fae40d4c7f05ea41db7 (patch) | |
| tree | 814b82eafe1fba8e856d2103023873d64e1fd653 /index.fpl | |
| parent | 82530a1cfefe05e63dd7ff80704dd9ccc4a6bb4c (diff) | |
not in branch hosts
Diffstat (limited to 'index.fpl')
| -rwxr-xr-x | index.fpl | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/index.fpl b/index.fpl deleted file mode 100755 index d13cd6f..0000000 --- a/index.fpl +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Xerl; - -use FCGI; -use Socket; -use Sys::Hostname; - -my $host = hostname(); -my $config = - -e "xerldev-$host.conf" - ? "xerldev-$host.conf" - : ( -e "xerl-$host.conf" ? "xerl-$host.conf" : 'config.conf' ); - -while ( FCGI::accept >= 0 ) { - my Xerl $xerl = Xerl->new( config => $config ); - $xerl->run(); -} |