Annotation of /bin/checkupdates

#! /usr/local/bin/perl -w
#
#
# $Id: checkupdates,v 1.4 2005/12/07 14:48:46 ccflib Exp $
#
# Called in a directory containing CCF constituents (*.CCF). It cheks
# via the DBM .ccf.db if any CCF constituent has appeared or
# disappeared, and launches the notification script with the
# appropriate options.
#
# It needs to be told what type of CCF directory it is via the -t
# development|release|public flag.
#
require 5;
use strict;
use lib "$ENV{'HOME'}/cgi";
$ENV{'PATH'} .= "$ENV{'HOME'}/bin:"; 
use Ccflib;
use DB_File;
use Getopt::Std;

my %opts;
getopts('t:', \%opts);
die("Usage: -t development|release|public\n") if(not exists $opts{'t'});

my %ccf;
tie %ccf, "DB_File", ".ccf.db";

my @new;
my @gone;
my @present = glob("*.CCF");

print "Checking for new CCF constituents in track: $opts{'t'}\n";

foreach(keys %ccf) { $ccf{$_} = ""; }
foreach(@present){
# CALINDEX constituents are not considered.
  next if /XMM_CALINDEX/;
  push @new, ($_) if not exists $ccf{$_};
  $ccf{$_} = '+';
}
foreach(keys %ccf){
  if($ccf{$_} ne '+'){
# CALINDEX consituents are not considered.
    next if /XMM_CALINDEX/;
    push @gone, ($_);
    delete $ccf{$_};
  }
}

if(@new){
  my $cmd1 = "ccfextseq --sets='";
  my $cmd2 = "ccfnotify -t $opts{'t'} ";
  my $l;
  foreach(@new){
    print "New constituent: $_\n";
    $l .= "$_ ";
  }
  $cmd1 .= "$l'";
  $cmd2 .= $l;
  
  print "Running ccfextseq to update the SUBMISSION date:\n";
  execute($cmd1);
  print "Notification:\n";
  execute($cmd2);

  # update the MIF if there are new files in the public area.
  my $cmd3 = "updatemif";
  if($opts{'t'} eq 'public'){
    print "Creating a new MIF:\n";
    execute($cmd3);
  }
}

if(@gone){
  my $cmd = "ccfnotify -t $opts{'t'} -d ";
  foreach(@gone){
    print "Gone constituent: $_\n";
    $cmd .= "$_ ";
  }
  if($opts{'t'} ne 'public'){
    print "Notification:\n";
    execute($cmd);
  }
}

sub execute {
  my $cmd = shift or return;
  print "Executing: $cmd\n";
  qx/$cmd/;
  my $status = $? >> 8;
  die("$cmd failed\n") if $status;
  return;
}
1	ccflib	1.1	#! /usr/local/bin/perl -w
2			#
3			#
4	ccflib	1.5	# $Id: checkupdates,v 1.4 2005/12/07 14:48:46 ccflib Exp $
5	ccflib	1.1	#
6			# Called in a directory containing CCF constituents (*.CCF). It cheks
7			# via the DBM .ccf.db if any CCF constituent has appeared or
8			# disappeared, and launches the notification script with the
9			# appropriate options.
10			#
11			# It needs to be told what type of CCF directory it is via the -t
12			# development\|release\|public flag.
13			#
14			require 5;
15			use strict;
16			use lib "$ENV{'HOME'}/cgi";
17			$ENV{'PATH'} .= "$ENV{'HOME'}/bin:";
18			use Ccflib;
19			use DB_File;
20			use Getopt::Std;
21
22			my %opts;
23			getopts('t:', \%opts);
24			die("Usage: -t development\|release\|public\n") if(not exists $opts{'t'});
25
26			my %ccf;
27			tie %ccf, "DB_File", ".ccf.db";
28
29			my @new;
30			my @gone;
31			my @present = glob("*.CCF");
32
33	ccflib	1.4	print "Checking for new CCF constituents in track: $opts{'t'}\n";
34
35	ccflib	1.1	foreach(keys %ccf) { $ccf{$_} = ""; }
36			foreach(@present){
37	ccflib	1.5	# CALINDEX constituents are not considered.
38	ccflib	1.4	next if /XMM_CALINDEX/;
39	ccflib	1.1	push @new, ($_) if not exists $ccf{$_};
40			$ccf{$_} = '+';
41			}
42			foreach(keys %ccf){
43			if($ccf{$_} ne '+'){
44	ccflib	1.4	# CALINDEX consituents are not considered.
45			next if /XMM_CALINDEX/;
46	ccflib	1.1	push @gone, ($_);
47			delete $ccf{$_};
48			}
49			}
50
51			if(@new){
52			my $cmd1 = "ccfextseq --sets='";
53			my $cmd2 = "ccfnotify -t $opts{'t'} ";
54			my $l;
55			foreach(@new){
56	ccflib	1.4	print "New constituent: $_\n";
57	ccflib	1.1	$l .= "$_ ";
58			}
59			$cmd1 .= "$l'";
60			$cmd2 .= $l;
61
62	ccflib	1.4	print "Running ccfextseq to update the SUBMISSION date:\n";
63	ccflib	1.1	execute($cmd1);
64	ccflib	1.4	print "Notification:\n";
65	ccflib	1.1	execute($cmd2);
66	ccflib	1.2
67			# update the MIF if there are new files in the public area.
68			my $cmd3 = "updatemif";
69	ccflib	1.4	if($opts{'t'} eq 'public'){
70			print "Creating a new MIF:\n";
71			execute($cmd3);
72			}
73	ccflib	1.1	}
74
75			if(@gone){
76			my $cmd = "ccfnotify -t $opts{'t'} -d ";
77			foreach(@gone){
78	ccflib	1.4	print "Gone constituent: $_\n";
79	ccflib	1.1	$cmd .= "$_ ";
80			}
81	ccflib	1.4	if($opts{'t'} ne 'public'){
82			print "Notification:\n";
83			execute($cmd);
84			}
85	ccflib	1.1	}
86
87			sub execute {
88			my $cmd = shift or return;
89	ccflib	1.4	print "Executing: $cmd\n";
90	ccflib	1.1	qx/$cmd/;
91			my $status = $? >> 8;
92			die("$cmd failed\n") if $status;
93			return;
94			}