Annotation of /bin/ccfnotify

#! /usr/local/bin/perl -w
#
# Giuseppe Vacanti (cosine science & computing)
#
# $Id$
#
require 5;
use FileHandle;
use Getopt::Std;
use strict;

my %opts;
getopts('t:d', \%opts); # -t development|release|public
                        # -d => @names (see next line) were deleted
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;
my $delete = $opts{'d'};

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);
  
# test
#######@to = qw/gvacanti/;

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
");

  if($delete){
    $fh->print("\nThe following calibration constituents were deleted or moved to another directory:\n\n");
  } else {
    $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/calibration/releasenotes/

Best regards,

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

');

undef $fh;

  }

}


1	ccflib	1.1	#! /usr/local/bin/perl -w
2			#
3			# Giuseppe Vacanti (cosine science & computing)
4			#
5	ccflib	1.4	# $Id$
6	ccflib	1.1	#
7			require 5;
8			use FileHandle;
9			use Getopt::Std;
10			use strict;
11
12			my %opts;
13	ccflib	1.2	getopts('t:d', \%opts); # -t development\|release\|public
14	ccflib	1.3	# -d => @names (see next line) were deleted
15	ccflib	1.1	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	ccflib	1.4	my $delete = $opts{'d'};
25
26	ccflib	1.1	foreach($update){
27
28			/^development$/ && do {
29			@to = qw/xmm-it sas-devel/;
30			$subject = "Update of the $update CCF area";
31			$replyto = 'xmm-it@xmm.vilspa.esa.es';
32			next;
33			};
34
35			/^release$/ && do {
36			@to = qw/xmm-it sas-devel/;
37			$subject = "Update of the $update CCF area";
38			$replyto = 'xmm-it@xmm.vilspa.esa.es';
39			next;
40			};
41
42			/^public$/ && do {
43			@to = qw/ccf xmm-it sas-devel/;
44			$subject = "XMM-Newton calibration update";
45			$replyto = 'xmmhelp@xmm.vilspa.esa.es';
46			next;
47			};
48
49			die("Wrong -t option: $update\n");
50			}
51
52			exit(0) if(not @names);
53
54	ccflib	1.3	# test
55	ccflib	1.4	#######@to = qw/gvacanti/;
56	ccflib	1.1
57			foreach(@to){
58			my $fh = new FileHandle "\|/usr/lib/sendmail -t" or die ("$!\n");
59
60			$fh->print("From: ccflib\@xmm.vilspa.esa.es
61			Reply-To: $replyto
62			To: $_\@xmm.vilspa.esa.es
63			Subject: $subject
64			");
65
66	ccflib	1.2	if($delete){
67	ccflib	1.4	$fh->print("\nThe following calibration constituents were deleted or moved to another directory:\n\n");
68	ccflib	1.2	} else {
69			$fh->print("\nThe following new calibration constituents are available:\n\n");
70			}
71	ccflib	1.1
72			foreach(@names){
73			$fh->print("$_\n");
74			}
75
76			if($update eq "public"){
77			$fh->print('
78			For details and download instructions please refer to:
79
80			http://xmm.vilspa.esa.es/calibration/
81	ccflib	1.2	http://xmm.vilspa.esa.es/calibration/releasenotes/
82	ccflib	1.1
83			Best regards,
84
85			The XMM-Newton Calibration Librarian
86			xmmhelp@xmm.vilspa.esa.es
87
88			');
89
90			undef $fh;
91
92			}
93
94			}
95
96
97
98
99