view release on metacpan or  search on metacpan

lib/App/Office/CMS/.htoffice.cms.conf  view on Meta::CPAN

# ---------
# This is a URL.
# My DocumentRoot:    /dev/shm/html.
# hence my disk path: /dev/shm/html/assets/css/app/office/cms.

css_url = /assets/css/app/office/cms

# Database stuff
# --------------
# Note:
# o sqlite_unicode=1 is only for DBD::SQLite.
#   If not using SQLite, you can safely leave that line in here.
# o Backup stuff (above) also refers to database stuff.
# o Session stuff (below) also refers to database stuff.
# o pg_bytea and pg_text are used by Data::Session.

AutoCommit = 1
#dsn = dbi:SQLite:dbname=/tmp/cms.sqlite
#dsn = dbi:mysql:database=cms
dsn = dbi:Pg:dbname=cms
pg_bytea = 0
pg_text = 1
RaiseError = 1
sqlite_unicode = 1
username = cms
password = cms

# Session stuff
# -------------
# o Backup stuff (above) also refers to database stuff.
# o Database stuff (above) also refers to database stuff.

session_driver = driver:Pg;id:MD5;serialize:DataDumper
session_table_name = sessions

lib/App/Office/CMS/Database.pm  view on Meta::CPAN

sub BUILD
{
	my($self)   = @_;
	my($config) = $self -> config;
	my($attr)   =
	{
		AutoCommit => $$config{AutoCommit},
		RaiseError => $$config{RaiseError},
	};

	if ( ($$config{dsn} =~ /SQLite/i) && $$config{sqlite_unicode})
	{
		$$attr{sqlite_unicode} = 1;
	}

	$self -> dbh(DBI -> connect($$config{dsn}, $$config{username}, $$config{password}, $attr) );

=pod

use Modern::Perl;
use DBI;
use Exception::Class::DBI;