CVSROOT/verifymsgcheck


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/perl -w
#
# $FreeBSD$

use strict;
use lib $ENV{CVSROOT};
use CVSROOT::cfg;
my $CVSROOT = $ENV{CVSROOT} || die "Can't determine CVSROOT (verifymsgcheck)!\n";

# Check "Approved by:" line.
system("$CVSROOT/CVSROOT/approvecheck", @ARGV);
if ($? >> 8) {
    exit 1;
}

# peter's edit post-processor..
system("$CVSROOT/CVSROOT/logcheck", @ARGV);
if ($? >> 8) {
    exit 1;
}