Changeset 408 for trunk

Timestamp:

Sep 4, 2019, 2:48:33 PM (5 years ago)

Author:

g7moreau

Message:

• Begin support for multi dataset in project meta YAML config file

File:

• trunk/project-meta/project-meta (modified) (7 diffs)

trunk/project-meta/project-meta

@@ -8 +8 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.1.9');
+use version; our $VERSION = version->declare('0.2.0');
 
 use File::Copy qw(copy);    
@@ -19 +19 @@
 our $CFG_VERSION = 2;
 
-my ($verbose);
-Getopt::Long::GetOptions(
-   'verbose' => \$verbose,
-   );
-
-
 my %CMD_DB = (
    'help'                  => \&cmd_help,
@@ -31 +25 @@
    'dap-publish'           => \&cmd_dap_publish,
    'dap-unpublish'         => \&cmd_dap_unpublish,
+   'dataset-list'          => \&cmd_dataset_list
    'dataset-size'          => \&cmd_dataset_size,
    'make-zip'              => \&cmd_make_zip,
@@ -140 +135 @@
  project-meta dap-publish
  project-meta dap-unpublish
- project-meta dataset-size
+ project-meta dataset-list
+ project-meta dataset-size [--verbose|-v] [--dataset|-d dataset]
  project-meta make-zip
  project-meta make-allfiles
@@ -254 +250 @@
 ################################################################
 
+sub cmd_dataset_list {
+   local @ARGV = @_;
+
+   my $meta = load_metadata();
+
+   die "Error: no dataset\n"
+      if not defined $meta->{'public-dap'}
+      or not defined $meta->{'public-dap'}{'data-set'};
+
+   my $data_set = $meta->{'public-dap'}{'data-set'};
+   if(ref($data_set) eq 'HASH') {
+      print "$_\n" for sort keys %{$data_set};
+      }
+   else {
+      print "default uname dataset\n";
+      }
+   }
+
+################################################################
+
 sub cmd_dataset_size {
+   local @ARGV = @_;
+   my ($verbose, $dataset_name);
+
+   Getopt::Long::GetOptions(
+      'verbose'        => \$verbose,
+      'dataset|d=s'    => \$dataset_name,
+      );
+
    my $meta = load_metadata();
    my $data_set = $meta->{'public-dap'}{'data-set'};
+   if ($dataset_name) {
+      if (exists $meta->{'public-dap'}{'data-set'}{$dataset_name}) {
+         $data_set = $meta->{'public-dap'}{'data-set'}{$dataset_name};
+         }
+      else {
+         die "Error, dataset $dataset_name does'nt exists\n";
+         }
+      }
    my $total;
    for my $dataset (@{$data_set}) {
@@ -474 +506 @@
  project-meta dap-publish
  project-meta dap-unpublish
- project-meta dataset-size
+ project-meta dataset-list
+ project-meta dataset-size [--verbose|-v] [--dataset|-d dataset]
  project-meta make-zip
  project-meta list-license
@@ -548 +581 @@
 Please verify the returned values before excuted it with the C<-delete> option.
 
+=head2 dataset-list
+
+ project-meta dataset-list
+
 =head2 dataset-size
 
- project-meta dataset-size
+ project-meta dataset-size [--verbose|-v] [--dataset|-d dataset]
 
 =head2 make-zip