source: bookmarks/trunk/stop @ 102

Last change on this file since 102 was 102, checked in by peter, 9 years ago
  • 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
  • Property svn:executable set to *
File size: 540 bytes
RevLine 
[102]1#!/usr/bin/perl -w
2use strict;
[65]3
[102]4use FindBin;
5use lib "$FindBin::RealBin/lib";
6
7use Getopt::Long;
8use YAML;
9use File::Pid;
10use File::Spec::Functions qw{catfile};
11
12GetOptions(
13    'file=s' => \my $CONFIG_FILE,
14);
15
16$CONFIG_FILE ||= 'server.yml';
17-e $CONFIG_FILE or die "Config file $CONFIG_FILE not found\n";
18my $config = YAML::LoadFile($CONFIG_FILE);
19
20my $server_root = $config->{server_root} || '.';
21
22my $pid_file = File::Pid->new({
23    file => catfile($server_root, 'pid'),
24});
25
26if (my $pid = $pid_file->running) {
27    kill 'TERM', $pid;
28}
Note: See TracBrowser for help on using the repository browser.