/[CCFs]/bin/ccfnotify
ViewVC logotype

Diff of /bin/ccfnotify

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

revision 1.4 by ccflib, Wed Nov 26 13:57:42 2003 UTC revision 1.5 by ccflib, Wed Dec 7 14:48:45 2005 UTC
# Line 2  Line 2 
2  #  #
3  # Giuseppe Vacanti (cosine science & computing)  # Giuseppe Vacanti (cosine science & computing)
4  #  #
5  # $Id$  # $Id: ccfnotify,v 1.4 2003/11/26 13:57:42 ccflib Exp $
6  #  #
7  require 5;  require 5;
8  use FileHandle;  use FileHandle;
# Line 28  foreach($update){ Line 28  foreach($update){
28    /^development$/ && do {    /^development$/ && do {
29      @to = qw/xmm-it sas-devel/;      @to = qw/xmm-it sas-devel/;
30      $subject = "Update of the $update CCF area";      $subject = "Update of the $update CCF area";
31      $replyto = 'xmm-it@xmm.vilspa.esa.es';      $replyto = 'xmm-it@sciops.esa.int';
32      next;      next;
33    };    };
34        
35    /^release$/ && do {    /^release$/ && do {
36      @to = qw/xmm-it sas-devel/;      @to = qw/xmm-it sas-devel/;
37      $subject = "Update of the $update CCF area";      $subject = "Update of the $update CCF area";
38      $replyto = 'xmm-it@xmm.vilspa.esa.es';      $replyto = 'xmm-it@sciops.esa.int';
39      next;      next;
40    };    };
41        
42    /^public$/ && do {    /^public$/ && do {
43      @to = qw/ccf xmm-it sas-devel/;      @to = qw/ccf xmm-it sas-devel/;
44      $subject = "XMM-Newton calibration update";      $subject = "XMM-Newton calibration update";
45      $replyto = 'xmmhelp@xmm.vilspa.esa.es';      $replyto = 'xmmhelp@sciops.esa.int';
46      next;      next;
47    };    };
48            
# Line 57  exit(0) if(not @names); Line 57  exit(0) if(not @names);
57  foreach(@to){  foreach(@to){
58    my $fh = new FileHandle "|/usr/lib/sendmail -t" or die ("$!\n");    my $fh = new FileHandle "|/usr/lib/sendmail -t" or die ("$!\n");
59        
60    $fh->print("From: ccflib\@xmm.vilspa.esa.es    $fh->print("From: ccflib\@sciops.esa.int
61  Reply-To: $replyto  Reply-To: $replyto
62  To: $_\@xmm.vilspa.esa.es  To: $_\@sciops.esa.int
63  Subject: $subject  Subject: $subject
64  ");  ");
65    
# Line 77  Subject: $subject Line 77  Subject: $subject
77      $fh->print('      $fh->print('
78  For details and download instructions please refer to:  For details and download instructions please refer to:
79    
80    http://xmm.vilspa.esa.es/calibration/    http://xmm.esac.esa.int/external/xmm_sw_cal/calib/
81    http://xmm.vilspa.esa.es/calibration/releasenotes/    http://xmm.esac.esa.int/external/xmm_sw_cal/calib/rel_notes
82    
83  Best regards,  Best regards,
84    
85  The XMM-Newton Calibration Librarian  The XMM-Newton Calibration Librarian
86  xmmhelp@xmm.vilspa.esa.es  xmmhelp@sciops.esa.int
87    
88  ');  ');
89    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.27