From: guido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Fri, 8 Feb 2002 13:36:58 +0000 (+0000)
Subject: announcement script
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=abd621d3cc6ce6b75da5468fa878636f6e2dd976;p=dealii-svn.git

announcement script


git-svn-id: https://svn.dealii.org/trunk@5481 0785d39b-7218-0410-832d-ea1e28bc413d
---

diff --git a/deal.II/doc/RELEASE/announce.pl b/deal.II/doc/RELEASE/announce.pl
new file mode 100644
index 0000000000..9062b35837
--- /dev/null
+++ b/deal.II/doc/RELEASE/announce.pl
@@ -0,0 +1,81 @@
+#!/usr/bin/perl
+
+######################################################################
+# How to use this script:
+######################################################################
+# 1. Produce a file announce-$version, where
+#   $version = $Major.$minor[.$patchlevel]
+#
+# 2. Run this script like
+#
+#         perl announce.pl 3.3
+#
+#   This will send email to Guido, Ralf, Wolfgang.
+#
+# 3. Check if this email was correctly delivered.
+#
+# 4. Run the script again with additional 'ok':
+#
+#         perl announce.pl 3.3 ok
+#
+# 5. Remove addresses with delivery problems from the list!!!
+#
+######################################################################
+
+use strict;
+
+my $os = `uname -s`;
+
+# die "Use on Linux machines only !" unless ($os =~ m'Linux');
+die "Call as deal user" unless (`who am i` =~ m/deal/);
+
+my @recipients;
+
+my $test = 1;
+
+die "Usage: perl announce.pl <version> [ok]" if ($#ARGV<0);
+
+my $version = $ARGV[0];
+
+my $file = "announce-$version";
+die "Announcement file $file does not exist" unless (-r $file);
+
+
+$test = 0 if ($ARGV[1] eq 'ok');
+
+print "=====Announcing version $version=====\n";
+
+######################################################################
+# Undeliverable addresses are commented out.
+######################################################################
+
+if ($test)
+{
+    @recipients = ('wolf', 'guido.kanschat@gmx.net', 'hartmann');
+} else {
+    @recipients = (
+		  'deal@iwr.uni-heidelberg.de',
+#		  'kc@isc.tamu.edu',
+		  'tveldhui@extreme.indiana.edu',
+		  'sullivan@mathcom.com',
+		  'Ian_MacPhedran@engr.usask.ca',
+		  'roger@maths.grace.cri.nz',
+		  'oon-digest@oonumerics.org',
+		  'scicomp@uni-erlangen.de',
+		  'na.digest@na-net.ornl.gov',
+		  'num.info@hermes.iwr.uni-heidelberg.de',
+		  'kollegiaten@iwr.uni-heidelberg.de');
+}
+my $r;
+
+foreach $r (@recipients)
+{
+    print "$r\n";
+
+    if ($test)
+    {
+	system ("mailx -s 'deal.II Version $version released' -r deal\@iwr.uni-heidelberg.de $r < $file");
+    } else {
+	system ("mailx -s 'deal.II Version $version released' -r deal\@iwr.uni-heidelberg.de $r < $file");
+    }
+}
diff --git a/deal.II/doc/RELEASE/tasks b/deal.II/doc/RELEASE/tasks
index b0e6fea8c5..0c084ddb03 100644
--- a/deal.II/doc/RELEASE/tasks
+++ b/deal.II/doc/RELEASE/tasks
@@ -22,3 +22,4 @@ when a new release shall be issued:
 14/ wait overnight
 
 15/ announce the release
+       follow the instructions in ./announce.pl