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";
}
