windows-xp/Source/XPSP1/NT/admin/pchealth/build/tools/sdslm/owners.pl

# __________________________________________________________________________________
#
#	Purpose:
#       PERL Script to emulate SLM's 'enlist' command
#
#   Parameters:
#       See Usage below
#
#   Output:
#       Perforce output or the appropriate error message or usage statement
#
# __________________________________________________________________________________

#
#    Load common SLM wrapper subroutine module
#
use SlmSubs;

#
#    Parse command line arguments
#
SlmSubs::ParseArgs(@ARGV);

#
#    Call usage and exit if ParseArgs has set the Usage or InvalidFlag flags
#
if ($Usage or $InvalidFlag)
{
    print $ErrorMessage;
    &Usage;
    exit 1;
}

#
#    Initialize Strings
#
$UserName = "";

#
#    Set @CurrentClientList equal to $SourceControlClient client output
#
open(USERS, "$SourceControlClient users @OriginalFileList|");
@UsersOutput = <USERS>;
close (USERS);

foreach $UserLine (@UsersOutput)
{
    $UserLine =~ /^(.*) <.*/;

    $UserName = $1;
    push @UsersList, $UserName;
    $UsersExistenceHash{lc($UserName)}++;
}

#
#    Set @CurrentClientList equal to $SourceControlClient client output
#
open(CLIENTS, "$SourceControlClient clients |");
@ClientsOutput = <CLIENTS>;
close (CLIENTS);

foreach $ClientLine (@ClientsOutput)
{
    $ClientLine =~ /^Client (\S+) .*/;

    $ClientName = $1;
    push @ClientsList, $ClientName;
}

foreach $ClientName (@ClientsList)
{
    my @OwnerClientList;

    #
    #    Set @CurrentClientList equal to $SourceControlClient client output
    #
    open(CLIENT, "$SourceControlClient -c $ClientName client -o |");
    @ClientOutput = <CLIENT>;
    close (CLIENT);

    foreach $ClientLine (@ClientOutput)
    {
        if ($ClientLine =~ /^Owner:(\s*)(.*)\n/)
        {
            $Owner = $2;
        }
        if ($ClientLine =~ /^Access:(\s*)(.*)\n/)
        {
            $LastAccessed = $2;
        }
    }
    if ($UsersHash{lc($Owner)} == ())
    {
        @OwnerClientList = ();
    }
    else
    {
        $ArrayRef = $UsersHash{lc($Owner)};
        @OwnerClientList = @$ArrayRef;
    }
    if ($Verbose)
    {
        push @OwnerClientList, "$ClientName\t\tLast Accessed\t$LastAccessed";
    }
    else
    {
        push @OwnerClientList, $ClientName;
    }

    $UsersHash{lc($Owner)} = \@OwnerClientList;

    if ($UsersExistenceHash{lc($Owner)} == NULL)
    {
        push @UsersList, $Owner;
        $UsersExistenceHash{lc($Owner)}++;
    }
}

@UsersList = sort @UsersList;

foreach $UserLine (@UsersList)
{
    print "$UserLine:\n";

    if ($UsersHash{lc($UserLine)} == ())
    {
        print "\tNo clients...\n";
    }
    $ClientArrayRef = $UsersHash{lc($UserLine)};
    @UserClientList = @$ClientArrayRef;

    foreach $ClientLine (@UserClientList)
    {
        print "\t$ClientLine\n";
    }
}

sub Usage
# __________________________________________________________________________________
#
#   Prints out a usage statement for this script. In this case usurped from SLM's
#       'enlist' usage statement
#
#   Parameters:
#       None
#
#   Output:
#       The usage statement
#
# __________________________________________________________________________________
{
print q/enlist - enlists a directory in a project
Usage: enlist [-?fh] [-s Server:Port] -p [branch]\/projname
Arguments:
-h      prints out this message.
-p      use this flag to specify the name of the project to enlist in.  The
        project name can be preceeded by a branch name.  The default branch
        is the main branch.
-s      use this flag to specify the network location of the project in which
        to enlist, using the format: -s Server:Port "Server" is the network
        server name and "Port" is the Perforce Server's TCP\/IP port number.
/;
}