Re: getting properties via perl bindings

Karl =?iso-8859-1?Q?Hasselstr=F6m?= <kha@treskal.com> writes:

> But. I can find exactly one way to get file and directory properties
> via ra, and that is svn_ra_get_file and svn_ra_get_dir. These are only

0 tmp% cat foo.pl
use SVN::Ra;
my $ra = new SVN::Ra (url=>'http://svn.collab.net/repos/svn');
my (undef, $properties) = get_file $ra ('trunk/dist.sh', -1, undef);
printf("%30s: %s\n", $_, $properties->{$_}) for sort(keys(%$properties));
0 tmp% perl ./foo.pl
      svn:entry:committed-date: 2006-01-14T22:00:40.080724Z
       svn:entry:committed-rev: 18104
         svn:entry:last-author: danderson
                svn:entry:uuid: 65390229-12b7-0310-b90b-f21a5aa7ec8e
                 svn:eol-style: native
                svn:executable: on
     svn:wc:ra_dav:version-url: /repos/svn/!svn/ver/18104/trunk/dist.sh

-- 
Eric Gillespie <*> epg@pretzelnet.org
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org