Changeset 155 for trunk

Timestamp:

Jan 17, 2018, 10:08:49 PM (6 years ago)

Author:

g7moreau

Message:

• Small bug in AUTHORS.txt generation

Location:

trunk/project-meta

Files:

• Makefile (modified) (1 diff)
• project-meta (modified) (3 diffs)

trunk/project-meta/Makefile

@@ -27 +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    -m 0644 -o root -g root template.d/*.tt $(DESTDIR)/$(SHAREDIR)/template.d
 
         #@install -d -m 0755 -o root -g root $(DESTDIR)/$(COMPDIR)

trunk/project-meta/project-meta

@@ -2 +2 @@
 #
 # 2018/01/17 Gabriel Moreau
+#
+# apt-get install libyaml-syck-perl libtemplate-perl
 
 use strict;
@@ -137 +139 @@
 
    my $current_dir = Cwd::getcwd();
-   my $template_author = "/usr/share/project-meta/template.d/AUTHORS.tt';
-   
+   my $template_author = '/usr/share/project-meta/template.d/AUTHORS.tt';
+
    my $acronym    = $meta->{'project'}{'acronym'};
    my $authors_list = $meta->{'project'}{'authors'};
-   
+
+   if (-f "$current_dir/AUTHORS.txt") {
+      print "Warning: AUTHORS.txt already exists\n";
+      return;
+      }
+
    my $tt = Template->new(INCLUDE_PATH => '/usr/share/project-meta/template.d');
    my $msg_format = '';
@@ -150 +157 @@
       }, \$msg_format) || die $tt->error;
 
-   print "$msg_format\n\n";
+   open my $fh,  '>', "$current_dir/AUTHORS.txt" or die $!;
+   print $fh "$msg_format\n\n";
+   close $fh;
    }