diff options
| author | Paul Buetow <paul@buetow.org> | 2018-12-14 16:42:24 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2018-12-14 16:42:24 +0200 |
| commit | a99e4d337bee2ab064af909b43011951db310c9d (patch) | |
| tree | 74f1431be09b8c85ddca14d4185adc5b7119e100 /index.fpl | |
| parent | 53a3a612a6f506578402099921bbd130d5791fe1 (diff) | |
fix perl path for centos 7
Diffstat (limited to 'index.fpl')
| -rwxr-xr-x | index.fpl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/index.fpl b/index.fpl deleted file mode 100755 index d21ae1c..0000000 --- a/index.fpl +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/bin/perl - -# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow -# -# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org -# -# This is free software, you may use it and distribute it under the same -# terms as Perl itself. - -use strict; -use warnings; - -use v5.14.0; -use lib qw(.); - -use Xerl; - -use FCGI; -use Socket; -use Sys::Hostname; - -my $host = hostname(); -my $config = - -e "xerldev.conf" - ? "xerldev.conf" - : ( -e "xerl-$host.conf" ? "xerl-$host.conf" : 'config.conf' ); - -while ( FCGI::accept >= 0 ) { - my $xerl = Xerl->new( config => $config ); - $xerl->run(); -} |
