Changeset 405 for trunk

Timestamp:

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

Author:

g7moreau

Message:

• Small error in dataset size

File:

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

trunk/project-meta/project-meta

@@ -8 +8 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.1.6');
+use version; our $VERSION = version->declare('0.1.8');
 
 use File::Copy qw(copy);    
@@ -256 +256 @@
 sub cmd_dataset_size {
    my $meta = load_metadata();
-   my $current_dir = Cwd::getcwd();
+   my $data_set = $meta->{'public-dap'}{'data-set'};
+   my $total;
    for my $dataset (@{$data_set}) {
-      qx{du -sm $dataset};
-      }
+      my $cmd = qx{du -sm $dataset};
+      chomp $cmd;
+      my ($size, $inode) = split /\s+/, $cmd;
+      $total += $size;
+      printf "%-7i %s\n", $size, $inode;
+      }
+   print "%-7i %s\n", $total, 'TOTAL';
    }