From 6460ff71ae10f85d7dc12fae40d4c7f05ea41db7 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (pluto.buetow.org)" Date: Sat, 28 Sep 2013 13:31:48 +0200 Subject: not in branch hosts --- index.fpl | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100755 index.fpl (limited to 'index.fpl') 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(); -} -- cgit v1.2.3