#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: rcs_check,v 1.7 1996/01/25 21:37:04 ejb Exp $
# $Source: /home/ejb/scripts/RCS/rcs_check,v $
# $Author: ejb $
#

defined($dir = $ARGV[0]) || ($dir = ".");
$dir =~ s,/$,,;

open(FIND, "find $dir/. \\( -name '*,v' -o -name '.*,v' \\) -type f -print |");
while (<FIND>)
{
    s,$dir/\.,$dir,;
    chop;
    push(@files, $_);
}

while (scalar(@files) > 0)
{
    @check = splice(@files, 0, 200);
    $cmd = "rlog -L -R " . join(' ', @check);
    system("$cmd");
}