Changeset 188

Timestamp:

Jan 21, 2018, 12:17:43 PM (7 years ago)

Author:

g7moreau

Message:

• A very small refactoring

File:

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

trunk/project-meta/project-meta

@@ -1 +1 @@
 #!/usr/bin/env perl
 #
-# 2018/01/17 Gabriel Moreau
+# 2018/01/17 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
 #
 # apt-get install yamllint libyaml-syck-perl libtemplate-perl libarchive-zip-perl
@@ -13 +13 @@
 use Cwd();
 use Template;
+use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
 
 
@@ -53 +54 @@
 ################################################################
 
+sub print_ok {
+   my ($key, $test) = @_;
+   
+   printf "%-35s : %s\n", $key, $test ? 'yes' : 'no';
+   }
+
+################################################################
+
+sub addfolder2list {
+   my ($folderdb, $folder) = @_;
+   
+   $folder =~ s{/[^/]+$}{};
+   
+   return if $folder !~ m{/};
+
+   $folderdb->{$folder}++;
+   return addfolder2list($folderdb, $folder);
+   }
+
 ################################################################
 # command
@@ -82 +102 @@
 ################################################################
 
-sub print_ok {
-   my ($key, $test) = @_;
-   
-   printf "%-35s : %s\n", $key, $test ? 'yes' : 'no';
-   }
-
-################################################################
-
 sub cmd_check {
    my $meta = YAML::Syck::LoadFile("PROJECT-META.yml");
@@ -102 +114 @@
 
    #print YAML::Syck::Dump($meta);
-   }
-
-################################################################
-
-sub addfolder2list {
-   my ($folderdb, $folder) = @_;
-   
-   $folder =~ s{/[^/]+$}{};
-   
-   return if $folder !~ m{/};
-
-   $folderdb->{$folder}++;
-   return addfolder2list($folderdb, $folder);
    }
 
@@ -177 +176 @@
 
    # Create a Zip file
-   use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
-
    my $zip = Archive::Zip->new();
 
@@ -362 +359 @@
 =head1 DESCRIPTION
 
-C<project-meta> is a small tool to maintain a set of open data files.
-In order to help you in this task, C<project-meta> has a set of subcommand
-to generated and maintain many files.
+Project-Meta is a small tool to maintain a set of open data files.
+In order to help you in this task, C<project-meta> command has a set of action
+to generated and maintain many files in your dataset.
 
 Everything is declare in the metafile F<PROJECT-META.yml>.
 This YAML file must exist in your root projet folder.
-See L<METAFILE SPECIFICATION>.
+See L</METAFILE SPECIFICATION>.
 
 =head1 COMMANDS
@@ -375 +372 @@
 Theses could be not well defined, not finished, not well tested...
 You can read the source code and use them at your own risk
-(like for all the Klask code).
+(like for all the Project-Meta code).
 
 =head2 check
@@ -392 +389 @@
 
 The licence is defined in the PROJECT-META.yml specification under the key C<public-dap/data-licence>.
-The list of possible licence is given with the command L<list-licence>.
+The list of possible licence is given with the command L</list-licence>.
 
 =head2 list-licence
@@ -417 +414 @@
 
 
-=head1 BUG
-
- - make-link: folder/folder
- - make-link: support multiple doi
- - metafile: remove prop publication/url
+=head1 KNOWN BUGS
+
+ - not really check keys and tags before doing action!
 
 =head1 SEE ALSO
@@ -436 +431 @@
 The list of people below did not directly contribute to project-meta's source code
 but provided me with some data, returned bugs
-or helped me in another small task like having new ideas ...
+or helped me in another small task like having new ideas, specifications...
 Maybe I forgot your contribution in recent years,
 please forgive me in advance and send me an e-mail to correct this.