Don't spawn db if already spawned.

mojomojo · Aug 1, 2009 · 4d46f42 · 4d46f42
1 parent a1ea25d
commit 4d46f42
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/script/mojomojo_spawn_db.pl b/script/mojomojo_spawn_db.pl
@@ -84,6 +84,13 @@
 
 my $schema = MojoMojo::Schema->connect($dsn, $user, $pass) or 
   die "Failed to connect to database";
+
+# Check if database is already deployed by  
+# examining if the table Person exists and has a record.
+eval {  $schema->resultset('MojoMojo::Schema::Result::Person')->count };
+if (!$@ ) {
+    die "You have already deployed your database\n";
+}
 
 print <<"EOF";