/[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.5 by ccflib, Tue Dec 2 14:06:51 2014 UTC
# Line 1  Line 1 
1  #! /usr/local/bin/perl -w  #! /usr/local/bin/perl -w
2  #  #
3  # Giuseppe Vacanti (cosine science & computing bv)  # $Id: deleteccf,v 1.4 2013/02/14 14:26:44 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    # It is intended to be run by a crontab, either on xvsoc01 or in sasbld01
7    
8  require 5;  require 5;
9  use strict;  use strict;
10  use vars '%ENV';  use vars '%ENV';
11  use lib "$ENV{'HOME'}/cgi";  use lib "$ENV{'HOME'}/cgi";
12  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
 use Ccflib;  
13    
14  #chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");  # Can not use Ccflib.pm located in $HOME/cgi because it has definitions for directories only on xvsoc01.
15  chdir "/home/ccflib/ftp-area/private/ccfdevel/deleted/" or die("Cannot access /home/ccflib/ftp-area/private/ccfdevel/deleted/\n");  # use Ccflib;
16    
17    my $host=qx/hostname | cut -d. -f1/ ;
18    my $homedir="/home/ccflib" ;
19    chomp($host);
20    $homedir="/data/xmm/ccflib" if  ( $host eq "xvsoc01" ) ;
21    
22    chdir "$homedir/ftp-area/private/ccfdevel/deleted/" ;
23    
24  my $deletes;  my $deletes;
25  foreach my $ccf (glob("*.CCF")){  foreach my $ccf (glob("*.CCF")){
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.27