Changeset 102 in bookmarks for trunk/stop

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

File:

• trunk/stop (modified) (1 diff)

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;
+}