Contents of /bin/deleteccf

#! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl -w
#
# $Id: deleteccf,v 1.6 2018/01/15 10:02:11 ccflib Exp $
#
# This script simply deletes all CCFs put in the subdir ccfdev/deleted.

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


my $host=qx/\/bin\/hostname | cut -d. -f1/ ;
my $homedir="/home/ccflib" ;
chomp($host);

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

my $deletes;
foreach my $ccf (glob("*.CCF")){
  qx/rm -f $ccf/ if ($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	#! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl -w
2	#
3	# $Id: deleteccf,v 1.6 2018/01/15 10:02:11 ccflib Exp $
4	#
5	# This script simply deletes all CCFs put in the subdir ccfdev/deleted.
6
7	require 5;
8	use strict;
9	use vars '%ENV';
10	use lib "$ENV{'HOME'}/cgi";
11	$ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
12
13
14	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;
21	foreach my $ccf (glob("*.CCF")){
22	qx/rm -f $ccf/ if ($ccf);
23	if(! $? >> 8){
24	warn("Deletion of $ccf failed\n");
25	} else {
26	$deletes .= "$ccf ";
27	}
28	}
29	if($deletes){
30	print "The following constituents were found in the removed subdirectory:\n";
31	print "$deletes\n";
32	print "Now they have been definetely erased.\n";
33	}
34
35	##my $x = qx/ccfnotify -t development -d $deletes/;
36	##
37	##if(! $? >> 8){
38	## warn("Notification failed\n");
39	##}