52 lines
1.3 KiB
Perl
Executable File
52 lines
1.3 KiB
Perl
Executable File
#!/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 nd-dbic-versions
|
|
|
|
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);
|
|
};
|