]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
announcement script
authorguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 8 Feb 2002 13:36:58 +0000 (13:36 +0000)
committerguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 8 Feb 2002 13:36:58 +0000 (13:36 +0000)
git-svn-id: https://svn.dealii.org/trunk@5481 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/doc/RELEASE/announce.pl [new file with mode: 0644]
deal.II/doc/RELEASE/tasks

diff --git a/deal.II/doc/RELEASE/announce.pl b/deal.II/doc/RELEASE/announce.pl
new file mode 100644 (file)
index 0000000..9062b35
--- /dev/null
@@ -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");
+    }
+}
index b0e6fea8c5518254b2fc4d1a5ee258e7b519e6eb..0c084ddb03f9f8931661193ee3c159ebed5f70bd 100644 (file)
@@ -22,3 +22,4 @@ when a new release shall be issued:
 14/ wait overnight
 
 15/ announce the release
+       follow the instructions in ./announce.pl

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.