Finishing off 'query2*' scripts
Database/hosts_list.tpl, Database/hosts_showcount.sqlite.sql: examples of using 'query2tt2' Database/query2csv, Database/query2json, Database/query2tt2: minor bug fix relating to '-dbarg=ARG' option
This commit is contained in:
@@ -28,7 +28,7 @@
|
||||
# AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com
|
||||
# VERSION: 0.0.8
|
||||
# CREATED: 2021-06-18 13:24:49
|
||||
# REVISION: 2025-05-07 17:19:15
|
||||
# REVISION: 2025-05-09 14:13:04
|
||||
#
|
||||
#===============================================================================
|
||||
|
||||
@@ -119,7 +119,6 @@ pod2usage(
|
||||
-noperldoc => 0,
|
||||
) if ( $options{'documentation'} );
|
||||
|
||||
|
||||
#
|
||||
# Collect options
|
||||
#
|
||||
@@ -420,8 +419,8 @@ sub _dbargs {
|
||||
|
||||
my @args;
|
||||
|
||||
if ( defined( $opts->{dbargs} ) ) {
|
||||
@args = @{ $opts->{dbargs} };
|
||||
if ( defined( $opts->{dbarg} ) ) {
|
||||
@args = @{ $opts->{dbarg} };
|
||||
}
|
||||
|
||||
return (@args);
|
||||
@@ -469,7 +468,7 @@ sub Options {
|
||||
"help", "documentation|man",
|
||||
"debug=i", "config=s",
|
||||
"output=s", "query=s",
|
||||
"template=s", "dbargs=s@",
|
||||
"template=s", "dbarg=s@",
|
||||
"define=s%",
|
||||
);
|
||||
|
||||
|
Reference in New Issue
Block a user