From c38eca41a8682f733caac98a4b6ecf6df622ef32 Mon Sep 17 00:00:00 2001
From: Rob Vermaas <rob.vermaas@gmail.com>
Date: Tue, 23 Mar 2010 20:04:01 +0000
Subject: [PATCH] deleted some old scripts

---
 src/script/hydra_cgi.pl     | 37 -----------------
 src/script/hydra_fastcgi.pl | 79 -------------------------------------
 src/script/hydra_init.pl    | 15 -------
 src/script/hydra_test.pl    | 53 -------------------------
 4 files changed, 184 deletions(-)
 delete mode 100755 src/script/hydra_cgi.pl
 delete mode 100755 src/script/hydra_fastcgi.pl
 delete mode 100755 src/script/hydra_init.pl
 delete mode 100755 src/script/hydra_test.pl

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<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
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