Changeset 412 for trunk

Timestamp:

Sep 5, 2019, 11:37:15 PM (5 years ago)

Author:

g7moreau

Message:

• Add multi-dataset support for publish and unpublish command

File:

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

trunk/project-meta/project-meta

@@ -8 +8 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.2.2');
+use version; our $VERSION = version->declare('0.2.3');
 
 use File::Copy qw(copy);    
@@ -146 +146 @@
  project-meta version
  project-meta check
- project-meta dap-publish
- project-meta dap-unpublish
+ project-meta dap-publish [--verbose|-v] [--dataset|-d dataset]
+ project-meta dap-unpublish [--verbose|-v] [--dataset|-d dataset]
  project-meta dataset-list
  project-meta dataset-size [--verbose|-v] [--dataset|-d dataset]
@@ -213 +213 @@
 
 sub cmd_dap_publish {
+   local @ARGV = @_;
+   my ($verbose, $dataset_name);
+
+   Getopt::Long::GetOptions(
+      'verbose'        => \$verbose,
+      'dataset|d=s'    => \$dataset_name,
+      );
+
    my $meta = load_metadata();
    my $current_dir = Cwd::getcwd();
@@ -218 +226 @@
    my $dap_folder  = $meta->{'public-dap'}{'dap-folder'};
    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";
+         }
+      }
 
    push @{$data_set}, 'AUTHORS.txt', 'COPYRIGHT.txt', 'LICENSE.txt';
@@ -234 +250 @@
    print "chmod o+rX,o-w '$current_dir'\n";
    print "mkdir -p '$dap_folder/$acronym'\n" if not -d "$dap_folder/$acronym";
+   if ($dataset_name) {
+      $acronym .= "/$dataset_name";
+      print "mkdir -p '$dap_folder/$acronym'\n" if not -d "$dap_folder/$acronym";
+      }
    for my $folder (sort keys %folders) {
       print "chmod o+rX,o-w '$current_dir/$folder'\n";
@@ -258 +278 @@
 
 sub cmd_dap_unpublish {
+   local @ARGV = @_;
+   my ($verbose, $dataset_name);
+
+   Getopt::Long::GetOptions(
+      'verbose'        => \$verbose,
+      'dataset|d=s'    => \$dataset_name,
+      );
+
    my $meta = load_metadata();
    my $current_dir = Cwd::getcwd();
    my $acronym     = $meta->{'project'}{'identifier'}{'acronym'};
    my $dap_folder  = $meta->{'public-dap'}{'dap-folder'};
+   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";
+         }
+      }
 
    die "Error: DAP folder match current folder" if $dap_folder =~ m{$current_dir} or $current_dir =~ m{$dap_folder};
 
+   $acronym .= "/$dataset_name" if $dataset_name;
    print "find '$dap_folder/$acronym/' -type l -o -type d -exec ls -l {} \+\n";
    print "find '$dap_folder/$acronym/' -type l -delete\n";
@@ -547 +585 @@
  project-meta version
  project-meta check
- project-meta dap-publish
- project-meta dap-unpublish
+ project-meta dap-publish [--verbose|-v] [--dataset|-d dataset]
+ project-meta dap-unpublish [--verbose|-v] [--dataset|-d dataset]
  project-meta dataset-list
  project-meta dataset-size [--verbose|-v] [--dataset|-d dataset]
@@ -587 +625 @@
 =head2 dap-publish
 
- project-meta dap-publish
+ project-meta dap-publish [--verbose|-v] [--dataset|-d dataset]
 
 Publish data on an OpeNDAP server.
@@ -610 +648 @@
 You have to verify ouput before eval it.
 
- project-meta dap-publish
- project-meta dap-publish | bash
+  project-meta dap-publish
+  project-meta dap-publish | bash
 
 =head2 dap-unpublish
 
- project-meta dap-unpublish
+ project-meta dap-unpublish [--verbose|-v] [--dataset|-d dataset]
 
 Unpublish data from the OpeNDAP server.