#!/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; }