CGI-Application-Demo-Dispatch

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

Revision history for Perl extension CGI::Application::Demo::Dispatch.

1.05  Fri Mar 11 13:22:00 2011
	- Fix typo in docs and code for FCGI::ProcManager. new({processes => 2}) should have been new({n_processes => 2}).
	- Real pre-req version #s in Build.PL and Makefile.PL, instead of using 0.
	- Move FCGI script from htdocs/local/dispatch to httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.fcgi.
	- Move CGI script from httpd/cgi-bin/dispatch.cgi to httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.cgi.
	- Add Plack script httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.psgi.
	- Reformat Build.PL and Makefile.PL.
	- Change the code so the Menu option responds the same way the Organization and Person options respond.

1.04  Tue Feb 15 16:31:00 2011
	- Replace /usr/bin/perl with /usr/bin/env perl.
	- Replace common::sense with use strict and use warnings, to get uninit var warnings.

1.03  Sun Feb 21 12:54:25 2010
	- Remove text 'All rights reserved' (for Debian licensing).
	- Remove POD heads 'Required Modules' and 'Changes'.
	- Replace personal doc root with /var/www.
	- Use namespace::autoclean with Moose.

MANIFEST  view on Meta::CPAN

Changelog.ini
CHANGES
htdocs/assets/templates/cgi/application/demo/dispatch/table.tmpl
htdocs/assets/templates/cgi/application/demo/dispatch/web.page.tmpl
httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.cgi
httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.fcgi
httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.psgi
httpd/conf/httpd.conf
lib/CGI/Application/Demo/Dispatch.pm
lib/CGI/Application/Demo/Dispatch/Base.pm
lib/CGI/Application/Demo/Dispatch/Menu.pm
lib/CGI/Application/Demo/Dispatch/Organization.pm
lib/CGI/Application/Demo/Dispatch/Person.pm
Makefile.PL
MANIFEST			This list of files
META.json
META.yml
README
t/pod.t
t/test.t

META.json  view on Meta::CPAN

   },
   "provides" : {
      "CGI::Application::Demo::Dispatch" : {
         "file" : "lib/CGI/Application/Demo/Dispatch.pm",
         "version" : "1.05"
      },
      "CGI::Application::Demo::Dispatch::Base" : {
         "file" : "lib/CGI/Application/Demo/Dispatch/Base.pm",
         "version" : "1.05"
      },
      "CGI::Application::Demo::Dispatch::Menu" : {
         "file" : "lib/CGI/Application/Demo/Dispatch/Menu.pm",
         "version" : "1.05"
      },
      "CGI::Application::Demo::Dispatch::Organization" : {
         "file" : "lib/CGI/Application/Demo/Dispatch/Organization.pm",
         "version" : "1.05"
      },
      "CGI::Application::Demo::Dispatch::Person" : {
         "file" : "lib/CGI/Application/Demo/Dispatch/Person.pm",
         "version" : "1.05"
      }

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: CGI-Application-Demo-Dispatch
provides:
  CGI::Application::Demo::Dispatch:
    file: lib/CGI/Application/Demo/Dispatch.pm
    version: 1.05
  CGI::Application::Demo::Dispatch::Base:
    file: lib/CGI/Application/Demo/Dispatch/Base.pm
    version: 1.05
  CGI::Application::Demo::Dispatch::Menu:
    file: lib/CGI/Application/Demo/Dispatch/Menu.pm
    version: 1.05
  CGI::Application::Demo::Dispatch::Organization:
    file: lib/CGI/Application/Demo/Dispatch/Organization.pm
    version: 1.05
  CGI::Application::Demo::Dispatch::Person:
    file: lib/CGI/Application/Demo/Dispatch/Person.pm
    version: 1.05
requires:
  CGI: 3.52
  CGI::Application: 4.31

httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.cgi  view on Meta::CPAN

# ---------------------

my($cgi) = CGI -> new();

CGI::Application::Dispatch -> dispatch
(
 args_to_new => {QUERY => $cgi},
 prefix      => 'CGI::Application::Demo::Dispatch',
 table       =>
 [
  ''         => {app => 'Menu', rm => 'display'},
  ':app'     => {rm => 'display'},
  ':app/:rm' => {},
 ],
);

httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.fcgi  view on Meta::CPAN

while ($cgi = CGI::Fast -> new() )
{
	$proc_manager -> pm_pre_dispatch();

	CGI::Application::Dispatch -> dispatch
	(
	 args_to_new => {QUERY => $cgi},
	 prefix      => 'CGI::Application::Demo::Dispatch',
	 table       =>
	 [
	  ''         => {app => 'Menu', rm => 'display'},
	  ':app'     => {rm => 'display'},
	  ':app/:rm' => {},
	 ],
	);

	$proc_manager -> pm_post_dispatch();
}

httpd/cgi-bin/cgi/application/demo/dispatch/dispatch.psgi  view on Meta::CPAN

use Plack::Builder;

# ---------------------

my($app) = CGI::Application::Dispatch -> as_psgi
(
	 prefix      => 'CGI::Application::Demo::Dispatch',
	 table       =>
	 [
	  ''         => {app => 'Menu', rm => 'display'},
	  ':app'     => {rm => 'display'},
	  ':app/:rm' => {},
	 ],
);

builder
{
	enable "Plack::Middleware::Static",
	path => qr!^/(assets|favicon|yui)/!,
	root => '/dev/shm/html';

lib/CGI/Application/Demo/Dispatch.pm  view on Meta::CPAN

	# ---------------------

	my($cgi) = CGI -> new();

	CGI::Application::Dispatch -> dispatch
	(
		args_to_new => {QUERY => $cgi},
 		prefix      => 'CGI::Application::Demo::Dispatch',
 		table       =>
		[
 		''         => {app => 'Menu', rm => 'display'},
 		':app'     => {rm => 'initialize'},
 		':app/:rm' => {},
		],
	);

A Plack script:

	#!/usr/bin/env perl
	#
	# Run with:

lib/CGI/Application/Demo/Dispatch.pm  view on Meta::CPAN

	use Plack::Builder;

	# ---------------------

	my($app) = CGI::Application::Dispatch -> as_psgi
	(
		 prefix      => 'CGI::Application::Demo::Dispatch',
		 table       =>
		 [
		  ''         => {app => 'Menu', rm => 'display'},
		  ':app'     => {rm => 'initialize'},
		  ':app/:rm' => {},
		 ],
	);

	builder
	{
		enable "Plack::Middleware::Static",
		path => qr!^/(assets|favicon|yui)/!,
		root => '/dev/shm/html';

lib/CGI/Application/Demo/Dispatch.pm  view on Meta::CPAN

	while ($cgi = CGI::Fast -> new() )
	{
		$proc_manager -> pm_pre_dispatch();

		CGI::Application::Dispatch -> dispatch
		(
		 args_to_new => {QUERY => $cgi},
		 prefix      => 'CGI::Application::Demo::Dispatch',
		 table       =>
		 [
		  ''         => {app => 'Menu', rm => 'display'},
		  ':app'     => {rm => 'initialize'},
		  ':app/:rm' => {},
		 ],
		);

		$proc_manager -> pm_post_dispatch();
	}

=head1 Description

lib/CGI/Application/Demo/Dispatch/Menu.pm  view on Meta::CPAN

package CGI::Application::Demo::Dispatch::Menu;

# Author:
#	Ron Savage <ron@savage.net.au>

use base 'CGI::Application::Demo::Dispatch::Base';
use strict;
use warnings;

our $VERSION = '1.05';

lib/CGI/Application/Demo/Dispatch/Organization.pm  view on Meta::CPAN

{
	my($self) = @_;
	my($url)  = $self -> url();
	$url      =~ s|/Organization$||;

	my(@row);

	push @row, {th => 'Package',  td => __PACKAGE__};
	push @row, {th => 'Run mode', td => $self -> get_current_runmode()};
	push @row, {th => 'URL',      td => $self -> path_info()};
 	push @row, {th => 'Go to',    td => "<a href='$url/Menu'>Menu</a>"};
 	push @row, {th => 'Go to',    td => "<a href='$url/Person'>Person</a>"};

	my($table) = $self -> load_tmpl('table.tmpl');

	$table -> param(tr_loop => \@row);

	my($page) = $self -> load_tmpl('web.page.tmpl');

	$page -> param(content => $table -> output() );

lib/CGI/Application/Demo/Dispatch/Person.pm  view on Meta::CPAN

{
	my($self) = @_;
	my($url)  = $self -> url();
	$url      =~ s|/Person$||;

	my(@row);

	push @row, {th => 'Package',  td => __PACKAGE__};
	push @row, {th => 'Run mode', td => $self -> get_current_runmode()};
	push @row, {th => 'URL',      td => $self -> path_info()};
 	push @row, {th => 'Go to',    td => "<a href='$url/Menu'>Menu</a>"};
 	push @row, {th => 'Go to',    td => "<a href='$url/Organization'>Organization</a>"};

	my($table) = $self -> load_tmpl('table.tmpl');

	$table -> param(tr_loop => \@row);

	my($page) = $self -> load_tmpl('web.page.tmpl');

	$page -> param(content => $table -> output() );