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, 8 insertions, 5 deletions

diff --git a/check_desc_trans.pl b/check_desc_trans.pl
index 4311458ec64..0215caf08fa 100755
--- a/check_desc_trans.pl
+++ b/check_desc_trans.pl
@@ -90,15 +90,17 @@ my $directory = catdir( 'MailingLists' , 'desc' );
 my $srcdir    = catdir( 'english', $directory );
 my $destdir   = catdir( $language, $directory );
 
-# read svn info about files in source dir
-my %revision_info = vcs_path_info( $srcdir, 'recursive' => 1 );
+my $VCS = Local::VCS->new();
+
+# read VCS info about files in source dir
+my %revision_info = $VCS->path_info( $srcdir, 'recursive' => 1 );
 
 # read the translation-check files in dest dir
 my %transcheck = read_transcheck( $destdir );
 
 # check all files
 my ($nr_uptodate,$nr_old,$nr_needtrans,$nr_obsolete,$nr_error) = 
-	check_all( $language, $directory, \%transcheck, \%revision_info );
+	check_all( $VCS, $language, $directory, \%transcheck, \%revision_info );
 
 # print results
 print "\nResults:\n";
@@ -160,6 +162,7 @@ sub read_transcheck
 # check all translations
 sub check_all
 {
+	my $VCS     = shift;
 	my $lang    = shift  or  die("No language specified");
 	my $dir     = shift  or  die("No directory specified");
 	my $files   = shift  or  die("No transcheck files specified");
@@ -202,7 +205,7 @@ sub check_all
 		if ( -e $file_english and -e $file_transl )
 		{
 			# needs update
-			if ( vcs_cmp_rev( $files->{$file}, $revinfo->{$file}->{'cmt_rev'} ) == -1 )
+			if ( $VCS->cmp_rev( $file_english, $files->{$file}, $revinfo->{$file}->{'cmt_rev'} ) == -1 )
 			{
 				$nr_old++;
 				print color('blue'), $file_transl, color('reset');
@@ -210,7 +213,7 @@ sub check_all
 					$files->{$file}, $revinfo->{$file}->{'cmt_rev'};
 			}
 			# translated file is too new
-			elsif ( vcs_cmp_rev( $files->{$file}, $revinfo->{$file}->{'cmt_rev'} ) == -1 )
+			elsif ( $VCS->cmp_rev( $file_english, $files->{$file}, $revinfo->{$file}->{'cmt_rev'} ) == -1 )
 			{
 				$nr_error++;
 				print color('blue'), $file_transl, color('reset');