Changeset 161 for trunk/project-meta/project-meta

Timestamp:

Jan 18, 2018, 8:20:33 AM (6 years ago)

Author:

g7moreau

Message:

• Add command list-licence and open-database-license-v1.0 licence

File:

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

trunk/project-meta/project-meta

@@ -29 +29 @@
    'make-licence'    => \&cmd_make_licence,
    'make-copyright'  => \&cmd_make_copyright,
+   'list-licence'    => \&cmd_list_licence,
    );
 
@@ -245 +246 @@
 
 ################################################################
+
+sub cmd_list_licence {
+   opendir my $dh, '/usr/share/project-meta/licence.d/' or die $!;
+   for my $licence (readdir $dh) {
+      # next if not -t $licence;
+      print "$licence\n";
+      }
+   closedir $dh;
+   }