Contents 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	#! /usr/local/bin/perl -w
2	#
3	# $Id: deleteccf,v 1.4 2013/02/14 14:26:44 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;
9	use strict;
10	use vars '%ENV';
11	use lib "$ENV{'HOME'}/cgi";
12	$ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
13
14	# 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
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	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
47
48
49