Annotation 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	ccflib	1.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