App-Office-Contacts

 view release on metacpan or  search on metacpan

Changelog.ini  view on Meta::CPAN

o Only accept CGI params if the request method is 'POST'.
o Ensure digest in session matches digest in cookie.
o http://www.freedom-to-tinker.com/blog/wzeller/popular-websites-vulnerable-cross-site-request-forgery-attacks
- Change 'use base' to 'use parent'.
- Remove form_action from config file. See sub script_name.
- Replace references to FCGI with Plack. This includes no longer
shipping FCGI-specific files nor patches to Apache's httpd.conf.
- Ship httpd/cgi-bin/office/contacts.psgi.
- Adopt Log::Dispatch::Configurator.
See App::Office::Contacts::Util::LogConfig.
- Replace Carp::croak with die, assuming calling code uses Try::Tiny.
- Stop using Time::Elapsed (at table create/populate time).
- Zap drop_and_create_all_tables() and run() from App::Office::Contacts::Util::Create.
- In drop.tables.pl and create.tables.pl, change the 'verbose+' option
definition to 'verbose', since the '+' doesn't make sense.
- Clean up what is real data and what is fake data.
- Rename data/email_addresses.txt => data/fake.email_addresses.txt.
- Rename data/email_people.txt => data/fake.email_people.txt.
- Rename data/people.txt => data/fake.people.txt.
- Rename data/phone_numbers.txt => data/fake.phone_numbers.txt.
- Rename data/phone_people.txt => data/fake.phone_people.txt.

Changes  view on Meta::CPAN

		o Only accept CGI params if the request method is 'POST'.
		o Ensure digest in session matches digest in cookie.
		o http://www.freedom-to-tinker.com/blog/wzeller/popular-websites-vulnerable-cross-site-request-forgery-attacks
	- Change 'use base' to 'use parent'.
	- Remove form_action from config file. See sub script_name.
	- Replace references to FCGI with Plack. This includes no longer
		shipping FCGI-specific files nor patches to Apache's httpd.conf.
	- Ship httpd/cgi-bin/office/contacts.psgi.
	- Adopt Log::Dispatch::Configurator.
		See App::Office::Contacts::Util::LogConfig.
	- Replace Carp::croak with die, assuming calling code uses Try::Tiny.
	- Stop using Time::Elapsed (at table create/populate time).
	- Zap drop_and_create_all_tables() and run() from App::Office::Contacts::Util::Create.
	- In drop.tables.pl and create.tables.pl, change the 'verbose+' option
		definition to 'verbose', since the '+' doesn't make sense.
	- Clean up what is real data and what is fake data.
	- Rename data/email_addresses.txt => data/fake.email_addresses.txt.
	- Rename data/email_people.txt => data/fake.email_people.txt.
	- Rename data/people.txt => data/fake.people.txt.
	- Rename data/phone_numbers.txt => data/fake.phone_numbers.txt.
	- Rename data/phone_people.txt => data/fake.phone_people.txt.

META.yml  view on Meta::CPAN

  Moo: 1.001
  Moo::Role: 0
  Path::Iterator::Rule: 1.005
  Path::Tiny: 0.004
  Perl6::Slurp: 0.03
  Pod::Usage: 1.51
  Sub::Exporter: 0.982
  Text::CSV::Encoded: 0.1
  Text::Xslate: 1.6002
  Time::Stamp: 1.3
  Try::Tiny: 0.12
  Unicode::Collate: 0.97
  charnames: 1.18
  feature: 1.2
  open: 1.08
  parent: 0.218
  perl: 5.14.0
  strict: 0
  utf8: 1.09
  warnings: 0
resources:

Makefile.PL  view on Meta::CPAN

requires 'parent'                    => 0.218;
requires 'Path::Iterator::Rule'      => 1.005;
requires 'Path::Tiny'                => 0.004;
requires 'Perl6::Slurp'              => 0.03;
requires 'Pod::Usage'                => 1.51;
requires 'strict'                    => 0;
requires 'Sub::Exporter'             => 0.982;
requires 'Text::CSV::Encoded'        => 0.10;
requires 'Text::Xslate'              => 1.6002;
requires 'Time::Stamp'               => 1.300;
requires 'Try::Tiny'                 => 0.12;
requires 'Unicode::Collate'          => 0.97;
requires 'utf8'                      => 1.09;
requires 'warnings'                  => 0;

test_requires 'Test::More' => 0.98;
#test_requires 'Test::Pod'  => 1.45; # Make it optional. See t/pod.t

WriteAll;

lib/App/Office/Contacts/Controller/AutoComplete.pm  view on Meta::CPAN

package App::Office::Contacts::Controller::AutoComplete;

use parent 'App::Office::Contacts::Controller';
use strict;
use utf8;
use warnings;
use warnings  qw(FATAL utf8); # Fatalize encoding glitches.

use JSON::XS;

use Try::Tiny;

# We don't use Moo because we isa CGI::Snapp.

our $VERSION = '2.04';

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

sub display
{
	my($self) = @_;

lib/App/Office/Contacts/Controller/Exporter/Note.pm  view on Meta::CPAN

	exports =>
	[qw/
		add
		cgiapp_init
		delete
		get_notes
		update
	/],
};

use Try::Tiny;

our $VERSION = '2.04';

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

sub add
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;

lib/App/Office/Contacts/Controller/Exporter/Occupation.pm  view on Meta::CPAN

		add_staff
		build_ok_xml
		cgiapp_init
		delete_occupation
		delete_staff
	/],
};

use Text::Xslate 'mark_raw';

use Try::Tiny;

our $VERSION = '2.04';

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

sub add_occupation
{
	my($self)      = @_;
	my($person_id) = $self -> query -> param('person_id');

lib/App/Office/Contacts/Controller/Exporter/Organization.pm  view on Meta::CPAN

	[qw/
		add
		cgiapp_init
		delete
		display
		get_staff
		update
	/],
};

use Try::Tiny;

our $VERSION = '2.04';

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

sub add
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;

lib/App/Office/Contacts/Controller/Exporter/Person.pm  view on Meta::CPAN

	[qw/
		add
		cgiapp_init
		delete
		display
		get_occupations
		update
	/],
};

use Try::Tiny;

our $VERSION = '2.04';

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

sub add
{
	my($self) = @_;

	$self -> param('db') -> simple -> begin_work;

lib/App/Office/Contacts/Controller/Exporter/Report.pm  view on Meta::CPAN

use Encode; # For encode().

use Sub::Exporter -setup =>
{
	exports =>
	[qw/
		display
	/],
};

use Try::Tiny;

our $VERSION = '2.04';

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

sub display
{
	my($self) = @_;

	$self -> log(debug => "Controller::Exporter::Report.display()");

lib/App/Office/Contacts/Controller/Exporter/Search.pm  view on Meta::CPAN

use Sub::Exporter -setup =>
{
	exports =>
	[qw/
		display
		remove_duplicates
	/],
};

use Try::Tiny;

our $VERSION = '2.04';

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

sub display
{
	my($self)   = @_;
	my($key)    = $self -> query -> param('search_name') || '';
	my($uc_key) = encode('utf-8', uc decode('utf-8', $key) );

lib/App/Office/Contacts/Controller/Initialize.pm  view on Meta::CPAN

package App::Office::Contacts::Controller::Initialize;

use parent 'App::Office::Contacts::Controller';
use strict;
use utf8;
use warnings;
use warnings  qw(FATAL utf8); # Fatalize encoding glitches.

use Try::Tiny;

# We don't use Moo because we isa CGI::Snapp.

our $VERSION = '2.04';

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

sub display
{
	my($self) = @_;

scripts/copy.config.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use File::Copy;
use File::ShareDir;

use Path::Tiny; # For path().

use Try::Tiny;

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

my($app_name)    = 'App-Office-Contacts';
my($config_name) = '.htapp.office.contacts.conf';

my($dist_dir);

try
{