diff --git a/src/script/hydra_cgi.pl b/src/script/hydra_cgi.pl deleted file mode 100755 index de99e071..00000000 --- a/src/script/hydra_cgi.pl +++ /dev/null @@ -1,37 +0,0 @@ -#!/var/run/current-system/sw/bin/perl -w - -BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' } - -use strict; -use warnings; -use FindBin; -use lib "$FindBin::Bin/../lib"; -use Hydra; - -Hydra->run; - -1; - -=head1 NAME - -hydra_cgi.pl - Catalyst CGI - -=head1 SYNOPSIS - -See L - -=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 diff --git a/src/script/hydra_fastcgi.pl b/src/script/hydra_fastcgi.pl deleted file mode 100755 index 647c01cf..00000000 --- a/src/script/hydra_fastcgi.pl +++ /dev/null @@ -1,79 +0,0 @@ -#!/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"; -use Hydra; - -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; - -Hydra->run( - $listen, - { nproc => $nproc, - pidfile => $pidfile, - manager => $manager, - detach => $detach, - keep_stderr => $keep_stderr, - } -); - -1; - -=head1 NAME - -hydra_fastcgi.pl - Catalyst FastCGI - -=head1 SYNOPSIS - -hydra_fastcgi.pl [options] - - 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 diff --git a/src/script/hydra_init.pl b/src/script/hydra_init.pl deleted file mode 100755 index 0676b8b0..00000000 --- a/src/script/hydra_init.pl +++ /dev/null @@ -1,15 +0,0 @@ -#!/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"; diff --git a/src/script/hydra_test.pl b/src/script/hydra_test.pl deleted file mode 100755 index 23f3c140..00000000 --- a/src/script/hydra_test.pl +++ /dev/null @@ -1,53 +0,0 @@ -#!/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"; -use Catalyst::Test 'Hydra'; - -my $help = 0; - -GetOptions( 'help|?' => \$help ); - -pod2usage(1) if ( $help || !$ARGV[0] ); - -print request($ARGV[0])->content . "\n"; - -1; - -=head1 NAME - -hydra_test.pl - Catalyst Test - -=head1 SYNOPSIS - -hydra_test.pl [options] uri - - Options: - -help display this help and exits - - Examples: - hydra_test.pl http://localhost/some_action - hydra_test.pl /some_action - - 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