1 files changed, 58 insertions, 0 deletions
diff --git a/bin/release b/bin/release
index 9904c00..9a26116 100755
--- a/bin/release
+++ b/bin/release
@@ -57,6 +57,61 @@ sub setver ($;$$$) {
 }
 
 ##############################################################################
+# Make sure MANIFEST contains all the necessary files.  If we are running
+# under CVS then look at the CVS/Entries files to get the names that should
+# be in the manifest.  Otherwise we really can't do anything.
+#
+sub manifest () {
+    my ($fname, %manifest);
+    my $nprobs=0;
+
+    # We can't do anything if we're not running under cvs.
+    return "" unless -d "CVS";
+
+    # Read the files from the manifest.
+    open MANIFEST, "MANIFEST" or die "unable to read manifest";
+    while (<MANIFEST>) {
+	chomp;
+	$manifest{$_} = 1;
+    }
+    close MANIFEST;
+
+    # Read files from CVS/Entries
+    open FIND, "find . -name Entries -print | sort |" or
+	die "unable to find CVS entries";
+    while ($fname=<FIND>) {
+	chomp $fname;
+	my ($dir) = $fname =~ m%(.*)/CVS/Entries%;
+	open ENTRIES, $fname or die "unable to open $fname";
+	while (<ENTRIES>) {
+	    my ($ename) = m%^/(.*?)/%;
+	    $ename = "$dir/" . $ename;
+	    if (exists $manifest{$ename}) {
+		delete $manifest{$ename};
+	    } else {
+		print "NEW: $ename\n";
+		$nprobs++;
+	    }
+	}
+	close ENTRIES;
+    }
+    close FIND;
+
+    for (sort keys %manifest) {
+	print "OLD: $_\n";
+	$nprobs++;
+    }
+
+    if ($nprobs) {
+	print "Please add the new files to MANIFEST and remove the old\n";
+	print "files and try again.  The MANIFEST should contain all files\n";
+	print "that are to be distributed for a release.\n";
+	exit 1;
+    }
+}
+
+
+##############################################################################
 # Build a release
 #
 sub release (@) {
@@ -64,6 +119,9 @@ sub release (@) {
    my ($ver, $status, $created_symlink);
    local $_;
 
+   # Make sure no one forgot to update MANIFEST
+   manifest;
+
    # Make sure the version number is correct.
    print "Building an HDF release...\n";
    print "HDF version to release [", ($ver=getver), "] ";