deleted some old scripts
This commit is contained in:
Rob Vermaas
parent
45b4f045d3
commit
c38eca41a8
|
|
@ -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<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
|
|
||||||
|
|
@ -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
|
|
||||||
|
|
@ -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";
|
|
||||||
|
|
@ -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
|
|
||||||
Loading…
Reference in a new issue