From 835c6ee12cd78cbd8caec77d11e8b074c6e5845e Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 13 Aug 2011 13:02:33 +0000
Subject: added host based configs

---
 index.fpl | 9 +++++++--
 index.pl  | 8 +++++++-
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/index.fpl b/index.fpl
index 7d6e52c..a7d41b4 100755
--- a/index.fpl
+++ b/index.fpl
@@ -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();
 }
-
diff --git a/index.pl b/index.pl
index 8afda26..d5a4ef3 100755
--- a/index.pl
+++ b/index.pl
@@ -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();
 
-- 
cgit v1.2.3