/[CCFs]/bin/deleteccf
ViewVC logotype

Diff of /bin/deleteccf

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

revision 1.2 by ccflib, Tue Mar 19 15:05:09 2002 UTC revision 1.3 by ccflib, Fri Oct 31 15:52:32 2003 UTC
# Line 2  Line 2 
2  #  #
3  # Giuseppe Vacanti (cosine science & computing bv)  # Giuseppe Vacanti (cosine science & computing bv)
4  #  #
5  # $Id: deleteccf,v 1.1 2002/03/18 18:28:57 ccflib Exp $  # $Id: deleteccf,v 1.2 2002/03/19 15:05:09 ccflib Exp $
6  #  #
7  require 5;  require 5;
8  use strict;  use strict;
9  use lib "/data/xmm/ccflib/cgi";  use vars '%ENV';
10  use vars '%Env';  use lib "$ENV{'HOME'}/cgi";
11  $Env{'PATH'} .= "/data/xmm/ccflib/bin:";  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
12  use Ccflib;  use Ccflib;
13    
14  chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");  #chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");
15    chdir "/home/ccflib/ftp-area/private/ccfdevel/deleted/" or die("Cannot access /home/ccflib/ftp-area/private/ccfdevel/deleted/\n");
16    
17  my $deletes;  my $deletes;
18  foreach my $ccf (glob("*.CCF")){  foreach my $ccf (glob("*.CCF")){
# Line 22  foreach my $ccf (glob("*.CCF")){ Line 23  foreach my $ccf (glob("*.CCF")){
23      $deletes .= "$ccf ";      $deletes .= "$ccf ";
24    }    }
25  }  }
26    if($deletes){
27      print "The following constituents were found in the removed subdirectory:\n";
28      print "$deletes\n";
29      print "Now they have been definetely erased.\n";
30    }
31    
32    ##my $x = qx/ccfnotify -t development -d $deletes/;
33    ##
34    ##if(! $? >> 8){
35    ##  warn("Notification failed\n");
36    ##}
37    
38    
39    
 my $x = qx/ccfnotify -t development -d $deletes/;  
40    
 if(! $? >> 8){  
   warn("Notification failed\n");  
 }  
41    
42    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.27