Alter startup script to be able to choose between morbo and hypnotoad

conf/settings.ini.dist

@@ -64,3 +64,6 @@
 ;listen_ip = '127.0.0.1'
 ; Port used by the hypnotoad daemon
 ;listen_port = '8090'
+; server backend. Can be either morbo (DEV) or hypnotoad (PROD)
+; default is hypnotoad
+;backend = 'hypnotoad'

docs/systemd/vroom.service

@@ -4,8 +4,7 @@ After=mariadb.service
 
 [Service]
 Type=simple
-ExecStart=/opt/vroom/scripts/start_hypnotoad
+ExecStart=/opt/vroom/scripts/start_server.pl
-PIDFile=/tmp/vroom.pid
 PrivateTmp=yes
 User=apache
 Group=apache

scripts/start_hypnotoad

@@ -1,6 +0,0 @@
-#!/bin/sh
-
-DIR=$(dirname $0)
-export PERL5LIB="$DIR/../lib/"
-cd $DIR/..
-hypnotoad -f vroom.pl "$*"

scripts/start_server.pl

@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Config::Simple;
+use File::Basename;
+
+my $dir=dirname($0);
+chdir $dir . '/..';
+
+my $cfg = new Config::Simple();
+$cfg->read('conf/settings.ini');
+our $config = $cfg->vars();
+
+$config->{'daemon.listen_ip'}   ||= '127.0.0.1';
+$config->{'daemon.listen_port'} ||= '8090';
+$config->{'daemon.backend'}     ||= 'hypnotoad';
+
+$ENV{'PERL5LIB'} = 'lib';
+
+if ($config->{'daemon.backend'} eq 'morbo'){
+  exec ('/usr/bin/morbo', '-l', 'http://' . $config->{'daemon.listen_ip'} . ':' . $config->{'daemon.listen_port'}, '-v', 'vroom.pl');
+}
+else{
+  exec ('/usr/bin/hypnotoad', '-f', 'vroom.pl');
+}