From: Al Newkirk Date: Tue, 26 Jul 2011 07:39:52 +0000 (-0400) Subject: config file support for dbicdump script X-Git-Tag: 0.07011~54 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07f39b47394cb2c5e11a7ded6cbe974d9f50cfe5;p=dbsrgits%2FDBIx-Class-Schema-Loader.git config file support for dbicdump script Changes dbicdump so that if only one parameter is given it is used as the config file loaded with Config::Any. The config file must have the keys schema_class and connect_info, and optionally loader_options. --- diff --git a/lib/DBIx/Class/Schema/Loader.pm b/lib/DBIx/Class/Schema/Loader.pm index 7a9e4f6..ab10bf5 100644 --- a/lib/DBIx/Class/Schema/Loader.pm +++ b/lib/DBIx/Class/Schema/Loader.pm @@ -540,6 +540,8 @@ spb: Stephen Bennett Matias E. Fernandez +Al Newkirk + ... and lots of other folks. If we forgot you, please write the current maintainer or RT. diff --git a/script/dbicdump b/script/dbicdump index b51f0b8..c6fdf3a 100644 --- a/script/dbicdump +++ b/script/dbicdump @@ -6,10 +6,13 @@ dbicdump - Dump a schema using DBIx::Class::Schema::Loader =head1 SYNOPSIS + dbicdump dbicdump [-o = ] Examples: + $ dbicdump schema.conf + $ dbicdump -o dump_directory=./lib \ -o components='["InflateColumn::DateTime"]' \ MyApp::Schema dbi:SQLite:./foo.db '{ quote_char => "\"" }' @@ -29,6 +32,24 @@ On Windows that would be: -o components="[q{InflateColumn::DateTime}]" ^ -o preserve_case=1 ^ MyApp::Schema dbi:mysql:database=foo user pass "{ quote_char => q{`} }" + +Configuration Files must have schema_class and connect_info sections, +an example of a general config file is as follows: + + schema_class MyApp::Schema + + # connection string + + dsn dbi:mysql:example + user root + pass secret + + + # dbic loader options + + components InflateColumn::DateTime + components TimeStamp + =head1 DESCRIPTION @@ -65,6 +86,7 @@ under the same terms as Perl itself. use strict; use warnings; use Getopt::Long; +use Config::Any; use Pod::Usage; @@ -76,21 +98,49 @@ my $loader_options; GetOptions( 'loader-option|o=s%' => \&handle_option ); $loader_options->{dump_directory} ||= '.'; -my ($schema_class, @loader_connect_info) = @ARGV - or pod2usage(1); - -my $dsn = shift @loader_connect_info; - -my ($user, $pass) = $dsn =~ /sqlite/i ? ('', '') - : splice @loader_connect_info, 0, 2; - -my @extra_connect_info_opts = map parse_value($_), @loader_connect_info; - -make_schema_at( - $schema_class, - $loader_options, - [ $dsn, $user, $pass, @extra_connect_info_opts ], -); +if (@ARGV == 1) { + my $configuration_file = shift @ARGV; + my $configurations = + Config::Any->load_files( { + use_ext => 1, + flatten_to_hash => 1, + files => [$configuration_file] } ); + + my $c = (values %$configurations)[0]; + + unless (keys %{$c->{connect_info}} && $c->{schema_class}) { + pod2usage(1); + } + + my ($dsn, $user, $pass, $options) = + map { $c->{connect_info}->{$_} } qw/dsn user pass options/; + $options ||= {}; + $c->{loader_options}->{dump_directory} ||= + $loader_options->{dump_directory}; + + make_schema_at( + $c->{schema_class}, + $c->{loader_options} || {}, + [ $dsn, $user, $pass, %{$options} ], + ); +} +else { + my ($schema_class, @loader_connect_info) = @ARGV + or pod2usage(1); + + my $dsn = shift @loader_connect_info; + + my ($user, $pass) = $dsn =~ /sqlite/i ? ('', '') + : splice @loader_connect_info, 0, 2; + + my @extra_connect_info_opts = map parse_value($_), @loader_connect_info; + + make_schema_at( + $schema_class, + $loader_options, + [ $dsn, $user, $pass, @extra_connect_info_opts ], + ); +} exit 0;