From Ian Kelley ... changed format of created README to include both thorn

authors and thorn maintainers


git-svn-id: http://svn.cactuscode.org/flesh/trunk@3010 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 11 insertions, 5 deletions

diff --git a/lib/make/new_thorn.pl b/lib/make/new_thorn.pl
index 05ec24b7..b08948d2 100755
--- a/lib/make/new_thorn.pl
+++ b/lib/make/new_thorn.pl
@@ -40,13 +40,12 @@ if(!$package)
 }
 
 do {
-   push @author_names,  &prompt("Author Name");
+   push @author_names,  &prompt("Thorn Author Name");
    push @author_emails, &prompt("Email Address");
    $another_author = &prompt("Add another author? Y/N");
 } while ($another_author =~ /^y/i);
 
 
-
 chdir $package_dir;
 
 if(! -d "$package")
@@ -97,16 +96,23 @@ close OUT;
 
 open(OUT, ">README") || die "Cannot create README";
 
+print OUT "CVS info   : \$" . "Header:\$\n\n";
 print OUT "Cactus Code Thorn $thorn_name\n";
-print OUT "Authors    : ";
+print OUT "Thorn Author(s)     : ";
+for ($i = 0; $i < (@author_names); $i++) {
+   if ($i ne 0) { 
+      print OUT "\n                    : ";
+   }
+   print OUT "$author_names[$i] <$author_emails[$i]>";
+}
+print OUT "\nThorn Maintainer(s) : ";
 for ($i = 0; $i < (@author_names); $i++) {
    if ($i ne 0) {
-      print OUT "\n             ";
+      print OUT "\n                    : ";
    }
    print OUT "$author_names[$i] <$author_emails[$i]>";
 }
 print OUT "\n";
-print OUT "CVS info   : \$" . "Header:\$\n";
 print OUT "--------------------------------------------------------------------------\n";
 print OUT "\n";
 print OUT "Purpose of the thorn:\n";