aboutsummaryrefslogblamecommitdiffstats
path: root/CVSROOT/approvecheck
blob: 8d063f676295f7c59ebcc1d4c2212799fe8c8edf (plain) (tree)

















































































































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

use strict;
use lib $ENV{CVSROOT};
use CVSROOT::cfg;
my $CVSROOT = $ENV{'CVSROOT'} || die "Can't determine \$CVSROOT!";
my $debug = $cfg::DEBUG;

my $BASE_FN       = "$cfg::TMPDIR/$cfg::FILE_PREFIX";
my $FILES_FILE = "$BASE_FN.files";

print "$$: pgrp: ", getpgrp(), "\n" if ($debug);
print "$$: committer: ", $cfg::COMMITTER, "\n" if ($debug);

foreach (@ARGV) {
    print "$$: args: $_\n" if ($debug);
}

my $logfile = $ARGV[0];
my $log = "";
if (-r $logfile) {
    open(H, "<$logfile") or die;
    foreach (<H>) {
        print "$$: log: $_" if ($debug);
        $log .= $_;
    }
    close(H);
}

if (-r $FILES_FILE and open(FILES, $FILES_FILE)) {
    my %tag;
    while (<FILES>) {
        chomp;
        my ($tag, $file) = split(/\t/, $_, 2);
        print "$$: files_file: tag=$tag, file=$file\n" if ($debug);
        push @{$tag{$tag}}, $file;
    }
    close(FILES);

    if (check_approvers($log, %tag)) {
        unlink $FILES_FILE;
        exit 1;
    }
}
exit 0;

# ============================================================
sub read_approvers {
    my @Approvers;
    my $approvers = "$CVSROOT/CVSROOT/approvers";
    if (-r $approvers) {
        print "$$: Read $approvers\n" if ($debug);
        open(APP, "<$approvers") or return;
        while (<APP>) {
            chomp;
            next if (/^#/);
            my ($mod, $tag, $rev) = split(/\t+/, $_, 3);
            if ($rev) {
                push @Approvers, { mod => $mod,
                           tag => $tag,
                           app => $rev };
            }
        }
        close(APP);
    }
    @Approvers;
}

sub check_approvers {
    my ($log, %files) = @_;
    my %tag;
    my @Approvers = &read_approvers();
    foreach my $t (keys %files) {
        foreach (@{$files{$t}}) {
            $tag{$t}->{$_}++;
        }
    }
    foreach my $r (@Approvers) {
        printf "$$: checking: %s, %s, %s\n",
            $r->{mod}, $r->{tag}, $r->{app} if ($debug);
        foreach my $tag (sort keys %tag) {
            foreach my $file (sort keys %{$tag{$tag}}) {
                return 1 if (check_one($log, $r, $tag, $file));
            }
        }
    }
    0;
}

sub check_one {
    my ($log, $r, $tag, $file) = @_;
    if ($file !~ m|$r->{mod}|) {
        printf "$$: file not matched (%s, %s)\n", $file, $r->{mod}
            if ($debug);
        return 0;
    }
    printf "$$: file matched (%s, %s)\n", $file, $r->{mod} if ($debug);
    if ($tag !~ m|$r->{tag}|) {
        printf "$$: tag not matched (%s, %s)\n",
            $tag, $r->{tag} if ($debug);
        return 0;
    }
    printf "$$: tag matched (%s, %s)\n", $tag, $r->{tag} if ($debug);
    if ($log =~ m|Approved by:[\t ]*$r->{app}|s) {
        printf "$$: log matched (%s, %s)\n", $log, $r->{app}
            if ($debug);
        return 0;
    }
    printf "$$: log not matched (%s, %s)\n", $log, $r->{app} if ($debug);
    printf "**** You need \"Approved by: %s\" line in your log entry.\n",
        $r->{app};
    return 1;
}