Subversion Repositories DevTools

    my $rv;

    if ( $test && $rv )

        Verbose2("SvnLocateWsRoot: Invalid path: $rv");

    return 0;

}

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

# Function        :  

#

# Description     : Examine the current workspace and exact information about its

#                   parent.

#                   

#                   Does not extract the entire log history - just the last copyfrom

#

# Inputs          : $self

#

# Returns         : Nothing

#                   Will add {InfoWsExtra} to the session handle

#

sub getWsExtraInfo

{

    my $self = shift;

    #

    #   Determine the source of the merge

    #   Create a hash entry to store working data

    # 

    $self->{btData} = {};

    $self->SvnCmd ( 'log', '-v', '--xml', '--stop-on-copy', '--limit', '1', '-r0:HEAD', $self->{InfoWs}{Path}

                    , { 'process' => \&ProcessWsExtraInfo,

                         }

                        );

    # Grab the first entry of the log array - should only be one

    #

    $self->{InfoWsExtra} = $self->{btData}{Data}[0];

    delete $self->{btData};

}

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

# Function        : ProcessWsExtraInfo

#

# Description     :

#                   Parse

#                       <logentry

#                          revision="24272">

#                       <author>bivey</author>

#                       <date>2005-07-25T15:45:35.000000Z</date>

#                       <paths>

#                       <path

#                          prop-mods="false"

#                          text-mods="false"

#                          kind="dir"

#                          copyfrom-path="/enqdef/branches/Stockholm"

#                          copyfrom-rev="24271"

#                          action="A">/enqdef/tags/enqdef_24.0.1.sls</path>

#                       </paths>

#                       <msg>COTS/enqdef: Tagged by Jats Svn Import</msg>

#                       </logentry>

#

# Inputs          : 

#

# Returns         : 

#

sub  ProcessWsExtraInfo

{

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

    my $data = $self->{btData};

    $data->{Mode} = '' unless ( defined $data->{Mode} );

    return unless ( $line );

#print "----- ($data->{Mode}) $line\n";

    if ( $line =~ m~^<logentry~ ) {

        $data->{Item} = ();

        $data->{Mode} = 'A';

    } elsif ( ($line =~ s~\s*(.+?)="(.*)">(.*)</path>$~~) && ($data->{Mode} eq 'A') ) {

        #

        #   Last entry has two items

        #       Attribute

        #       Data Item

        #

        $data->{Item}->{$1} = $2;

        $data->{Item}->{target} = $3;

    } elsif ( ($line =~ m~\s*(.*?)="(.*)"~) && ($data->{Mode} eq 'A') ) {

        #

        #   Attribute

        #

        $data->{Item}->{$1} = $2;

    } elsif ( $line =~ m~</logentry~ ) {

        $data->{Mode} = '';

        if ( exists $data->{Item}->{'copyfrom-path'} )

        {

            #DebugDumpData("Data", $data->{Item});

            push @{$data->{Data}}, $data->{Item};

        }

    }

    #

    #   Return 0 to keep on going