Annotation 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	ccflib	1.1	#! /usr/local/bin/perl -w
2			#
3			# Giuseppe Vacanti (cosine science & computing bv)
4			#
5	ccflib	1.2	# $Id: deleteccf,v 1.1 2002/03/18 18:28:57 ccflib Exp $
6	ccflib	1.1	#
7			require 5;
8			use strict;
9			use lib "/data/xmm/ccflib/cgi";
10	ccflib	1.2	use vars '%Env';
11	ccflib	1.1	$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