Contents of /bin/deleteccf

#! /usr/local/bin/perl -w
#
# Giuseppe Vacanti (cosine science & computing bv)
#
# $Id: deleteccf,v 1.1 2002/03/18 18:28:57 ccflib Exp $
#
require 5;
use strict;
use lib "/data/xmm/ccflib/cgi";
use vars '%Env';
$Env{'PATH'} .= "/data/xmm/ccflib/bin:"; 
use Ccflib;

chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");

my $deletes;
foreach my $ccf (glob("*.CCF")){
  qx/rm -f $ccf/;
  if(! $? >> 8){
    warn("Deletion of $ccf failed\n");
  } else {
    $deletes .= "$ccf ";
  }
}

my $x = qx/ccfnotify -t development -d $deletes/;

if(! $? >> 8){
  warn("Notification failed\n");
}


1	#! /usr/local/bin/perl -w
2	#
3	# Giuseppe Vacanti (cosine science & computing bv)
4	#
5	# $Id: deleteccf,v 1.1 2002/03/18 18:28:57 ccflib Exp $
6	#
7	require 5;
8	use strict;
9	use lib "/data/xmm/ccflib/cgi";
10	use vars '%Env';
11	$Env{'PATH'} .= "/data/xmm/ccflib/bin:";
12	use Ccflib;
13
14	chdir $Ccflib::develrm or die("Cannot access $Ccflib::develrm\n");
15
16	my $deletes;
17	foreach my $ccf (glob("*.CCF")){
18	qx/rm -f $ccf/;
19	if(! $? >> 8){
20	warn("Deletion of $ccf failed\n");
21	} else {
22	$deletes .= "$ccf ";
23	}
24	}
25
26	my $x = qx/ccfnotify -t development -d $deletes/;
27
28	if(! $? >> 8){
29	warn("Notification failed\n");
30	}
31
32