Subversion Repositories DevTools

# Function        : SvnInfo

#

# Description     : Determine Subversion Info for a specified target

#

# Inputs          : $self               - Instance Data

#                   $url                - Path or URL to get Info on

#                   $tag                - Name of tag within $self to store data

#

# Returns         : Non Zero if errors detected

#

sub SvnInfo

{

    my ($self, $url, $tag) = @_;

    Error ("Internal: SvnInfo. No Tag provided") unless ( defined $tag );

    Error ("Internal: SvnInfo. No URL provided") unless ( defined $url );

    #

    #   Only call  once

    #       Must simulate a good call

    #

    if ( exists $self->{$tag} )

    {

#DebugDumpData("MeCache: $tag", $self );

        $self->{ERROR_LIST} = [];

        return 0;

    }

    #

    #   Get basic information on the target

    #

    $self->{'infoTag'} = $tag;

    $self->{$tag}{SvnInfoPath} = $url;

    my $rv = $self->SvnCmd ('info', $url, '--depth', 'empty'

                    , { 'credentials' => 1,

                        'nosavedata' => 1,

                        'process' => \&ProcessInfo

                    }

     );

    delete $self->{$tag} if ( @{$self->{ERROR_LIST}} );

    delete $self->{'infoTag'};

#DebugDumpData("Me: $tag", $self );

    return $rv;

}

#-------------------------------------------------------------------------------

# Function        : ProcessInfo

#

# Description     : Process info for SvnInfo

#

# Inputs          : $self           - Instance data

#                   $line           - Command output

#

# Returns         : zero - we don't want to kill the command

#

sub ProcessInfo

{

    my ($self, $line ) = @_;

    Message ( $line ) if $self->{PRINTDATA};

    $line =~ m~(.*?):\s+(.*)~;

    $self->{$self->{'infoTag'}}{$1} = $2;

    return 0;

}

#-------------------------------------------------------------------------------