diff options
Diffstat (limited to 'index.pl')
| -rwxr-xr-x | index.pl | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -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(); |
