deleted some old scripts

Dependencies

• [2] T7WD3RLR
• [3] D5QIOJGP * Move everything up one directory.
• [4] GZAXDYBQ * Script for initialising the database.
• [5] AZ4LR2GT * Scripts for starting / stopping Hydra.
• [6] US27ZTX5 * HydraFrontend -> Hydra.
• [7] WZ3AEJ67 * hydra_update_gc_roots.pl registers build outputs that should be kept
• [8] PKPWUHUX * Idem.
• [9] SHBLLAVH * More global substitution.
• [10] J5UVLXOK * Start of a basic Catalyst web interface.
• [11] T4LLYESZ * Nix expression for building Hydra.
• [12] ERNOO5ZZ * Reorganising.

Change contents

• file deletion: hydra_cgi.pl (---r------)hydrafrontend_cgi.pl (---r------)hydra_cgi.pl (---r------)hydrafrontend_cgi.pl (---r------)
  [4.1560]→[4.729:765](∅→∅),[4.765]→[4.12027:12027](∅→∅),[4.1560]→[4.1579:1623](∅→∅),[4.1623]→[4.12027:12027](∅→∅),[3.2543]→[3.2600:2636](∅→∅),[3.2636]→[4.12027:12027](∅→∅),[4.12007]→[4.12577:12621](∅→∅),[4.12621]→[4.12027:12027](∅→∅)
  − #!/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;
• file deletion: hydra_fastcgi.pl (---r------)hydrafrontend_fastcgi.pl (---r------)hydra_fastcgi.pl (---r------)hydrafrontend_fastcgi.pl (---r------)
  [4.1560]→[4.804:844](∅→∅),[4.844]→[4.14640:14640](∅→∅),[4.1560]→[4.1670:1718](∅→∅),[4.1718]→[4.14640:14640](∅→∅),[3.2543]→[3.2715:2755](∅→∅),[3.2755]→[4.14640:14640](∅→∅),[4.12007]→[4.16473:16521](∅→∅),[4.16521]→[4.14640:14640](∅→∅)
  − #!/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;
• file deletion: hydra_init.pl (---r------)hydra_init.pl (---r------)
  [4.1560]→[4.470:507](∅→∅),[4.507]→[4.36:36](∅→∅),[3.2543]→[3.2755:2792](∅→∅),[3.2792]→[4.36:36](∅→∅)
  − #!/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";
• file deletion: hydra_test.pl (---r------)hydrafrontend_test.pl (---r------)hydra_test.pl (---r------)hydrafrontend_test.pl (---r------)
  [4.1560]→[4.883:920](∅→∅),[4.920]→[4.19849:19849](∅→∅),[4.1560]→[4.1765:1810](∅→∅),[4.1810]→[4.19849:19849](∅→∅),[3.2543]→[3.2918:2955](∅→∅),[3.2955]→[4.19849:19849](∅→∅),[4.12007]→[4.20763:20808](∅→∅),[4.20808]→[4.19849:19849](∅→∅)
  − #!/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';