SVN API in Perl

[Christian Kuelker]

Dear Giulio Troccoli,

> I'm simply trying to get the status of a WC. In my Perl script I have
[...]
> How do I use $status in status_receiver?

The document http://www.perlmonks.org/?node_id=738308 might help.

Attached script shows simple usage. It assumes a checked out repro
at /tmp/svn.

Kind regards
Christian


#!/usr/bin/perl -w
use warnings;
use strict;
use SVN::Client;

my $path      = '/tmp/svn';
my $recursive = 1;            # for checkout, status
my $update    = 1;            # status will compare with online repository
my $get_all   = 1;            # status will get only interesting

my $ctx = SVN::Client->new();
$ctx->status($path,'HEAD',\&status_func,$recursive,$get_all,$update,0);

sub status_func {
    my $p = shift;            # path
    my $s = shift;            # status object

    if ( $s->copied() ) { # use status object directly
        print 'copied';
    }
    else {
        print q{ } x 6;
    }
    my $e = $s->entry(); # get entry object
    print " commit author " . $e->cmt_author();

    $p =~ s{^$path/}{}gmx;
    print "$p \n";

}