#!/var/run/current-system/sw/bin/perl -w
BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
1;
=head1 NAME
=head1 SYNOPSIS
See L<Catalyst::Manual>
=head1 DESCRIPTION
Run a Catalyst application as a cgi script.
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm
=head1 COPYRIGHT
This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
hydra_cgi.pl - Catalyst CGI
Hydra->run;
use Hydra;

#!/var/run/current-system/sw/bin/perl -w
BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use FindBin;
use lib "$FindBin::Bin/../lib";
my $help = 0;
my ( $listen, $nproc, $pidfile, $manager, $detach, $keep_stderr );
GetOptions(
    'help|?'      => \$help,
    'listen|l=s'  => \$listen,
    'nproc|n=i'   => \$nproc,
    'pidfile|p=s' => \$pidfile,
    'manager|M=s' => \$manager,
    'daemon|d'    => \$detach,
    'keeperr|e'   => \$keep_stderr,
);
pod2usage(1) if $help;
    {   nproc   => $nproc,
        manager => $manager,
        detach  => $detach,
	keep_stderr => $keep_stderr,
    }
);
1;
=head1 NAME
=head1 SYNOPSIS
 Options:
   -? -help      display this help and exits
   -l -listen    Socket path to listen on
                 (defaults to standard input)
                 can be HOST:PORT, :PORT or a
                 filesystem path
   -n -nproc     specify number of processes to keep
                 to serve requests (defaults to 1,
                 requires -listen)
   -p -pidfile   specify filename for pid file
                 (requires -listen)
   -d -daemon    daemonize (requires -listen)
   -M -manager   specify alternate process manager
                 (FCGI::ProcManager sub-class)
                 or empty string to disable
   -e -keeperr   send error messages to STDOUT, not
                 to the webserver
=head1 DESCRIPTION
Run a Catalyst application as fastcgi.
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm
=head1 COPYRIGHT
This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
hydra_fastcgi.pl [options]
hydra_fastcgi.pl - Catalyst FastCGI
        pidfile => $pidfile,
Hydra->run(
    $listen,
use Hydra;

#!/var/run/current-system/sw/bin/perl -w
use strict;
use Hydra::Helper::Nix;
my $hydraHome = $ENV{"HYDRA_HOME"};
die "The HYDRA_HOME environment variable is not set!\n" unless defined $hydraHome;
my $hydraData = $ENV{"HYDRA_DATA"};
mkdir $hydraData unless -d $hydraData;
my $dbPath = getHydraPath . "/hydra.sqlite";
system("sqlite3 $dbPath < $hydraHome/sql/hydra.sql") == 0
    or warn "Cannot initialise database in $dbPath";

#!/var/run/current-system/sw/bin/perl -w
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use FindBin;
use lib "$FindBin::Bin/../lib";
my $help = 0;
GetOptions( 'help|?' => \$help );
pod2usage(1) if ( $help || !$ARGV[0] );
print request($ARGV[0])->content . "\n";
1;
=head1 NAME
=head1 SYNOPSIS
 Options:
   -help    display this help and exits
 Examples:
 See also:
   perldoc Catalyst::Manual
   perldoc Catalyst::Manual::Intro
=head1 DESCRIPTION
Run a Catalyst action from the command line.
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm
=head1 COPYRIGHT
This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
   hydra_test.pl http://localhost/some_action
   hydra_test.pl /some_action
hydra_test.pl [options] uri
hydra_test.pl - Catalyst Test
use Catalyst::Test 'Hydra';