/[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.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: deleteccf,v 1.2 2002/03/19 15:05:09 ccflib Exp $  
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 vars '%ENV';  use vars '%ENV';
10  use lib "$ENV{'HOME'}/cgi";  use lib "$ENV{'HOME'}/cgi";
11  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
 use Ccflib;  
12    
13  #chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");  
14  chdir "/home/ccflib/ftp-area/private/ccfdevel/deleted/" or die("Cannot access /home/ccflib/ftp-area/private/ccfdevel/deleted/\n");  my $host=qx/\/bin\/hostname | cut -d. -f1/ ;
15    my $homedir="/home/ccflib" ;
16    chomp($host);
17    
18    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 {
# Line 34  if($deletes){ Line 37  if($deletes){
37  ##if(! $? >> 8){  ##if(! $? >> 8){
38  ##  warn("Notification failed\n");  ##  warn("Notification failed\n");
39  ##}  ##}
   
   
   
   
   
   
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.27