Adds Daemon::Control script + Carton wrappers.

metacpan · Jun 5, 2014 · da23777 · da23777
1 parent eb62a4f
commit da23777
Show file tree

Hide file tree

Showing 5 changed files with 60 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -6,6 +6,8 @@
 *.kpf
 *.komodoproject
 *.sqlite*
+/var/logs/
+/var/run/
 /var/tmp/
 /var/log/metacpan.*
 /t/var/tmp/

diff --git a/.tidyallrc b/.tidyallrc
@@ -1,4 +1,5 @@
 [PerlTidy]
 select = {lib,t}/**/*.{pl,pm,t,psgi}
+select = bin/daemon-control.pl
 select = app.psgi
 ignore = t/var/**/*
diff --git a/bin/carton b/bin/carton
@@ -0,0 +1,2 @@
+#!/bin/sh
+carton exec perl -Ilib $@
diff --git a/bin/daemon-control.pl b/bin/daemon-control.pl
@@ -0,0 +1,52 @@
+#!/usr/local/perlbrew/perls/perl-5.16.2/bin/perl
+
+# usage: perl bin/daemon_control.pl get_init_file > /path/to/init/script
+
+use strict;
+use warnings;
+
+use Daemon::Control;
+use Sys::Hostname qw( hostname );
+
+my $name    = 'metacpan-api';
+my $user    = 'metacpan';
+my $home    = '/home/metacpan/api.metacpan.org';
+my $carton  = '/usr/local/perlbrew/perls/perl-5.16.2/bin/carton';
+my $workers = 10;
+
+if ( hostname() eq 'debian' ) {
+    $user    = 'vagrant';
+    $workers = 3;
+}
+
+my @program_args = (
+    'exec', '/usr/local/perlbrew/perls/perl-5.16.2/bin/plackup',
+    '--port'    => 5000,
+    '--workers' => $workers,
+    '-E'        => 'production',
+    '-Ilib',
+    '-a'  => 'app.psgi',
+    '-s', => 'Starman',
+);
+
+# Notes on unused args
+# scan_name: seems to be just 'starman master' (not useful)
+# stdout_file: always seems to be just empty
+
+my $args = {
+    directory    => $home,
+    fork         => 2,
+    group        => $user,
+    init_config  => "$home/.metacpanrc",
+    lsb_desc     => "Starts $name",
+    lsb_sdesc    => "Starts $name",
+    name         => $name,
+    path         => "$home/bin/daemon-control.pl",
+    pid_file     => "$home/var/run/$name.pid",
+    program      => $carton,
+    program_args => \@program_args,
+    stderr_file  => "$home/var/logs/starman_error.log",
+    user         => $user,
+};
+
+Daemon::Control->new($args)->run;
diff --git a/bin/prove b/bin/prove
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+carton exec prove -lv $@