Annotation of /bin/deleteccf

#! /usr/local/bin/perl -w
#
# $Id: deleteccf,v 1.4 2013/02/14 14:26:44 ccflib Exp $
#
# This script simply deletes all CCFs put in the subdir ccfdev/deleted.
# It is intended to be run by a crontab, either on xvsoc01 or in sasbld01

require 5;
use strict;
use vars '%ENV';
use lib "$ENV{'HOME'}/cgi";
$ENV{'PATH'} .= "$ENV{'HOME'}/bin:"; 

# Can not use Ccflib.pm located in $HOME/cgi because it has definitions for directories only on xvsoc01.
# use Ccflib;

my $host=qx/hostname | cut -d. -f1/ ;
my $homedir="/home/ccflib" ;
chomp($host);
$homedir="/data/xmm/ccflib" if  ( $host eq "xvsoc01" ) ;

chdir "$homedir/ftp-area/private/ccfdevel/deleted/" ;

my $deletes;
foreach my $ccf (glob("*.CCF")){
  qx/rm -f $ccf/;
  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";
}

##my $x = qx/ccfnotify -t development -d $deletes/;
##
##if(! $? >> 8){
##  warn("Notification failed\n");
##}


1	ccflib	1.1	#! /usr/local/bin/perl -w
2			#
3	ccflib	1.5	# $Id: deleteccf,v 1.4 2013/02/14 14:26:44 ccflib Exp $
4	ccflib	1.1	#
5	ccflib	1.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	ccflib	1.4
8	ccflib	1.1	require 5;
9			use strict;
10	ccflib	1.3	use vars '%ENV';
11			use lib "$ENV{'HOME'}/cgi";
12			$ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
13	ccflib	1.1
14	ccflib	1.5	# Can not use Ccflib.pm located in $HOME/cgi because it has definitions for directories only on xvsoc01.
15			# 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	ccflib	1.1
24			my $deletes;
25			foreach my $ccf (glob("*.CCF")){
26			qx/rm -f $ccf/;
27			if(! $? >> 8){
28			warn("Deletion of $ccf failed\n");
29			} else {
30			$deletes .= "$ccf ";
31			}
32			}
33	ccflib	1.3	if($deletes){
34			print "The following constituents were found in the removed subdirectory:\n";
35			print "$deletes\n";
36			print "Now they have been definetely erased.\n";
37			}
38
39			##my $x = qx/ccfnotify -t development -d $deletes/;
40			##
41			##if(! $? >> 8){
42			## warn("Notification failed\n");
43			##}
44
45
46	ccflib	1.1
47
48
49