/[CCFs]/bin/deleteccf
ViewVC logotype

Diff of /bin/deleteccf

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

revision 1.1 by ccflib, Mon Mar 18 18:28:57 2002 UTC revision 1.7 by ccflib, Sat Jul 4 11:59:30 2020 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 bv)  # $Id: deleteccf,v 1.6 2018/01/15 10:02:11 ccflib Exp $
 #  
 # $Id$  
4  #  #
5    # This script simply deletes all CCFs put in the subdir ccfdev/deleted.
6    
7  require 5;  require 5;
8  use strict;  use strict;
9  use lib "/data/xmm/ccflib/cgi";  use vars '%ENV';
10  $Env{'PATH'} .= "/data/xmm/ccflib/bin:";  use lib "$ENV{'HOME'}/cgi";
11  use Ccflib;  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
12    
13    
14    my $host=qx/\/bin\/hostname | cut -d. -f1/ ;
15    my $homedir="/home/ccflib" ;
16    chomp($host);
17    
18  chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");  chdir "$homedir/ftp-area/private/ccfdevel/deleted/" ;
19    
20  my $deletes;  my $deletes;
21  foreach my $ccf (glob("*.CCF")){  foreach my $ccf (glob("*.CCF")){
22    qx/rm -f $ccf/;    qx/rm -f $ccf/ if ($ccf);
23    if(! $? >> 8){    if(! $? >> 8){
24      warn("Deletion of $ccf failed\n");      warn("Deletion of $ccf failed\n");
25    } else {    } else {
26      $deletes .= "$ccf ";      $deletes .= "$ccf ";
27    }    }
28  }  }
29    if($deletes){
30  my $x = qx/ccfnotify -t development -d $deletes/;    print "The following constituents were found in the removed subdirectory:\n";
31      print "$deletes\n";
32  if(! $? >> 8){    print "Now they have been definetely erased.\n";
   warn("Notification failed\n");  
33  }  }
34    
35    ##my $x = qx/ccfnotify -t development -d $deletes/;
36    ##
37    ##if(! $? >> 8){
38    ##  warn("Notification failed\n");
39    ##}
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.27