Contents of /bin/deleteccf

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