X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fdbicadmin;h=2b6a456ebb4b6d431704207ce32fa0dfa38c5b63;hb=a4a02f15a49ccd4ab04bd18ff58d1de7fbe8b23f;hp=15bec6637ea402e2956e81bdf4e9ab3fd1cc1ffe;hpb=9c34993a245213636c321b22ce0ff2f18aaf8d9b;p=dbsrgits%2FDBIx-Class.git diff --git a/script/dbicadmin b/script/dbicadmin index 15bec66..2b6a456 100755 --- a/script/dbicadmin +++ b/script/dbicadmin @@ -1,65 +1,60 @@ #!/usr/bin/perl -# vim: ts=2 et + use strict; use warnings; +BEGIN { + use DBIx::Class; + die ( "The following modules are required for the dbicadmin utility\n" + . DBIx::Class::Optional::Dependencies->req_missing_for ('admin_script') + ) unless DBIx::Class::Optional::Dependencies->req_ok_for ('admin_script'); +} + use Getopt::Long::Descriptive; use DBIx::Class::Admin; - my ($opts, $usage) = describe_options( - "%c: %o", - ( - ['Actions'], - ["action" => hidden => { one_of => [ - ['create|c' => 'Create version diffs needs preversion',], - ['upgrade|u' => 'Upgrade the database to the current schema '], - ['install|i' => 'Install the schema to the database',], - ['deploy|d' => 'Deploy the a to the database',], - ['select|s' => 'Select data from the schema', ], - ['insert|i' => 'Insert data into the schema', ], - ['update|u' => 'Update data in the schema', ], - ['delete|D' => 'Delete data from the schema',], - ['op:s' => 'compatiblity option all of the above can be suppied as --op='], - ['help|h' => 'display this help'], - ], required=> 1 }], - ['Options'], - ['schema-class|schema|C:s' => 'The class of the schema to load', { required => 1 } ], - ['resultset|resultset_class|class|r:s' => 'The resultset to operate on for data manipulation' ], - ['config-stanza|S:s' => 'Where in the config to find the connection_info, supply in form MyApp::Model::DB',], - ['config|f:s' => 'Supply the config file for parsing by Config::Any', { depends => 'config_stanza'} ], - ['connect-info|n:s%' => 'Supply the connect info as additonal options ie -I dsn= user= password= '], - ['connect:s' => 'Supply the connect info as a json string' ], - ['sql-dir|q:s' => 'The directory where sql diffs will be created'], - ['sql-type|t:s' => 'The RDBMs flavour you wish to use'], - ['version|v:i' => 'Supply a version install'], - ['preversion|p:s' => 'The previous version to diff against',], - ['set:s' => 'JSON data used to perform data operations' ], - ['lib|I:s' => 'Additonal library path to search in'], - ['attrs:s' => 'JSON string to be used for the second argument for search'], - ['where:s' => 'JSON string to be used for the where clause of search'], - ['force' => 'Be forceful with some operations'], - ['trace' => 'Turn on DBIx::Class trace output'], - ['tlibs' => 'Include test dirs in @INC'], - ['quiet' => 'Be less verbose'], - ) + "%c: %o", + ( + ['Actions'], + ["action" => hidden => { one_of => [ + ['create|c' => 'Create version diffs needs preversion',], + ['upgrade|u' => 'Upgrade the database to the current schema '], + ['install|i' => 'Install the schema to the database',], + ['deploy|d' => 'Deploy the schema to the database',], + ['select|s' => 'Select data from the schema', ], + ['insert|i' => 'Insert data into the schema', ], + ['update|u' => 'Update data in the schema', ], + ['delete|D' => 'Delete data from the schema',], + ['op:s' => 'compatiblity option all of the above can be suppied as --op='], + ['help|h' => 'display this help'], + ], required=> 1 }], + ['Options'], + ['schema-class|schema|C:s' => 'The class of the schema to load', { required => 1 } ], + ['resultset|resultset_class|class|r:s' => 'The resultset to operate on for data manipulation' ], + ['config-stanza|S:s' => 'Where in the config to find the connection_info, supply in form MyApp::Model::DB',], + ['config|f:s' => 'Supply the config file for parsing by Config::Any', { depends => 'config_stanza'} ], + ['connect-info|n:s%' => 'Supply the connect info as additonal options ie -I dsn= user= password= '], + ['connect:s' => 'Supply the connect info as a json string' ], + ['sql-dir|q:s' => 'The directory where sql diffs will be created'], + ['sql-type|t:s' => 'The RDBMs flavour you wish to use'], + ['version|v:i' => 'Supply a version install'], + ['preversion|p:s' => 'The previous version to diff against',], + ['set:s' => 'JSON data used to perform data operations' ], + ['lib|I:s' => 'Additonal library path to search in'], + ['attrs:s' => 'JSON string to be used for the second argument for search'], + ['where:s' => 'JSON string to be used for the where clause of search'], + ['force' => 'Be forceful with some operations'], + ['trace' => 'Turn on DBIx::Class trace output'], + ['quiet' => 'Be less verbose'], + ) ); - -if ($opts->{help}) { - print $usage->text; - exit 0; -} - -if ($opts->{tlibs}) { - unshift( @INC, 't/lib', 'lib' ); -} - -die "please only use one of --config or --connect-info" if ($opts->{config} and $opts->{connect_info}); +die "please only use one of --config or --connect-info\n" if ($opts->{config} and $opts->{connect_info}); # option compatability mangle if($opts->{connect}) { - $opts->{connect_info} = delete $opts->{connect}; + $opts->{connect_info} = delete $opts->{connect}; } my $admin = DBIx::Class::Admin->new( %$opts ); @@ -68,40 +63,33 @@ my $admin = DBIx::Class::Admin->new( %$opts ); my $action = $opts->{action}; $action = $opts->{op} if ($action eq 'op'); -my $res = $admin->$action(); -print "going to perform action $action\n"; +print "Performig action $action...\n"; + +my $res = $admin->$action(); if ($action eq 'select') { - my $csv_class; - my $format = $opts->{format} || 'tsv'; - die('Invalid format') if ($format!~/^tsv|csv$/s); - $csv_class = 'Text::CSV_XS'; - eval{ require Text::CSV_XS }; - if ($@) { - $csv_class = 'Text::CSV_PP'; - eval{ require Text::CSV_PP }; - die('The select op requires either the Text::CSV_XS or the Text::CSV_PP module') if ($@); - } - - my $csv = $csv_class->new({ - sep_char => ( $format eq 'tsv' ? "\t" : ',' ), - }); - foreach my $row (@$res) { - $csv->combine( @$row ); - print $csv->string()."\n"; - } -} + my $format = $opts->{format} || 'tsv'; + die('Invalid format') if ($format!~/^tsv|csv$/s); + require Text::CSV; + my $csv = Text::CSV->new({ + sep_char => ( $format eq 'tsv' ? "\t" : ',' ), + }); -=head1 AUTHOR + foreach my $row (@$res) { + $csv->combine( @$row ); + print $csv->string()."\n"; + } +} -Aran Deltac +=head1 AUTHOR -refactored by -Gordon Irving +See L. =head1 LICENSE -You may distribute this code under the same terms as Perl itself. +You may distribute this code under the same terms as Perl itself + +=cut