Easy db deployment

README.md

@@ -18,3 +18,12 @@ On a Debian system install the following packages:
 ```
 geoip-bin libgeoip-dev geoip-database-contrib
 ```
+
+# DB deployment instructions
+
+* Install PostgreSQL
+* Install PerlDancer with dependencies with ``cpanm .`` in a Git checkout directory
+* psql create perldance
+* ./bin/dh-install
+* ./bin/dh-prepare-upgrade && ./bin/dh-upgrade
+* Done!

bin/dh-install

@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+use Dancer qw/:script/;
+use Dancer::Plugin::DBIC;
+use DBIx::Class::DeploymentHandler;
+
+my $schema = schema;
+my $dh     = DBIx::Class::DeploymentHandler->new(
+    {
+        schema              => $schema,
+        databases           => 'PostgreSQL',
+        sql_translator_args => { add_drop_table => 0 },
+        force_overwrite => 1,
+    }
+);
+$dh->prepare_version_storage_install;
+$dh->prepare_install({ version => 1 });
+$dh->install({ version => 1 });

bin/dh-prepare-upgrade

@@ -12,7 +12,8 @@ my $dh     = DBIx::Class::DeploymentHandler->new(
     {
         schema              => $schema,
         databases           => 'PostgreSQL',
-        sql_translator_args => { add_drop_table => 0 }
+        sql_translator_args => { add_drop_table => 0 },
+        force_overwrite => 1,
     }
 );
 $dh->prepare_deploy;

bin/dh-upgrade

@@ -12,12 +12,13 @@ my $dh     = DBIx::Class::DeploymentHandler->new(
     {
         schema              => $schema,
         databases           => 'PostgreSQL',
-        sql_translator_args => { add_drop_table => 0 }
+        sql_translator_args => { add_drop_table => 0 },
+        force_overwrite => 1,
     }
 );
 $dh->upgrade(
     {
         from_version => $dh->database_version,
-        to_version => $dh->schema_version
+        to_version => $dh->schema_version,
     }
 );

lib/PerlDance/Schema/Upgrades/2016.pm

@@ -33,10 +33,10 @@ sub upgrade {
 
     # register organizators, gurus, speakers ...
     my %attendees = (
-        'xsawyerx@cpan.org' => 1,
+        'xsawyerx@gmail.com' => 1,
         '[email protected]' => 1,
         '[email protected]' => 1,
-        '[email protected]' => 1,
+        #'[email protected]' => 1,
         '[email protected]' => 1,
     );
 

lib/PerlDance/Schema/Upgrades/2016/Tickets.pm

@@ -39,6 +39,9 @@ sub upgrade {
     my $self = shift;
     my $schema = $self->schema;
 
+    my $conference = $schema->resultset('Conference')->find({
+        name => 'Perl Dancer Conference 2016',
+    });
     # create new product(s)
     my $tickets = $self->tickets;
 
@@ -48,7 +51,7 @@ sub upgrade {
         my $conf = $schema->resultset('ConferenceTicket')->create(
             {
                 sku => $t_prod->sku,
-                conferences_id => 2
+                conferences_id => $conference->id,
             },
         );
 

sql/PostgreSQL/deploy/22/001-auto-__VERSION.sql

@@ -0,0 +1,18 @@
+-- 
+-- Created by SQL::Translator::Producer::PostgreSQL
+-- Created on Thu Aug  4 00:25:30 2016
+-- 
+;
+--
+-- Table: dbix_class_deploymenthandler_versions
+--
+CREATE TABLE "dbix_class_deploymenthandler_versions" (
+  "id" serial NOT NULL,
+  "version" character varying(50) NOT NULL,
+  "ddl" text,
+  "upgrade_sql" text,
+  PRIMARY KEY ("id"),
+  CONSTRAINT "dbix_class_deploymenthandler_versions_version" UNIQUE ("version")
+);
+
+;