From b250fa6094be3496cf2ab92ec0ae838ad52fa587 Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Tue, 28 Oct 2008 10:19:31 +0000 Subject: [PATCH] * Start of a basic Catalyst web interface. --- src/HydraFrontend/Makefile.PL | 19 +++ src/HydraFrontend/hydrafrontend.conf | 1 + src/HydraFrontend/lib/HydraFrontend.pm | 20 +++ .../lib/HydraFrontend/Controller/Root.pm | 86 ++++++++++ .../lib/HydraFrontend/Model/DB.pm | 36 +++++ src/HydraFrontend/lib/HydraFrontend/Schema.pm | 16 ++ .../lib/HydraFrontend/Schema/Buildlogs.pm | 33 ++++ .../lib/HydraFrontend/Schema/Buildproducts.pm | 33 ++++ .../lib/HydraFrontend/Schema/Builds.pm | 42 +++++ .../lib/HydraFrontend/View/TT.pm | 8 + src/HydraFrontend/root/build.tt | 65 ++++++++ src/HydraFrontend/root/error.tt | 7 + src/HydraFrontend/root/hydra.css | 153 ++++++++++++++++++ src/HydraFrontend/root/index.tt | 18 +++ src/HydraFrontend/root/layout.tt | 24 +++ src/HydraFrontend/root/log.tt | 10 ++ src/HydraFrontend/script/hydrafrontend_cgi.pl | 37 +++++ .../script/hydrafrontend_create.pl | 74 +++++++++ .../script/hydrafrontend_fastcgi.pl | 79 +++++++++ .../script/hydrafrontend_server.pl | 114 +++++++++++++ .../script/hydrafrontend_test.pl | 53 ++++++ 21 files changed, 928 insertions(+) create mode 100644 src/HydraFrontend/Makefile.PL create mode 100644 src/HydraFrontend/hydrafrontend.conf create mode 100644 src/HydraFrontend/lib/HydraFrontend.pm create mode 100644 src/HydraFrontend/lib/HydraFrontend/Controller/Root.pm create mode 100644 src/HydraFrontend/lib/HydraFrontend/Model/DB.pm create mode 100644 src/HydraFrontend/lib/HydraFrontend/Schema.pm create mode 100644 src/HydraFrontend/lib/HydraFrontend/Schema/Buildlogs.pm create mode 100644 src/HydraFrontend/lib/HydraFrontend/Schema/Buildproducts.pm create mode 100644 src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm create mode 100644 src/HydraFrontend/lib/HydraFrontend/View/TT.pm create mode 100644 src/HydraFrontend/root/build.tt create mode 100644 src/HydraFrontend/root/error.tt create mode 100644 src/HydraFrontend/root/hydra.css create mode 100644 src/HydraFrontend/root/index.tt create mode 100644 src/HydraFrontend/root/layout.tt create mode 100644 src/HydraFrontend/root/log.tt create mode 100755 src/HydraFrontend/script/hydrafrontend_cgi.pl create mode 100755 src/HydraFrontend/script/hydrafrontend_create.pl create mode 100755 src/HydraFrontend/script/hydrafrontend_fastcgi.pl create mode 100755 src/HydraFrontend/script/hydrafrontend_server.pl create mode 100755 src/HydraFrontend/script/hydrafrontend_test.pl diff --git a/src/HydraFrontend/Makefile.PL b/src/HydraFrontend/Makefile.PL new file mode 100644 index 00000000..2e560d9c --- /dev/null +++ b/src/HydraFrontend/Makefile.PL @@ -0,0 +1,19 @@ +# IMPORTANT: if you delete this file your app will not work as +# expected. you have been warned +use inc::Module::Install; + +name 'HydraFrontend'; +all_from 'lib/HydraFrontend.pm'; + +requires 'Catalyst::Runtime' => '5.7015'; +requires 'Catalyst::Plugin::ConfigLoader'; +requires 'Catalyst::Plugin::Static::Simple'; +requires 'Catalyst::Action::RenderView'; +requires 'parent'; +requires 'Config::General'; # This should reflect the config file format you've chosen + # See Catalyst::Plugin::ConfigLoader for supported formats +catalyst; + +install_script glob('script/*.pl'); +auto_install; +WriteAll; diff --git a/src/HydraFrontend/hydrafrontend.conf b/src/HydraFrontend/hydrafrontend.conf new file mode 100644 index 00000000..3c4a29dd --- /dev/null +++ b/src/HydraFrontend/hydrafrontend.conf @@ -0,0 +1 @@ +name HydraFrontend diff --git a/src/HydraFrontend/lib/HydraFrontend.pm b/src/HydraFrontend/lib/HydraFrontend.pm new file mode 100644 index 00000000..68688a67 --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend.pm @@ -0,0 +1,20 @@ +package HydraFrontend; + +use strict; +use warnings; + +use Catalyst::Runtime '5.70'; + +use parent qw/Catalyst/; +use Catalyst qw/-Debug + ConfigLoader + Static::Simple + StackTrace + /; +our $VERSION = '0.01'; + +__PACKAGE__->config( name => 'HydraFrontend' ); + +__PACKAGE__->setup(); + +1; diff --git a/src/HydraFrontend/lib/HydraFrontend/Controller/Root.pm b/src/HydraFrontend/lib/HydraFrontend/Controller/Root.pm new file mode 100644 index 00000000..c712a696 --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend/Controller/Root.pm @@ -0,0 +1,86 @@ +package HydraFrontend::Controller::Root; + +use strict; +use warnings; +use parent 'Catalyst::Controller'; + +# +# Sets the actions in this controller to be registered with no prefix +# so they function identically to actions created in MyApp.pm +# +__PACKAGE__->config->{namespace} = ''; + + +sub error { + my ($c, $msg) = @_; + $c->stash->{template} = 'error.tt'; + $c->stash->{error} = $msg; + $c->response->status(404); +} + + +sub getBuild { + my ($c, $id) = @_; + (my $build) = $c->model('DB::Builds')->search({ id => $id }); + return $build; +} + + +sub index :Path :Args(0) { + my ( $self, $c ) = @_; + $c->stash->{template} = 'index.tt'; + $c->stash->{builds} = [$c->model('DB::Builds')->all]; +} + + +sub default :Path { + my ( $self, $c ) = @_; + error($c, "Page not found."); +} + + +sub build :Local { + my ( $self, $c, $id ) = @_; + + my $build = getBuild($c, $id); + return error($c, "Build with ID $id doesn't exist.") if !defined $build; + + $c->stash->{template} = 'build.tt'; + $c->stash->{build} = $build; + $c->stash->{id} = $id; +} + + +sub log :Local { + my ( $self, $c, $id, $logPhase ) = @_; + + my $build = getBuild($c, $id); + return error($c, "Build with ID $id doesn't exist.") if !defined $build; + + my $log = $build->buildlogs->find({logphase => $logPhase}); + return error($c, "Build $id doesn't have a log phase named $logPhase.") if !defined $log; + + $c->stash->{template} = 'log.tt'; + $c->stash->{id} = $id; + $c->stash->{log} = $log; + + # !!! should be done in the view (as a TT plugin). + $c->stash->{logtext} = loadLog($log->path); +} + + +sub loadLog { + my ($path) = @_; + # !!! all a quick hack + if ($path =~ /.bz2$/) { + return `cat $path | bzip2 -d`; + } else { + return `cat $path`; + } +} + + +sub end : ActionClass('RenderView') {} + + +1; diff --git a/src/HydraFrontend/lib/HydraFrontend/Model/DB.pm b/src/HydraFrontend/lib/HydraFrontend/Model/DB.pm new file mode 100644 index 00000000..f6f856eb --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend/Model/DB.pm @@ -0,0 +1,36 @@ +package HydraFrontend::Model::DB; + +use strict; +use base 'Catalyst::Model::DBIC::Schema'; + +__PACKAGE__->config( + schema_class => 'HydraFrontend::Schema', + connect_info => [ + 'dbi:SQLite:../hydra.sqlite', + + ], +); + +=head1 NAME + +HydraFrontend::Model::DB - Catalyst DBIC Schema Model +=head1 SYNOPSIS + +See L + +=head1 DESCRIPTION + +L Model using schema L + +=head1 AUTHOR + +Eelco Dolstra + +=head1 LICENSE + +This library is free software, you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut + +1; diff --git a/src/HydraFrontend/lib/HydraFrontend/Schema.pm b/src/HydraFrontend/lib/HydraFrontend/Schema.pm new file mode 100644 index 00000000..ab88c044 --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend/Schema.pm @@ -0,0 +1,16 @@ +package HydraFrontend::Schema; + +use strict; +use warnings; + +use base 'DBIx::Class::Schema'; + +__PACKAGE__->load_classes; + + +# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27 +# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:iW1lrJQVyiDiAYhJBy9/iQ + + +# You can replace this text with custom content, and it will be preserved on regeneration +1; diff --git a/src/HydraFrontend/lib/HydraFrontend/Schema/Buildlogs.pm b/src/HydraFrontend/lib/HydraFrontend/Schema/Buildlogs.pm new file mode 100644 index 00000000..35bcbf26 --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend/Schema/Buildlogs.pm @@ -0,0 +1,33 @@ +package HydraFrontend::Schema::Buildlogs; + +use strict; +use warnings; + +use base 'DBIx::Class'; + +__PACKAGE__->load_components("Core"); +__PACKAGE__->table("buildLogs"); +__PACKAGE__->add_columns( + "buildid", + { data_type => "integer", is_nullable => 0, size => undef }, + "logphase", + { data_type => "text", is_nullable => 0, size => undef }, + "path", + { data_type => "text", is_nullable => 0, size => undef }, + "type", + { data_type => "text", is_nullable => 0, size => undef }, +); +__PACKAGE__->set_primary_key("buildid", "logphase"); +__PACKAGE__->belongs_to( + "buildid", + "HydraFrontend::Schema::Builds", + { id => "buildid" }, +); + + +# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27 +# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:01Br5qFsV84USpzqnjk7cw + + +# You can replace this text with custom content, and it will be preserved on regeneration +1; diff --git a/src/HydraFrontend/lib/HydraFrontend/Schema/Buildproducts.pm b/src/HydraFrontend/lib/HydraFrontend/Schema/Buildproducts.pm new file mode 100644 index 00000000..bfc63dee --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend/Schema/Buildproducts.pm @@ -0,0 +1,33 @@ +package HydraFrontend::Schema::Buildproducts; + +use strict; +use warnings; + +use base 'DBIx::Class'; + +__PACKAGE__->load_components("Core"); +__PACKAGE__->table("buildProducts"); +__PACKAGE__->add_columns( + "buildid", + { data_type => "integer", is_nullable => 0, size => undef }, + "type", + { data_type => "text", is_nullable => 0, size => undef }, + "subtype", + { data_type => "text", is_nullable => 0, size => undef }, + "path", + { data_type => "text", is_nullable => 0, size => undef }, +); +__PACKAGE__->set_primary_key("buildid", "type", "subtype"); +__PACKAGE__->belongs_to( + "buildid", + "HydraFrontend::Schema::Builds", + { id => "buildid" }, +); + + +# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27 +# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:jYe9p4xG2Ujnf6TsfeE7tA + + +# You can replace this text with custom content, and it will be preserved on regeneration +1; diff --git a/src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm b/src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm new file mode 100644 index 00000000..7b2bb07e --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend/Schema/Builds.pm @@ -0,0 +1,42 @@ +package HydraFrontend::Schema::Builds; + +use strict; +use warnings; + +use base 'DBIx::Class'; + +__PACKAGE__->load_components("Core"); +__PACKAGE__->table("builds"); +__PACKAGE__->add_columns( + "id", + { data_type => "integer", is_nullable => 0, size => undef }, + "timestamp", + { data_type => "integer", is_nullable => 0, size => undef }, + "name", + { data_type => "text", is_nullable => 0, size => undef }, + "description", + { data_type => "text", is_nullable => 0, size => undef }, + "drvpath", + { data_type => "text", is_nullable => 0, size => undef }, + "outpath", + { data_type => "text", is_nullable => 0, size => undef }, + "buildstatus", + { data_type => "integer", is_nullable => 0, size => undef }, +); +__PACKAGE__->set_primary_key("id"); +__PACKAGE__->has_many( + "buildlogs", + "HydraFrontend::Schema::Buildlogs", + { "foreign.buildid" => "self.id" }, +); +__PACKAGE__->has_many( + "buildproducts", + "HydraFrontend::Schema::Buildproducts", + { "foreign.buildid" => "self.id" }, +); + + +# Created by DBIx::Class::Schema::Loader v0.04005 @ 2008-10-25 22:23:27 +# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:gxVH+2KWcgU41JOl9BbHFA + +1; diff --git a/src/HydraFrontend/lib/HydraFrontend/View/TT.pm b/src/HydraFrontend/lib/HydraFrontend/View/TT.pm new file mode 100644 index 00000000..c7e2747f --- /dev/null +++ b/src/HydraFrontend/lib/HydraFrontend/View/TT.pm @@ -0,0 +1,8 @@ +package HydraFrontend::View::TT; + +use strict; +use base 'Catalyst::View::TT'; + +__PACKAGE__->config(TEMPLATE_EXTENSION => '.tt'); + +1; diff --git a/src/HydraFrontend/root/build.tt b/src/HydraFrontend/root/build.tt new file mode 100644 index 00000000..3d6f4beb --- /dev/null +++ b/src/HydraFrontend/root/build.tt @@ -0,0 +1,65 @@ +[% WRAPPER layout.tt title="Hydra Overview" %] +[% USE date %] + +

Build [% id %]

+ +

Information

+ + + + + + + + + + + + + + + + + + + + + + + + + + +
Build ID:[% build.id %]
Job name:[% build.name %]
Description:[% build.description %]
Time added:[% date.format(build.timestamp, '%Y-%m-%d %H:%M:%S') %]
Derivation store path:[% build.drvpath %]
Output store path:[% build.outpath %]
+ + +

Build products

+ +
    + + [% FOREACH product IN build.buildproducts -%] +
  • + [% SWITCH product.type %] + [% CASE "nix-build" %] + Nix build of path [% product.path %] + [% END %] +
    • + [% END -%] + +
+ + +

Logs

+ + + + [% FOREACH log IN build.buildlogs -%] + + + + [% END -%] +
Phase
[% log.logphase %]
+ + +[% END %] + diff --git a/src/HydraFrontend/root/error.tt b/src/HydraFrontend/root/error.tt new file mode 100644 index 00000000..2d8e61ab --- /dev/null +++ b/src/HydraFrontend/root/error.tt @@ -0,0 +1,7 @@ +[% WRAPPER layout.tt title="Hydra Overview" %] + +

Error

+ +

I'm very sorry, but an error occurred: [% error %]

+ +[% END %] diff --git a/src/HydraFrontend/root/hydra.css b/src/HydraFrontend/root/hydra.css new file mode 100644 index 00000000..ca2e6948 --- /dev/null +++ b/src/HydraFrontend/root/hydra.css @@ -0,0 +1,153 @@ +body +{ + font-family: sans-serif; + background: white; + margin: 2em 1em 2em 1em; +} + +h1, h2, h3 { + font-weight: bold; + color: #005aa0; +} + +h1 { + font-size: 220%; +} + +h2 { + font-size: 130%; +} + +h3 { + font-size: 100%; +} + +table { + empty-cells: show; + border-collapse: collapse; + border-spacing: 0px; +} + +th { + text-align: center; + font-weight: bold; +} + +td, th { + padding: 2px 5px; + border: solid black 1px; +} + +th { + background: #ffffc0; +} + +td.pkgname { + font-size: 140%; + font-weight: bold; + color: #005aa0; + background: #ffffe0; +} + +td.pkgname table { + border: none; + border-spacing: 0px; +} + +td.pkgname table td { + border: none; +} + +td.pkgname td.pkgname { + width: 100%; +} + +td.reltype { + font-weight: bold; + color: #400000; +} + +td.date, span.date, span.svnrev { + color: #400000; +} + +a:link { color: #0048b3; } +a:visited { color: #002a6a; } +a:hover { background: #ffffcd; } + +span.relname { + font-weight: bold; +} + +span.filename, span.command { + font-family: monospace; +} + +span.md5 { + font-family: monospace; + color: #400000; +} + +.failurewarning { + font-weight: bold; + color: red; +} + +p.failurewarning { + font-size: 120%; +} + +span.system { + font-style: italic; +} + +table.derivationList { + margin-left: 2em; + margin-right: 2em; +} + +table.derivationList, table.derivationList td, table.derivationList th { + border: 1px solid #808080; +} + +table.derivationList tr.odd { + background: #f0f0f0; +} + +table.derivationList td { + vertical-align: top; +} + +table.derivationList td.system { + font-style: italic; +} + +a { + text-decoration: none; +} + +a:hover, a:visited:hover { + text-decoration: underline; +} + +img { + border-style: none; +} + +table.buildfarmResults td, table.buildfarmResults th { + border: none; +} + +td.buildfarmMainColumn { + background-color: #E0E0E0; + border: solid; +} + +span.error-msg { + color: red; +} + +pre.buildlog { + border: 1px solid black; + padding: 0.3em; +} \ No newline at end of file diff --git a/src/HydraFrontend/root/index.tt b/src/HydraFrontend/root/index.tt new file mode 100644 index 00000000..2c63ba4f --- /dev/null +++ b/src/HydraFrontend/root/index.tt @@ -0,0 +1,18 @@ +[% WRAPPER layout.tt title="Hydra Overview" %] +[% USE date %] + +

All builds

+ + + + [% FOREACH build IN builds -%] + + + + + + + [% END -%] +
IdAttribute nameTimestampDescription
[% build.id %][% build.name %][% date.format(build.timestamp, '%Y-%m-%d %H:%M:%S') %][% build.description %]
+ +[% END %] diff --git a/src/HydraFrontend/root/layout.tt b/src/HydraFrontend/root/layout.tt new file mode 100644 index 00000000..8197c94f --- /dev/null +++ b/src/HydraFrontend/root/layout.tt @@ -0,0 +1,24 @@ +[% USE date -%] + + + + + + + + [% title %] + + + + +
+ [% content %] +
+ +
+
+ Generated at [% date.format %]. +
+ + + \ No newline at end of file diff --git a/src/HydraFrontend/root/log.tt b/src/HydraFrontend/root/log.tt new file mode 100644 index 00000000..5e788730 --- /dev/null +++ b/src/HydraFrontend/root/log.tt @@ -0,0 +1,10 @@ +[% WRAPPER layout.tt title="Hydra Overview" %] + +

Build log [% log.logphase %] of build ID [% id %]

+ + +
+[% logtext -%]
+
+ +[% END %] diff --git a/src/HydraFrontend/script/hydrafrontend_cgi.pl b/src/HydraFrontend/script/hydrafrontend_cgi.pl new file mode 100755 index 00000000..1fd5c26e --- /dev/null +++ b/src/HydraFrontend/script/hydrafrontend_cgi.pl @@ -0,0 +1,37 @@ +#!/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 HydraFrontend; + +HydraFrontend->run; + +1; + +=head1 NAME + +hydrafrontend_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/HydraFrontend/script/hydrafrontend_create.pl b/src/HydraFrontend/script/hydrafrontend_create.pl new file mode 100755 index 00000000..049a912f --- /dev/null +++ b/src/HydraFrontend/script/hydrafrontend_create.pl @@ -0,0 +1,74 @@ +#!/var/run/current-system/sw/bin/perl -w + +use strict; +use warnings; +use Getopt::Long; +use Pod::Usage; +use Catalyst::Helper; + +my $force = 0; +my $mech = 0; +my $help = 0; + +GetOptions( + 'nonew|force' => \$force, + 'mech|mechanize' => \$mech, + 'help|?' => \$help + ); + +pod2usage(1) if ( $help || !$ARGV[0] ); + +my $helper = Catalyst::Helper->new( { '.newfiles' => !$force, mech => $mech } ); + +pod2usage(1) unless $helper->mk_component( 'HydraFrontend', @ARGV ); + +1; + +=head1 NAME + +hydrafrontend_create.pl - Create a new Catalyst Component + +=head1 SYNOPSIS + +hydrafrontend_create.pl [options] model|view|controller name [helper] [options] + + Options: + -force don't create a .new file where a file to be created exists + -mechanize use Test::WWW::Mechanize::Catalyst for tests if available + -help display this help and exits + + Examples: + hydrafrontend_create.pl controller My::Controller + hydrafrontend_create.pl controller My::Controller BindLex + hydrafrontend_create.pl -mechanize controller My::Controller + hydrafrontend_create.pl view My::View + hydrafrontend_create.pl view MyView TT + hydrafrontend_create.pl view TT TT + hydrafrontend_create.pl model My::Model + hydrafrontend_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\ + dbi:SQLite:/tmp/my.db + hydrafrontend_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\ + dbi:Pg:dbname=foo root 4321 + + See also: + perldoc Catalyst::Manual + perldoc Catalyst::Manual::Intro + +=head1 DESCRIPTION + +Create a new Catalyst Component. + +Existing component files are not overwritten. If any of the component files +to be created already exist the file will be written with a '.new' suffix. +This behavior can be suppressed with the C<-force> option. + +=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/HydraFrontend/script/hydrafrontend_fastcgi.pl b/src/HydraFrontend/script/hydrafrontend_fastcgi.pl new file mode 100755 index 00000000..a917f690 --- /dev/null +++ b/src/HydraFrontend/script/hydrafrontend_fastcgi.pl @@ -0,0 +1,79 @@ +#!/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 HydraFrontend; + +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; + +HydraFrontend->run( + $listen, + { nproc => $nproc, + pidfile => $pidfile, + manager => $manager, + detach => $detach, + keep_stderr => $keep_stderr, + } +); + +1; + +=head1 NAME + +hydrafrontend_fastcgi.pl - Catalyst FastCGI + +=head1 SYNOPSIS + +hydrafrontend_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/HydraFrontend/script/hydrafrontend_server.pl b/src/HydraFrontend/script/hydrafrontend_server.pl new file mode 100755 index 00000000..eea64af2 --- /dev/null +++ b/src/HydraFrontend/script/hydrafrontend_server.pl @@ -0,0 +1,114 @@ +#!/var/run/current-system/sw/bin/perl -w + +BEGIN { + $ENV{CATALYST_ENGINE} ||= 'HTTP'; + $ENV{CATALYST_SCRIPT_GEN} = 31; + require Catalyst::Engine::HTTP; +} + +use strict; +use warnings; +use Getopt::Long; +use Pod::Usage; +use FindBin; +use lib "$FindBin::Bin/../lib"; + +my $debug = 0; +my $fork = 0; +my $help = 0; +my $host = undef; +my $port = $ENV{HYDRAFRONTEND_PORT} || $ENV{CATALYST_PORT} || 3000; +my $keepalive = 0; +my $restart = $ENV{HYDRAFRONTEND_RELOAD} || $ENV{CATALYST_RELOAD} || 0; +my $restart_delay = 1; +my $restart_regex = '(?:/|^)(?!\.#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$'; +my $restart_directory = undef; +my $follow_symlinks = 0; + +my @argv = @ARGV; + +GetOptions( + 'debug|d' => \$debug, + 'fork' => \$fork, + 'help|?' => \$help, + 'host=s' => \$host, + 'port=s' => \$port, + 'keepalive|k' => \$keepalive, + 'restart|r' => \$restart, + 'restartdelay|rd=s' => \$restart_delay, + 'restartregex|rr=s' => \$restart_regex, + 'restartdirectory=s@' => \$restart_directory, + 'followsymlinks' => \$follow_symlinks, +); + +pod2usage(1) if $help; + +if ( $restart && $ENV{CATALYST_ENGINE} eq 'HTTP' ) { + $ENV{CATALYST_ENGINE} = 'HTTP::Restarter'; +} +if ( $debug ) { + $ENV{CATALYST_DEBUG} = 1; +} + +# This is require instead of use so that the above environment +# variables can be set at runtime. +require HydraFrontend; + +HydraFrontend->run( $port, $host, { + argv => \@argv, + 'fork' => $fork, + keepalive => $keepalive, + restart => $restart, + restart_delay => $restart_delay, + restart_regex => qr/$restart_regex/, + restart_directory => $restart_directory, + follow_symlinks => $follow_symlinks, +} ); + +1; + +=head1 NAME + +hydrafrontend_server.pl - Catalyst Testserver + +=head1 SYNOPSIS + +hydrafrontend_server.pl [options] + + Options: + -d -debug force debug mode + -f -fork handle each request in a new process + (defaults to false) + -? -help display this help and exits + -host host (defaults to all) + -p -port port (defaults to 3000) + -k -keepalive enable keep-alive connections + -r -restart restart when files get modified + (defaults to false) + -rd -restartdelay delay between file checks + -rr -restartregex regex match files that trigger + a restart when modified + (defaults to '\.yml$|\.yaml$|\.conf|\.pm$') + -restartdirectory the directory to search for + modified files, can be set mulitple times + (defaults to '[SCRIPT_DIR]/..') + -follow_symlinks follow symlinks in search directories + (defaults to false. this is a no-op on Win32) + See also: + perldoc Catalyst::Manual + perldoc Catalyst::Manual::Intro + +=head1 DESCRIPTION + +Run a Catalyst Testserver for this application. + +=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/HydraFrontend/script/hydrafrontend_test.pl b/src/HydraFrontend/script/hydrafrontend_test.pl new file mode 100755 index 00000000..b139bd43 --- /dev/null +++ b/src/HydraFrontend/script/hydrafrontend_test.pl @@ -0,0 +1,53 @@ +#!/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 'HydraFrontend'; + +my $help = 0; + +GetOptions( 'help|?' => \$help ); + +pod2usage(1) if ( $help || !$ARGV[0] ); + +print request($ARGV[0])->content . "\n"; + +1; + +=head1 NAME + +hydrafrontend_test.pl - Catalyst Test + +=head1 SYNOPSIS + +hydrafrontend_test.pl [options] uri + + Options: + -help display this help and exits + + Examples: + hydrafrontend_test.pl http://localhost/some_action + hydrafrontend_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