Changeset 154

Timestamp:

Jan 17, 2018, 9:58:10 PM (7 years ago)

Author:

g7moreau

Message:

• Begin make-author implementation

Location:

trunk/project-meta

Files:

• Makefile (modified) (2 diffs)
• project-meta (modified) (5 diffs)
• template.d (added)
• template.d/AUTHORS.tt (added)

trunk/project-meta/Makefile

@@ -18 +18 @@
         @install -d -m 0755 -o root -g root $(DESTDIR)/$(SHAREDIR)
         @install -d -m 0755 -o root -g root $(DESTDIR)/$(SHAREDIR)/licence.d
+        @install -d -m 0755 -o root -g root $(DESTDIR)/$(SHAREDIR)/template.d
         #@install -d -m 0755 -o root -g root $(DESTDIR)/$(MANDIR)
 
@@ -26 +27 @@
         install    -m 0644 -o root -g root PROJECT-META.sample.yml $(DESTDIR)/$(SHAREDIR)
         install    -m 0644 -o root -g root licence.d/*.txt $(DESTDIR)/$(SHAREDIR)/licence.d
+        install    -m 0644 -o root -g root licence.d/*.tt  $(DESTDIR)/$(SHAREDIR)/template.d
 
         #@install -d -m 0755 -o root -g root $(DESTDIR)/$(COMPDIR)

trunk/project-meta/project-meta

@@ -10 +10 @@
 use Getopt::Long();
 use Cwd();
+use Template;
+
 
 my ($verbose);
@@ -80 +82 @@
 
    my $acronym     = $meta->{'project'}{'acronym'};
-   my $current_dir = "/fsnet/project/coriolis/2014/14CARR" ; # Cwd::getcwd();
+   my $current_dir = Cwd::getcwd();
    my $dap_folder  = $meta->{'public-dap'}{'dap-folder'};
 
@@ -106 +108 @@
    my $meta = YAML::Syck::LoadFile("PROJECT-META.yml");
    my $acronym = $meta->{'project'}{'acronym'};
-   my $current_dir = "/fsnet/project/coriolis/2014/14CARR" ; # Cwd::getcwd();
+   my $current_dir = Cwd::getcwd();
    my $dap_folder = $meta->{'public-dap'}{'dap-folder'};
 
@@ -133 +135 @@
 sub cmd_make_author {
    my $meta = YAML::Syck::LoadFile("PROJECT-META.yml");
+
+   my $current_dir = Cwd::getcwd();
+   my $template_author = "/usr/share/project-meta/template.d/AUTHORS.tt';
+   
+   my $acronym    = $meta->{'project'}{'acronym'};
+   my $authors_list = $meta->{'project'}{'authors'};
+   
+   my $tt = Template->new(INCLUDE_PATH => '/usr/share/project-meta/template.d');
+   my $msg_format = '';
+   $tt->process('AUTHORS.tt',
+      {
+         acronym    => $acronym,
+         authorlist => $authors_list,
+      }, \$msg_format) || die $tt->error;
+
+   print "$msg_format\n\n";
    }
 
@@ -156 +174 @@
    copy("/usr/share/project-meta/licence.d/$licence.txt", "$current_dir/LICENCE.txt")
       or die "Error: licence copy failed - $!";
+
+   print "Info: LICENCE.txt file create\n";
    return;
    }