rename db management scripts

Netdisco/bin/nd-dbic-versions

@@ -0,0 +1,51 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings FATAL => 'all';
+
+use Dancer ':script';
+use Dancer::Plugin::DBIC 'schema';
+
+use Netdisco::DB;
+use Getopt::Long;
+
+=head1 create_netdisco_schema_version
+
+This script creates SQL DDL files of the Netdisco database schema.
+
+If called without any CLI options, it makes one SQL DDL file which will
+initialize the complete schema to the current DBIx::Class specification.
+
+If called with the "-p <version>" option, upgrade SQL DDL command files
+are created between the specified version and the current DBIx::Class
+specification.
+
+=cut
+
+schema('netdisco')->create_ddl_dir(
+  'PostgreSQL', $version, $sql_dir, $preversion );
+
+my $sql_dir = $Netdisco::DB::schema_versions_dir;
+my $version = schema('netdisco')->schema_version;
+
+my ( $preversion, $help );
+GetOptions(
+  'p|preversion:s'  => \$preversion,
+) or do {
+  print <<ENDHELP;
+    $0 [-p <version>]
+
+    This script creates SQL DDL files of the Netdisco database schema.
+
+    If called without any CLI options, it makes one SQL DDL file which will
+    initialize the complete schema to the current DBIx::Class specification.
+
+    If called with the "-p <version>" option, upgrade SQL DDL command files
+    are created between the specified version and the current DBIx::Class
+    specification.
+
+    SQL DDL files are stored in:
+$sql_dir
+ENDHELP
+  exit(1);
+};