/[CCFs]/bin/deleteccf
ViewVC logotype

Diff of /bin/deleteccf

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

revision 1.3 by ccflib, Fri Oct 31 15:52:32 2003 UTC revision 1.8 by ccflib, Tue Jul 27 13:09:16 2021 UTC
# Line 1  Line 1 
1  #! /usr/local/bin/perl -w  #! /usr/bin/env perl
2    #! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl
3  #  #
4  # Giuseppe Vacanti (cosine science & computing bv)  # $Id: deleteccf,v 1.7 2020/07/04 11:59:30 ccflib Exp $
 #  
 # $Id: deleteccf,v 1.2 2002/03/19 15:05:09 ccflib Exp $  
5  #  #
6    # Script to be run from crontab to delete any CCFs in
7    # /home/ccflib/ftp-area/private/ccfdevel/deleted
8    
9  require 5;  require 5;
10  use strict;  use strict;
11    use warnings;
12  use vars '%ENV';  use vars '%ENV';
 use lib "$ENV{'HOME'}/cgi";  
 $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";  
 use Ccflib;  
13    
14  #chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");  # If DEBUG is set, warns without executing
 chdir "/home/ccflib/ftp-area/private/ccfdevel/deleted/" or die("Cannot access /home/ccflib/ftp-area/private/ccfdevel/deleted/\n");  
15    
16  my $deletes;  my $debug = "";
17  foreach my $ccf (glob("*.CCF")){  if ( $ENV{'DEBUG'} ) {
18    qx/rm -f $ccf/;          $debug = "$ENV{'DEBUG'}";
   if(! $? >> 8){  
     warn("Deletion of $ccf failed\n");  
   } else {  
     $deletes .= "$ccf ";  
   }  
 }  
 if($deletes){  
   print "The following constituents were found in the removed subdirectory:\n";  
   print "$deletes\n";  
   print "Now they have been definetely erased.\n";  
19  }  }
20    
 ##my $x = qx/ccfnotify -t development -d $deletes/;  
 ##  
 ##if(! $? >> 8){  
 ##  warn("Notification failed\n");  
 ##}  
   
   
21    
22    my $host=qx/\/bin\/hostname/ ;
23    chomp($host);
24    
25    chdir "/home/ccflib/ccf_ftp/private/ccfdevel/deleted/";
26    
27    
28    my $deletes;
29    foreach my $ccf (glob("*.CCF")){
30            if ($debug) {
31                    print "$ccf is marked for deletion\n";
32            } else {
33                    print "Going to delete $ccf\n";
34                    unlink $ccf;
35                    if(! $? >> 8){
36                            warn("Deletion of $ccf failed\n");
37                    } else {
38                            $deletes .= "$ccf ";
39                    }
40            }
41    }
42    if(! $debug && $deletes){
43            print "Script deleteccf running on $host\n";
44            print "Removed CCFs:\n";
45            print "             $deletes\n";
46    }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.27