Major updates to perl scripts

Add new git backend in VCS_git.pm

Switch from an old-style set of function calls to an OO API. This
allows for initialisation and some state to be kept in the VCS_git.pm
module - namely a per-file cache of commit hashes for a massive
performance boost when doing lots of lookups.

Extend the API with 2 new utility functions:
 * get_oldest_revision()
 * next_revision()

Extended the vcs_cmp_rev() function to take a filename too.

Add a test harness to validate the git and cvs backends.

Add switch_to_git_translations.pl to walk the tree and switch from cvs
revisions to git commit hashes in translation-check headers.

Change all of our local scripts to use the new Local::VCS frontend
*where it makes sense*. Some scripts will behave slightly differently,
as the new world can't exactly match the old behaviour.

CVS version numbers

check_desc_trans.pl: 1.9 -> 1.10 
check_trans.pl: 1.93 -> 1.94 
copypage.pl: 1.42 -> 1.43 
karma.pl: 1.6 -> 1.7 
remove_stale.pl: 1.22 -> 1.23 
smart_change.pl: 1.8 -> 1.9 
stattrans.pl: 1.127 -> 1.128 
switch_to_git_translations.pl: INITIAL -> 1.1 
touch_translations.pl: 1.9 -> 1.10 
vcs-test.pl: INITIAL -> 1.1 
Perl/Local/Util.pm: 1.4 -> 1.5 
Perl/Local/VCS.pm: 1.3 -> 1.4 
Perl/Local/VCS_CVS.pm: 1.13 -> 1.14 
Perl/Local/VCS_git.pm: 1.12 -> 1.13 
Perl/Webwml/Langs.pm: 1.5 -> 1.6 
Perl/Webwml/TransIgnore.pm: 1.3 -> 1.4

1 files changed, 5 insertions, 3 deletions

diff --git a/remove_stale.pl b/remove_stale.pl
index 7d9a0bd6070..4a7589164e3 100755
--- a/remove_stale.pl
+++ b/remove_stale.pl
@@ -26,12 +26,14 @@ FindBin::again();
 use lib "$FindBin::Bin/Perl";
 
 use Webwml::Langs;
-use Local::VCS 'vcs_file_info';
+use Local::VCS;
 
 
 # directory where "make install" installs the website
 use constant INSTALLDIR => '../www';
 
+my $VCS = Local::VCS->new();
+
 ###############################################################
 # "main"
 {
@@ -128,7 +130,7 @@ sub find_stale_files
 	my %wmlfiles  = map { $_ => 1 } find_files_ext( $dir, 'wml' );
 
 	# Locate all HTML files, and find out which ones do not correspond
-	# to a WML file, and does not live in the CVS by itself.
+	# to a WML file, and does not live in the VCS by itself.
 	my @toremove;
 	foreach my $htmlfile (sort @htmlfiles)
 	{
@@ -151,7 +153,7 @@ sub find_stale_files
 		my $haswml = exists( $wmlfiles{$source} ) || -f $source || 0;
 
 		# is the html file checked in the VCS?
-		my $checkedin = vcs_file_info($htmlfile , quiet => 1 ) ? 1 : 0;
+		my $checkedin = $VCS->file_info($htmlfile , quiet => 1 ) ? 1 : 0;
 
 		#if ($checkedin) 
 		#{ print "==> `$htmlfile' : `$source' : $haswml : $checkedin\n"; }