Re: Perl bindings (was: Re: SVN::Client -- determine recent interesting rev of file)

On 7/12/06, Nik Clayton <nik@ngo.org.uk> wrote:
> > One of the things I need to do is, given a repository path and a
> > revision, find the youngest revision in which the path was modified that
> > is less than or equal to the given revision.

Hi Nik,

The Perl bindings for Subversion 1.4 now support svn_client_info.
Using this function, you can easily find out the last revision at
which a specified path was changed. Here's an example script to show
you how.

use SVN::Client;

# Create a new client object
my ($ctx) = SVN::Client->new;

# Print out the last rev before $rev at which the following
# URL was changed
my $url = "http://svn.collab.net/repos/svn/trunk/contrib";
my $rev = 13000;
print last_changed_rev($url, $rev), "\n";

sub last_changed_rev {
  my ($url, $rev) = @_;
  my $last_changed_rev;
  $ctx->info($url, undef, $rev,
     sub
     {
       my ($path, $info, $pool) = @_;
       $last_changed_rev = $info->last_changed_rev();
     },
  0);
  return $last_changed_rev;
}

Hope this helps,

David

-- 
David James -- http://www.cs.toronto.edu/~james
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org