Contents of /bin/ccfnotify

#! /usr/local/bin/perl -w
#
# Giuseppe Vacanti (cosine science & computing)
# $Date: 2002/02/18 20:23:57 $
#
# It receives the mirror log for the current package on stdin.
#
require 5;
use FileHandle;
use Getopt::Std;
use strict;

my %opts;
getopts('t:', \%opts); # -t development|release|public
my @names = @ARGV; # the rest of the command line contains the names of the
                   # CCF constituents

die("Usage: -t development|release|public\n") if(not exists $opts{'t'});

my $update = $opts{'t'};
my @to;
my $replyto;
my $subject;
foreach($update){
  
  /^development$/ && do {
    @to = qw/xmm-it sas-devel/;
    $subject = "Update of the $update CCF area";
    $replyto = 'xmm-it@xmm.vilspa.esa.es';
    next;
  };
  
  /^release$/ && do {
    @to = qw/xmm-it sas-devel/;
    $subject = "Update of the $update CCF area";
    $replyto = 'xmm-it@xmm.vilspa.esa.es';
    next;
  };
  
  /^public$/ && do {
    @to = qw/ccf xmm-it sas-devel/;
    $subject = "XMM-Newton calibration update";
    $replyto = 'xmmhelp@xmm.vilspa.esa.es';
    next;
  };
    
  die("Wrong -t option: $update\n");
}

exit(0) if(not @names);
  

foreach(@to){
  my $fh = new FileHandle "|/usr/lib/sendmail -t" or die ("$!\n");
  
  $fh->print("From: ccflib\@xmm.vilspa.esa.es
Reply-To: $replyto
To: $_\@xmm.vilspa.esa.es
Subject: $subject
");


  $fh->print("\nThe following new calibration constituents are available:\n\n");
  
  foreach(@names){
    $fh->print("$_\n");
  }

  if($update eq "public"){
    $fh->print('
For details and download instructions please refer to:

  http://xmm.vilspa.esa.es/calibration/
  http://xmm.vilspa.esa.es/ccf/releasenotes/

Best regards,

The XMM-Newton Calibration Librarian
xmmhelp@xmm.vilspa.esa.es

');

undef $fh;

  }

}


1	#! /usr/local/bin/perl -w
2	#
3	# Giuseppe Vacanti (cosine science & computing)
4	# $Date: 2002/02/18 20:23:57 $
5	#
6	# It receives the mirror log for the current package on stdin.
7	#
8	require 5;
9	use FileHandle;
10	use Getopt::Std;
11	use strict;
12
13	my %opts;
14	getopts('t:', \%opts); # -t development\|release\|public
15	my @names = @ARGV; # the rest of the command line contains the names of the
16	# CCF constituents
17
18	die("Usage: -t development\|release\|public\n") if(not exists $opts{'t'});
19
20	my $update = $opts{'t'};
21	my @to;
22	my $replyto;
23	my $subject;
24	foreach($update){
25
26	/^development$/ && do {
27	@to = qw/xmm-it sas-devel/;
28	$subject = "Update of the $update CCF area";
29	$replyto = 'xmm-it@xmm.vilspa.esa.es';
30	next;
31	};
32
33	/^release$/ && do {
34	@to = qw/xmm-it sas-devel/;
35	$subject = "Update of the $update CCF area";
36	$replyto = 'xmm-it@xmm.vilspa.esa.es';
37	next;
38	};
39
40	/^public$/ && do {
41	@to = qw/ccf xmm-it sas-devel/;
42	$subject = "XMM-Newton calibration update";
43	$replyto = 'xmmhelp@xmm.vilspa.esa.es';
44	next;
45	};
46
47	die("Wrong -t option: $update\n");
48	}
49
50	exit(0) if(not @names);
51
52
53	foreach(@to){
54	my $fh = new FileHandle "\|/usr/lib/sendmail -t" or die ("$!\n");
55
56	$fh->print("From: ccflib\@xmm.vilspa.esa.es
57	Reply-To: $replyto
58	To: $_\@xmm.vilspa.esa.es
59	Subject: $subject
60	");
61
62
63	$fh->print("\nThe following new calibration constituents are available:\n\n");
64
65	foreach(@names){
66	$fh->print("$_\n");
67	}
68
69	if($update eq "public"){
70	$fh->print('
71	For details and download instructions please refer to:
72
73	http://xmm.vilspa.esa.es/calibration/
74	http://xmm.vilspa.esa.es/ccf/releasenotes/
75
76	Best regards,
77
78	The XMM-Newton Calibration Librarian
79	xmmhelp@xmm.vilspa.esa.es
80
81	');
82
83	undef $fh;
84
85	}
86
87	}
88
89
90
91
92