Changeset 102 in bookmarks

Timestamp:

07/01/15 16:28:42 (9 years ago)

Author:

peter

Message:

• allow a server_root key in the server config to set the root directory fdor the logs and pid file
• updated the cpanfile to include more of the modules required for the web app to operate

Location:

trunk

Files:

• cpanfile (modified) (1 diff)
• start (modified) (2 diffs)
• stop (modified) (1 diff)

trunk/cpanfile

@@ -10 +10 @@
 # web application
 requires 'Plack', '1.0036';
+requires 'Starman';
+requires 'File::Pid';
 
 # for opening the dbh handle

trunk/start

@@ -9 +9 @@
 use Plack::Runner;
 use BookmarksApp;
+use File::Spec::Functions qw{catfile};
 
 GetOptions(
@@ -19 +20 @@
 my $app = BookmarksApp->new({ config => $config })->to_app;
 
-my $listen = ':' . ($config->{port} || 5000);
+my $server_root = $config->{server_root} || '.';
+my $listen      = ':' . ($config->{port} || 5000);
+my $access_log  = catfile($server_root, 'access');
+my $error_log   = catfile($server_root, 'errors');
+my $pid_file    = catfile($server_root, 'pid');
 
 my $runner = Plack::Runner->new(server => 'Starman');
-$runner->parse_options(qw{--listen}, $listen, qw{--daemonize --pid pid --error-log errors --access-log access});
+$runner->parse_options(
+    '--daemonize',
+    '--listen',     $listen,
+    '--pid',        $pid_file,
+    '--error-log',  $error_log,
+    '--access-log', $access_log,
+);
 $runner->run($app);

trunk/stop

@@ -1 @@
-#!/bin/bash
+#!/usr/bin/perl -w
+use strict;
 
-kill `cat pid`
+use FindBin;
+use lib "$FindBin::RealBin/lib";
+
+use Getopt::Long;
+use YAML;
+use File::Pid;
+use File::Spec::Functions qw{catfile};
+
+GetOptions(
+    'file=s' => \my $CONFIG_FILE,
+);
+
+$CONFIG_FILE ||= 'server.yml';
+-e $CONFIG_FILE or die "Config file $CONFIG_FILE not found\n";
+my $config = YAML::LoadFile($CONFIG_FILE);
+
+my $server_root = $config->{server_root} || '.';
+
+my $pid_file = File::Pid->new({
+    file => catfile($server_root, 'pid'),
+});
+
+if (my $pid = $pid_file->running) {
+    kill 'TERM', $pid;
+}