/[CCFs]/bin/deleteccf
ViewVC logotype

Diff of /bin/deleteccf

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

revision 1.5 by ccflib, Tue Dec 2 14:06:51 2014 UTC revision 1.6 by ccflib, Mon Jan 15 10:02:11 2018 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  # $Id: deleteccf,v 1.4 2013/02/14 14:26:44 ccflib Exp $  # $Id: deleteccf,v 1.5 2014/12/02 14:06:51 ccflib Exp $
4  #  #
5  # This script simply deletes all CCFs put in the subdir ccfdev/deleted.  # 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  # It is intended to be run by a crontab, either on xvsoc01 or in sasbld01
# Line 14  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:"; Line 14  $ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
14  # Can not use Ccflib.pm located in $HOME/cgi because it has definitions for directories only on xvsoc01.  # Can not use Ccflib.pm located in $HOME/cgi because it has definitions for directories only on xvsoc01.
15  # use Ccflib;  # use Ccflib;
16    
17  my $host=qx/hostname | cut -d. -f1/ ;  my $host=qx/\/bin\/hostname | cut -d. -f1/ ;
18  my $homedir="/home/ccflib" ;  my $homedir="/home/ccflib" ;
19  chomp($host);  chomp($host);
20  $homedir="/data/xmm/ccflib" if  ( $host eq "xvsoc01" ) ;  $homedir="/data/xmm/ccflib" if  ( $host eq "xvsoc01" ) ;
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.27