Perl wrapper to the svnlook command.
use SVN::SVNLook;
my $revision = 1;
my $svnlook = SVN::SVNLook->new(repo => 'repo url',
cmd => 'path to svn look');
my ($author,$date,$logmessage) = $svnlook->info(revision => $revision);
print "Author $author\n";
print "Date $date\n";
print "LogMessage $logmessage\n";
SVN::SVNLook runs the command line client. This module was created to make adding hooks script easier to manipulate.
youngest ();
Perform the youngest command on the repository. Returns the revision number of the most recent revision as a scalar.
info (revision=>$revision);
Perform the info command, for a given revision or transaction using named parameters, or a single parameter will be assumed to mean revision for backwards compatibility. The information returned is an array containing author, date, and log message. If no $revision is specified, info for the youngest revision is returned.
author (revision=>$revision);
Perform the author command, for a given revision or transaction using named parameters or a single parameter will be assumed to mean revision for backwards compatibility. The information returned is the author message. If no $revision or transaction is specified, author for the youngest revision is returned.
dirschanged (revision=>$revision)
Performs the dirs-changed command, for a given revision or transaction using named parameters, or a single parameter will be assumed to mean revision for backwards compatibility. This method returns a boolean and an array reference.
fileschanged (revision=>$revision)
Performs the changed command, for a given revision or transaction using named parameters or a single parameter will be assumed to mean revision for backwards compatibility this method returns 3 array references added, deleted and modified.
diff (revision=>$revision)
Performs the diff command, for a given revision or transaction using named parameters or a single parameter will be assumed to mean revision for backwards compatability this method returns a hash reference, with each file being the key and value being the diff info.
Salvatore E ScottoDiLuzio, <[email protected]> Contributions by Kevin Semande
Copyright 2005 Salvatore E. ScottoDiLuzio. All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.