Contents of /bin/deleteccf

#! /usr/bin/env perl 
#! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl 
#
# $Id: deleteccf,v 1.7 2020/07/04 11:59:30 ccflib Exp $
#
# Script to be run from crontab to delete any CCFs in 
# /home/ccflib/ftp-area/private/ccfdevel/deleted

require 5;
use strict;
use warnings;
use vars '%ENV';

# If DEBUG is set, warns without executing

my $debug = "";
if ( $ENV{'DEBUG'} ) {
        $debug = "$ENV{'DEBUG'}"; 
}


my $host=qx/\/bin\/hostname/ ;
chomp($host);

chdir "/home/ccflib/ccf_ftp/private/ccfdevel/deleted/";


my $deletes;
foreach my $ccf (glob("*.CCF")){
        if ($debug) {
                print "$ccf is marked for deletion\n";
        } else {
                print "Going to delete $ccf\n"; 
                unlink $ccf;
                if(! $? >> 8){
                        warn("Deletion of $ccf failed\n");
                } else {
                        $deletes .= "$ccf ";
                }
        }
}
if(! $debug && $deletes){
        print "Script deleteccf running on $host\n";
        print "Removed CCFs:\n";
        print "             $deletes\n";
}
1	#! /usr/bin/env perl
2	#! /xdata/ccflib/perl5/perlbrew/perls/perl-5.18.4/bin/perl
3	#
4	# $Id: deleteccf,v 1.7 2020/07/04 11:59:30 ccflib Exp $
5	#
6	# Script to be run from crontab to delete any CCFs in
7	# /home/ccflib/ftp-area/private/ccfdevel/deleted
8
9	require 5;
10	use strict;
11	use warnings;
12	use vars '%ENV';
13
14	# If DEBUG is set, warns without executing
15
16	my $debug = "";
17	if ( $ENV{'DEBUG'} ) {
18	$debug = "$ENV{'DEBUG'}";
19	}
20
21
22	my $host=qx/\/bin\/hostname/ ;
23	chomp($host);
24
25	chdir "/home/ccflib/ccf_ftp/private/ccfdevel/deleted/";
26
27
28	my $deletes;
29	foreach my $ccf (glob("*.CCF")){
30	if ($debug) {
31	print "$ccf is marked for deletion\n";
32	} else {
33	print "Going to delete $ccf\n";
34	unlink $ccf;
35	if(! $? >> 8){
36	warn("Deletion of $ccf failed\n");
37	} else {
38	$deletes .= "$ccf ";
39	}
40	}
41	}
42	if(! $debug && $deletes){
43	print "Script deleteccf running on $host\n";
44	print "Removed CCFs:\n";
45	print " $deletes\n";
46	}