Changeset 404 for trunk

Timestamp:

Aug 30, 2019, 4:30:59 PM (5 years ago)

Author:

g7moreau

Message:

• Add command dataset-size

File:

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

trunk/project-meta/project-meta

@@ -8 +8 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.1.5');
+use version; our $VERSION = version->declare('0.1.6');
 
 use File::Copy qw(copy);    
@@ -31 +31 @@
    'dap-publish'           => \&cmd_dap_publish,
    'dap-unpublish'         => \&cmd_dap_unpublish,
+   'dataset-size'          => \&cmd_dataset_size,
    'make-zip'              => \&cmd_make_zip,
    'make-allfiles'         => \&cmd_make_allfiles,
@@ -139 +140 @@
  project-meta dap-publish
  project-meta dap-unpublish
+ project-meta dataset-size
  project-meta make-zip
  project-meta make-allfiles
@@ -252 +254 @@
 ################################################################
 
+sub cmd_dataset_size {
+   my $meta = load_metadata();
+   my $current_dir = Cwd::getcwd();
+   for my $dataset (@{$data_set}) {
+      qx{du -sm $dataset};
+      }
+   }
+
+################################################################
 sub cmd_make_zip {
    my $meta = load_metadata();
@@ -457 +468 @@
  project-meta dap-publish
  project-meta dap-unpublish
+ project-meta dataset-size
  project-meta make-zip
  project-meta list-license
@@ -530 +542 @@
 Please verify the returned values before excuted it with the C<-delete> option.
 
+=head2 dataset-size
+
+ project-meta dataset-size
+
 =head2 make-zip