[Bast-commits] r8297 - ironman/IronMan-Web/script

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-01-13 17:09:27 +0000 (Wed, 13 Jan 2010)
New Revision: 8297

Added:
   ironman/IronMan-Web/script/upgrade-db-schema.pl
Log:
Adding a database schema update script to svn

Added: ironman/IronMan-Web/script/upgrade-db-schema.pl
===================================================================
--- ironman/IronMan-Web/script/upgrade-db-schema.pl	                        (rev 0)
+++ ironman/IronMan-Web/script/upgrade-db-schema.pl	2010-01-13 17:09:27 UTC (rev 8297)
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Getopt::Long;
+use Pod::Usage;
+
+use SQL::Translator;
+use IronMan::Schema;
+
+my ($db_path);
+
+GetOptions(
+    'db_path=s'   => \$db_path,
+) or die pod2usage;
+
+unless($db_path) {
+   print "bugger";
+   die pod2usage;
+}
+
+my $schema = IronMan::Schema->connect("dbi:SQLite:$db_path");
+
+if (!$schema->get_db_version()) {
+# schema is unversioned
+    $schema->deploy();
+} else {
+    $schema->upgrade();
+}


Property changes on: ironman/IronMan-Web/script/upgrade-db-schema.pl
___________________________________________________________________
Name: svn:executable
   + *