/[CCFs]/bin/ccfnotify
ViewVC logotype

Diff of /bin/ccfnotify

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ccflib, Mon Mar 18 18:28:57 2002 UTC revision 1.12 by ccflib, Tue Aug 28 13:07:26 2018 UTC
# Line 1  Line 1 
1  #! /usr/local/bin/perl -w  #! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl -w
2  #  #
3  # Giuseppe Vacanti (cosine science & computing)  # After several changes in mail gtwy at ESAC, the different mail addresses
4  # $Date: 2002/03/18 17:19:22 $  # have been changed.
5  #  #
6  # It receives the mirror log for the current package on stdin.  # Mailman mail distribution lists have to be of the form: list@xmm.esac.esa.int
7    #
8    # $replyto for xmm-it, sas-devel should now go to : eduardo.ojero@esa.it
9    #
10    # $Id: ccfnotify,v 1.11 2017/02/21 10:58:55 ccflib Exp $
11  #  #
12  require 5;  require 5;
13  use FileHandle;  use FileHandle;
# Line 12  use strict; Line 16  use strict;
16    
17  my %opts;  my %opts;
18  getopts('t:d', \%opts); # -t development|release|public  getopts('t:d', \%opts); # -t development|release|public
19                          # -d => @names (below) were deleted                          # -d => @names (see next line) were deleted
20  my @names = @ARGV; # the rest of the command line contains the names of the  my @names = @ARGV; # the rest of the command line contains the names of the
21                     # CCF constituents                     # CCF constituents
22    
# Line 22  my $update = $opts{'t'}; Line 26  my $update = $opts{'t'};
26  my @to;  my @to;
27  my $replyto;  my $replyto;
28  my $subject;  my $subject;
29  my $delete;  my $delete = $opts{'d'};
30    
31  foreach($update){  foreach($update){
32        
33    /^development$/ && do {    /^development$/ && do {
34      @to = qw/xmm-it sas-devel/;      @to = qw/sas-devel\@xmm.esac.esa.int/;
35      $subject = "Update of the $update CCF area";      $subject = "Update of the $update CCF area";
36      $replyto = 'xmm-it@xmm.vilspa.esa.es';      $replyto = 'eduardo.ojero@esa.int';
     $delete = $opts{'d'};  
37      next;      next;
38    };    };
39        
40    /^release$/ && do {    /^release$/ && do {
41      @to = qw/xmm-it sas-devel/;      @to = qw/ccf\@sciops.esa.int sas-devel\@xmm.esac.esa.int/;
42      $subject = "Update of the $update CCF area";      $subject = "Update of the $update CCF area";
43      $replyto = 'xmm-it@xmm.vilspa.esa.es';      $replyto = 'eduardo.ojero@esa.int';
44      next;      next;
45    };    };
46        
47    /^public$/ && do {    /^public$/ && do {
48      @to = qw/ccf xmm-it sas-devel/;      @to = qw/ccf\@sciops.esa.int sas-devel\@xmm.esac.esa.int/;
49      $subject = "XMM-Newton calibration update";      $subject = "XMM-Newton calibration update";
50      $replyto = 'xmmhelp@xmm.vilspa.esa.es';      $replyto = 'eduardo.ojero@esa.int';
51      next;      next;
52    };    };
53            
# Line 52  foreach($update){ Line 56  foreach($update){
56    
57  exit(0) if(not @names);  exit(0) if(not @names);
58        
59    #
60    # notice that sendmail is in /usr/lib not in /usr/bin or /usr/sbin
61    
62  foreach(@to){  foreach(@to){
63    my $fh = new FileHandle "|/usr/lib/sendmail -t" or die ("$!\n");    my $fh = new FileHandle "|/usr/lib/sendmail -t" or die ("$!\n");
64        
65    $fh->print("From: ccflib\@xmm.vilspa.esa.es    $fh->print("From: ccflib\@xmm.esac.esa.int
66  Reply-To: $replyto  Reply-To: $replyto
67  To: $_\@xmm.vilspa.esa.es  To: $_
68  Subject: $subject  Subject: $subject
69  ");  ");
70    
71    if($delete){    if($delete){
72      $fh->print("\nThe following calibration constituents were deleted:\n\n");      $fh->print("\nThe following calibration constituents were deleted or moved to another directory:\n\n");
73    } else {    } else {
74      $fh->print("\nThe following new calibration constituents are available:\n\n");      $fh->print("\nThe following new calibration constituents are available:\n\n");
75    }    }
# Line 76  Subject: $subject Line 82  Subject: $subject
82      $fh->print('      $fh->print('
83  For details and download instructions please refer to:  For details and download instructions please refer to:
84    
85    http://xmm.vilspa.esa.es/calibration/    https://www.cosmos.esa.int/web/xmm-newton/calibration
86    http://xmm.vilspa.esa.es/calibration/releasenotes/    https://www.cosmos.esa.int/web/xmm-newton/ccf-release-notes
87    
88  Best regards,  Best regards,
89    
90  The XMM-Newton Calibration Librarian  The XMM-Newton Calibration Librarian
91  xmmhelp@xmm.vilspa.esa.es  ---------------------------------------------------------------
92    Please reply to: ');
93  ');      $fh->print(" $replyto\n");
94    
95  undef $fh;  undef $fh;
96    
97    }    }
98    
99  }  }
   
   
   
   
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.27