From 601b41083cf7c2186ecce70ec07aebdb9310edd6 Mon Sep 17 00:00:00 2001 From: Buchan Milne Date: Tue, 26 Oct 2010 14:51:48 +0000 Subject: Clean up repo --- script/catdap_cgi.pl | 30 ++++++++++++++++++++++++ script/catdap_create.pl | 57 +++++++++++++++++++++++++++++++++++++++++++++ script/catdap_fastcgi.pl | 47 +++++++++++++++++++++++++++++++++++++ script/catdap_i18n.sh | 16 +++++++++++++ script/catdap_server.pl | 60 ++++++++++++++++++++++++++++++++++++++++++++++++ script/catdap_test.pl | 40 ++++++++++++++++++++++++++++++++ 6 files changed, 250 insertions(+) create mode 100755 script/catdap_cgi.pl create mode 100755 script/catdap_create.pl create mode 100755 script/catdap_fastcgi.pl create mode 100755 script/catdap_i18n.sh create mode 100755 script/catdap_server.pl create mode 100755 script/catdap_test.pl (limited to 'script') diff --git a/script/catdap_cgi.pl b/script/catdap_cgi.pl new file mode 100755 index 0000000..dea0834 --- /dev/null +++ b/script/catdap_cgi.pl @@ -0,0 +1,30 @@ +#!/usr/bin/env perl + +use Catalyst::ScriptRunner; +Catalyst::ScriptRunner->run('CatDap', 'CGI'); + +1; + +=head1 NAME + +catdap_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/script/catdap_create.pl b/script/catdap_create.pl new file mode 100755 index 0000000..18c0239 --- /dev/null +++ b/script/catdap_create.pl @@ -0,0 +1,57 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use Catalyst::ScriptRunner; +Catalyst::ScriptRunner->run('CatDap', 'Create'); + +1; + +=head1 NAME + +catdap_create.pl - Create a new Catalyst Component + +=head1 SYNOPSIS + +catdap_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: + catdap_create.pl controller My::Controller + catdap_create.pl -mechanize controller My::Controller + catdap_create.pl view My::View + catdap_create.pl view MyView TT + catdap_create.pl view TT TT + catdap_create.pl model My::Model + catdap_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\ + dbi:SQLite:/tmp/my.db + catdap_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/script/catdap_fastcgi.pl b/script/catdap_fastcgi.pl new file mode 100755 index 0000000..110db29 --- /dev/null +++ b/script/catdap_fastcgi.pl @@ -0,0 +1,47 @@ +#!/usr/bin/env perl + +use Catalyst::ScriptRunner; +Catalyst::ScriptRunner->run('CatDap', 'FastCGI'); + +1; + +=head1 NAME + +catdap_fastcgi.pl - Catalyst FastCGI + +=head1 SYNOPSIS + +catdap_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/script/catdap_i18n.sh b/script/catdap_i18n.sh new file mode 100755 index 0000000..8c52d1c --- /dev/null +++ b/script/catdap_i18n.sh @@ -0,0 +1,16 @@ +#!/bin/sh + +app=CatDap + +if [ $# -eq 0 ] +then + xgettext.pl --output=lib/$app/I18N/messages.pot --directory=lib --directory=root + for po in lib/$app/I18N/*.po + do + file=`basename $po` + loc=${file%%.po} + msgmerge --update lib/$app/I18N/$loc.po lib/$app/I18N/messages.pot + done +else + msginit --input=lib/$app/I18N/messages.pot --output=lib/$app/I18N/$1.po --locale=$1 +fi diff --git a/script/catdap_server.pl b/script/catdap_server.pl new file mode 100755 index 0000000..b75954b --- /dev/null +++ b/script/catdap_server.pl @@ -0,0 +1,60 @@ +#!/usr/bin/env perl + +BEGIN { + $ENV{CATALYST_SCRIPT_GEN} = 40; +} + +use Catalyst::ScriptRunner; +Catalyst::ScriptRunner->run('CatDap', 'Server'); + +1; + +=head1 NAME + +catdap_server.pl - Catalyst Test Server + +=head1 SYNOPSIS + +catdap_server.pl [options] + + -d --debug force debug mode + -f --fork handle each request in a new process + (defaults to false) + -? --help display this help and exits + -h --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 --restart_delay delay between file checks + (ignored if you have Linux::Inotify2 installed) + -rr --restart_regex regex match files that trigger + a restart when modified + (defaults to '\.yml$|\.yaml$|\.conf|\.pm$') + --restart_directory 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) + --background run the process in the background + --pidfile specify filename for pid file + + 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/script/catdap_test.pl b/script/catdap_test.pl new file mode 100755 index 0000000..43f9849 --- /dev/null +++ b/script/catdap_test.pl @@ -0,0 +1,40 @@ +#!/usr/bin/env perl + +use Catalyst::ScriptRunner; +Catalyst::ScriptRunner->run('CatDap', 'Test'); + +1; + +=head1 NAME + +catdap_test.pl - Catalyst Test + +=head1 SYNOPSIS + +catdap_test.pl [options] uri + + Options: + --help display this help and exits + + Examples: + catdap_test.pl http://localhost/some_action + catdap_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 -- cgit v1.2.1