head	1.2;
access;
symbols
	TIGRIS_1_1_0RC2:1.2
	TIGRIS_1_1_0RC1:1.2
	TIGRIS_1_1:1.2.0.12
	TIGRIS_1_0_8:1.2
	TIGRIS_1_0_8RC3:1.2
	TIGRIS_1_0_8RC2:1.2
	TIGRIS_1_0_8RC1:1.2
	TIGRIS_1_0_7:1.2
	TIGRIS_1_0_7RC3:1.2
	TIGRIS_1_0_7RC2:1.2
	TIGRIS_1_0_7RC1:1.2
	TIGRIS_1_0_6:1.2
	TIGRIS_1_0_6RC5:1.2
	TIGRIS_1_0_6RC4:1.2
	TIGRIS_1_0_6RC3:1.2
	TIGRIS_1_0_6RC2:1.2
	TIGRIS_1_0_6RC1:1.2
	TIGRIS_1_0_5:1.2
	TIGRIS_1_0_5RC6:1.2
	TIGRIS_1_0_5RC5:1.2
	TIGRIS_1_0_5RC4:1.2
	TIGRIS_1_0_5RC3:1.2
	TIGRIS_1_0_5RC2:1.2
	TIGRIS_1_0_5RC1:1.2
	TIGRIS_1_0_4:1.2
	TIGRIS_1_0_3:1.2
	TIGRIS_1_0_2:1.2
	TIGRIS_1_0_1:1.2
	TIGRIS_1_0:1.2.0.14
	TIGRIS_1_0_0:1.2
	TIGRIS_1_0_0_RC1:1.2.0.10
	HELM_PEER_PORT_BRANCH:1.2.0.8
	TIGRIS_0_9_2_4:1.2
	TIGRIS_0_9_2_3:1.2
	TIGRIS_0_9_2:1.2.0.6
	TIGRIS_0_9_0:1.2.0.4
	TIGRIS_0_8_4:1.2.0.2
	TIGRIS_710_FF:1.2
	TIGRIS_706:1.1
	TIGRIS_705:1.1
	TIGRIS_704:1.1
	TIGRIS_703:1.1
	TIGRIS_702:1.1
	TIGRIS_701:1.1
	TIGRIS_SEP_13_2000:1.1.0.2
	TIGRIS_BASELINE:1.1;
locks; strict;
comment	@# @;


1.2
date	2000.11.05.23.51.04;	author jrobbins;	state Exp;
branches;
next	1.1;

1.1
date	2000.06.09.02.13.42;	author dlr;	state Exp;
branches;
next	;


desc
@@


1.2
log
@reducing verbage during makes
@
text
@#!/usr/bin/perl
# Copyright (c) 1999 DataWeb Systems, Inc. All rights reserved.

# Processes files in a directory and its sub-directories recursively.

my $here = ".";

my $operation = shift || die "Usage: opersx shell-command [directory]\n";
my $directory = shift || $here;

# Get full path for starting point
chdir $directory;
my $startingPoint = `pwd`;
chomp $startingPoint;

listDir($startingPoint);

exit;

sub listDir
{
    my $dir = shift;
    my $DIRHANDLE;
    my $filename, $fullpath;
    my @@subdirs;

    # Process this directory.
    #print "$dir\n";
    chdir $dir;
    print `$operation`;

    # Get the list of subdirectories so they can be processed.
    opendir(DIRHANDLE, $dir) or die "Could not open $!\n";
    while (defined($filename = readdir(DIRHANDLE)))
    {
	$fullpath = $dir . "/" . $filename;
	if (-d $fullpath)
	{
	    if (($filename eq ".") ||
		($filename eq "..") ||
		($filename eq "limbo") ||
		($filename eq "RCS") ||
		($filename eq "CVS")) {next;}

	    # print "$filename\n";
	    push(@@subdirs, $fullpath);
	}
    }
    closedir(DIRHANDLE);

    foreach $fullpath (sort(@@subdirs))
    {
	listDir($fullpath);
    }
}
@


1.1
log
@Needed by template Makefiles.
@
text
@d28 1
a28 1
    print "$dir\n";
@

