[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

Failed attempt to get log messages using the Perl bindings.

From: Martin Tomes <lists_at_tomes.org>
Date: 2004-02-10 17:53:11 CET

I have 0.37.0 installed with the Python and Perl bindings. viewcvs
works with subversion. I am using Apache 2 as the server. Today I
tried to use the Perl bindings to get at the repository content, I got
SVN::Client to log in and give me the content of a file but I cannot get
the log. Whenever I run the Perl program Apache starts using loads of
CPU and I get nothing back. I have to shut down Apache, to a recoved
and start it up again. This is all running on RedHat 8.0 on a Dell dual
processor server.

This is my program, I changed it to use Ra, but I get the same result
using the log method on SVN::Client:


use strict;
use SVN::Ra;

my $repo = 'http://syrah.controls.eurotherm.co.uk:81/repos/controls/';

my $r = new SVN::Ra(
  url => $repo,
  auth => [SVN::Client::get_simple_provider(),
           SVN::Client::get_simple_prompt_provider(\&simple_prompt, 2),

sub simple_prompt {
  my $cred = shift;
  my $realm = shift;
  my $default_username = shift;
  my $may_save = shift;
  my $pool = shift;

sub show_log {
  my $changed_paths = shift;
  my $revision = shift;
  my $author = shift;
  my $date = shift;
  my $message = shift;
  my $pool = shift;

  print STDOUT "Rev: $revision\n\n$message\n";

$r->get_log(['itools/trunk/dbuildp.bat'], 'HEAD', 1, 1, 0, \&show_log);

Any ideas?

Martin Tomes
echo 'Martin x Tomes at controls x eurotherm x co x uk'\
  | sed -e 's/ x /\./g' -e 's/ at /@/'
To unsubscribe, e-mail: users-unsubscribe@subversion.tigris.org
For additional commands, e-mail: users-help@subversion.tigris.org
Received on Tue Feb 10 17:54:46 2004

This is an archived mail posted to the Subversion Users mailing list.

This site is subject to the Apache Privacy Policy and the Apache Public Forum Archive Policy.