* Update to Catalyst 5.9.

[?]

Oct 7, 2011, 1:45 PM

3YSK5YXGW3JKJUPYNHDQSB4ZCUMBSFKHCGWI4IIXJ277OBYRSU2AC

Dependencies

[2] MOMXNZEV if HYDRA_CONFIG is not set, take default
[3] BQYE6R7Y
[4] T7WD3RLR
[5] D5QIOJGP * Move everything up one directory.
[6] SAFVRDTK * Put Hydra's dependencies so that they can easily be installed in a
[7] US27ZTX5 * HydraFrontend -> Hydra.
[8] FV2M6MOT hydra: use autoconf/-make
[9] SHBLLAVH * More global substitution.
[10] USTVX7BT * Use Catalyst's HTTP::Prefork engine by default, with some limits to
[11] J5UVLXOK * Start of a basic Catalyst web interface.
[12] HSVVEKTY * Start of a JSON API to get information about a specific build.
[13] PKPWUHUX * Idem.
[*] RBZRCTAL hydra: fixed and re-enabled evaluation tests

Change contents

edit in deps.nix at line 12

[4.272]→[4.272:313](∅→∅)

perlPackages.CatalystEngineHTTPPrefork
edit in deps.nix at line 33

[3.80]

[15.0]

perlPackages.Starman
replacement in src/script/hydra_create.pl.in at line 1

[4.12623]→[4.2199005:2199038](∅→∅)

#! @perl@ -w -I@nix@/libexec/nix

[4.12623]

[4.12665]

#! @perl@
edit in src/script/hydra_create.pl.in at line 5

[4.12692]→[4.12692:12726](∅→∅),[4.12726]→[4.0:296](∅→∅),[4.296]→[4.12748:12749](∅→∅),[4.12748]→[4.12748:12749](∅→∅),[4.12749]→[4.297:394](∅→∅),[4.394]→[4.12749:12907](∅→∅),[4.12749]→[4.12749:12907](∅→∅)

use Getopt::Long;
use Pod::Usage;
eval "use Catalyst::Helper;";

if ($@) {
die <<END;
To use the Catalyst development tools including catalyst.pl and the
generated script/myapp_create.pl you need Catalyst::Helper, which is
part of the Catalyst-Devel distribution. Please install this via a
vendor package or by running one of -

perl -MCPAN -e 'install Catalyst::Devel'
perl -MCPANPLUS -e 'install Catalyst::Devel'
END
}

my $force = 0;
my $mech = 0;
my $help = 0;

GetOptions(
'nonew|force' => \$force,
'mech|mechanize' => \$mech,
'help|?' => \$help
);
replacement in src/script/hydra_create.pl.in at line 6

[4.12908]→[4.12908:12948](∅→∅)

pod2usage(1) if ( $help || !$ARGV[0] );

[4.12908]

[4.12948]

use Catalyst::ScriptRunner;
Catalyst::ScriptRunner->run('Hydra', 'Create');
edit in src/script/hydra_create.pl.in at line 9

[4.12949]→[4.12949:13031](∅→∅),[4.13031]→[4.4080:4141](∅→∅),[4.4141]→[4.13100:13101](∅→∅),[4.13100]→[4.13100:13101](∅→∅)

my $helper = Catalyst::Helper->new( { '.newfiles' => !$force, mech => $mech } );

pod2usage(1) unless $helper->mk_component( 'Hydra', @ARGV );
replacement in src/script/hydra_create.pl.in at line 20

[4.13285]→[4.13285:13481](∅→∅)

-force don't create a .new file where a file to be created exists
-mechanize use Test::WWW::Mechanize::Catalyst for tests if available
-help display this help and exits

[4.13285]

[4.13481]

--force don't create a .new file where a file to be created exists
--mechanize use Test::WWW::Mechanize::Catalyst for tests if available
--help display this help and exits
edit in src/script/hydra_create.pl.in at line 26

[4.4311]→[4.4311:4364](∅→∅)

hydra_create.pl controller My::Controller BindLex
replacement in src/script/hydra_create.pl.in at line 28

[4.4453]→[4.4453:4517](∅→∅)

hydra_create.pl view MyView TT
hydra_create.pl view TT TT

[4.4453]

[4.4517]

hydra_create.pl view HTML TT
replacement in src/script/hydra_create.pl.in at line 33

[4.4705]→[4.14028:14059](∅→∅),[4.14028]→[4.14028:14059](∅→∅)

dbi:Pg:dbname=foo root 4321

[4.4705]

[4.14059]

[Loader opts like db_schema, naming] dbi:Pg:dbname=foo root 4321
[connect_info opts like quote_char, name_sep]
edit in src/script/hydra_create.pl.in at line 39

[4.14134]

[4.14134]

perldoc Catalyst::Helper::Model::DBIC::Schema
perldoc Catalyst::Model::DBIC::Schema
perldoc Catalyst::View::TT
replacement in src/script/hydra_create.pl.in at line 57

[4.14475]→[4.14475:14544](∅→∅)

This library is free software, you can redistribute it and/or modify

[4.14475]

[4.14544]

This library is free software. You can redistribute it and/or modify
replacement in src/script/hydra_server.pl.in at line 4

[4.463]→[4.41:88](∅→∅),[4.88]→[4.464:500](∅→∅),[4.16613]→[4.464:500](∅→∅),[4.500]→[4.16649:16685](∅→∅),[4.16649]→[4.16649:16685](∅→∅)

$ENV{CATALYST_ENGINE} ||= 'HTTP::Prefork';
$ENV{CATALYST_SCRIPT_GEN} = 32;
require Catalyst::Engine::HTTP;

[4.463]

[4.501]

$ENV{CATALYST_SCRIPT_GEN} = 40;
edit in src/script/hydra_server.pl.in at line 6

[4.503]→[4.16689:16795](∅→∅),[4.16689]→[4.16689:16795](∅→∅),[4.16795]→[2.0:24](∅→∅),[2.24]→[4.16795:16908](∅→∅),[4.16795]→[4.16795:16908](∅→∅),[4.16908]→[4.504:577](∅→∅),[4.577]→[4.16989:17016](∅→∅),[4.16989]→[4.16989:17016](∅→∅),[4.17016]→[4.578:652](∅→∅),[4.652]→[4.17098:17258](∅→∅),[4.17098]→[4.17098:17258](∅→∅)

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Hydra::Helper::Nix;

my $debug = 0;
my $fork = 0;
my $help = 0;
my $host = undef;
my $port = $ENV{HYDRA_PORT} || $ENV{CATALYST_PORT} || 3000;
my $keepalive = 0;
my $restart = $ENV{HYDRA_RELOAD} || $ENV{CATALYST_RELOAD} || 0;
my $restart_delay = 1;
my $restart_regex = '(?:/|^)(?!\.#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$';
my $restart_directory = undef;
my $follow_symlinks = 0;
replacement in src/script/hydra_server.pl.in at line 7

[4.17259]→[4.17259:17277](∅→∅)

my @argv = @ARGV;

[4.17259]

[4.17277]

use Catalyst::ScriptRunner;
Catalyst::ScriptRunner->run('Hydra', 'Server');
edit in src/script/hydra_server.pl.in at line 10

[4.17278]→[2.25:90](∅→∅),[2.90]→[4.17278:18025](∅→∅),[4.17278]→[4.17278:18025](∅→∅),[4.18025]→[4.4797:4812](∅→∅),[4.4812]→[4.18048:18049](∅→∅),[4.18048]→[4.18048:18049](∅→∅),[4.18049]→[4.4813:4841](∅→∅),[4.4841]→[4.18085:18396](∅→∅),[4.18085]→[4.18085:18396](∅→∅),[4.18396]→[4.89:202](∅→∅),[4.202]→[4.18396:18402](∅→∅),[4.18396]→[4.18396:18402](∅→∅)

$ENV{'HYDRA_CONFIG'} = getHydraConf if ! $ENV{'HYDRA_CONFIG'} ;

GetOptions(
'debug|d' => \$debug,
'fork' => \$fork,
'help|?' => \$help,
'host=s' => \$host,
'port=s' => \$port,
'keepalive|k' => \$keepalive,
'restart|r' => \$restart,
'restartdelay|rd=s' => \$restart_delay,
'restartregex|rr=s' => \$restart_regex,
'restartdirectory=s@' => \$restart_directory,
'followsymlinks' => \$follow_symlinks,
);

pod2usage(1) if $help;

if ( $restart && $ENV{CATALYST_ENGINE} eq 'HTTP' ) {
$ENV{CATALYST_ENGINE} = 'HTTP::Restarter';
}
if ( $debug ) {
$ENV{CATALYST_DEBUG} = 1;
}

# This is require instead of use so that the above environment
# variables can be set at runtime.
require Hydra;

Hydra->run( $port, $host, {
argv => \@argv,
'fork' => $fork,
keepalive => $keepalive,
restart => $restart,
restart_delay => $restart_delay,
restart_regex => qr/$restart_regex/,
restart_directory => $restart_directory,
follow_symlinks => $follow_symlinks,
min_servers => 2,
max_servers => 10,
min_spare_servers => 2,
max_spare_servers => 5,
} );
replacement in src/script/hydra_server.pl.in at line 14

[4.18419]→[4.4842:4880](∅→∅)

hydra_server.pl - Catalyst Testserver

[4.18419]

[4.18465]

hydra_server.pl - Catalyst Test Server
replacement in src/script/hydra_server.pl.in at line 20

[4.18518]→[4.18518:19466](∅→∅)

Options:
-d -debug force debug mode
-f -fork handle each request in a new process
(defaults to false)
-? -help display this help and exits
-host host (defaults to all)
-p -port port (defaults to 3000)
-k -keepalive enable keep-alive connections
-r -restart restart when files get modified
(defaults to false)
-rd -restartdelay delay between file checks
-rr -restartregex regex match files that trigger
a restart when modified
(defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
-restartdirectory the directory to search for
modified files, can be set mulitple times
(defaults to '[SCRIPT_DIR]/..')
-follow_symlinks follow symlinks in search directories
(defaults to false. this is a no-op on Win32)

[4.18518]

[4.19466]

-d --debug force debug mode
-f --fork handle each request in a new process
(defaults to false)
-? --help display this help and exits
-h --host host (defaults to all)
-p --port port (defaults to 3000)
-k --keepalive enable keep-alive connections
-r --restart restart when files get modified
(defaults to false)
-rd --restart_delay delay between file checks
(ignored if you have Linux::Inotify2 installed)
-rr --restart_regex regex match files that trigger
a restart when modified
(defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
--restart_directory the directory to search for
modified files, can be set multiple times
(defaults to '[SCRIPT_DIR]/..')
--follow_symlinks follow symlinks in search directories
(defaults to false. this is a no-op on Win32)
--background run the process in the background
--pidfile specify filename for pid file
replacement in src/script/hydra_server.pl.in at line 56

[4.19684]→[4.19684:19753](∅→∅)

This library is free software, you can redistribute it and/or modify

[4.19684]

[4.19753]

This library is free software. You can redistribute it and/or modify
edit in src/script/hydra_server.pl.in at line 60

[4.19799]