From abd621d3cc6ce6b75da5468fa878636f6e2dd976 Mon Sep 17 00:00:00 2001 From: guido Date: Fri, 8 Feb 2002 13:36:58 +0000 Subject: [PATCH] announcement script git-svn-id: https://svn.dealii.org/trunk@5481 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/doc/RELEASE/announce.pl | 81 +++++++++++++++++++++++++++++++++ deal.II/doc/RELEASE/tasks | 1 + 2 files changed, 82 insertions(+) create mode 100644 deal.II/doc/RELEASE/announce.pl 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 [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 -- 2.39.5