Commit files if changes are found

transifex-commit-translations.pl

@@ -1,6 +1,10 @@
 #! /usr/bin/perl -w
 
 
+use File::Basename;
+use Git::Wrapper;
+
+
 our $pofile;
 
 our $user_name  = "Hakan Tandogan";
@@ -32,13 +36,41 @@ sub obtain_translator
 		$user_name =~ s/\s+$//g;
 
 		$user_email = $foo[1];
+
+		# Fix for polish umlaits (Sorry, Michal)
+		if ( $user_email eq "gatkowski.michal\@gmail.com" )
+		{
+		    $user_name = "Michal Gatkowski";
+		}
 	    }
 	}
     }
     close (PO);
 }
 
 
+sub commit_if_necessary
+{
+    $repodir = dirname($pofile);
+    # print "Repo is in " . $repodir . "\n";
+    my $git = Git::Wrapper->new($repodir);
+    # print "Git wrapper is " . $git . "\n";
+    $git->config('user.name',  $user_name);
+    $git->config('user.email', $user_email);
+
+    $filename = fileparse($pofile);
+    $git->add($filename);
+
+    $message = $pofile;
+    $message =~ s/^\.\///;
+    $message =~ s/^scripts\///;
+    $message =~ s/^\.\.\///;
+    $message = "Translated " . $message . " on transifex.com";
+    # print "Message: '" . $message . "'\n"
+    $git->commit({ message => $message });
+}
+
+
 
 if ($#ARGV > -1)
 {
@@ -48,5 +80,7 @@ sub obtain_translator
 	obtain_translator();
 
 	print $pofile . " - '" . $user_name . "' - '" . $user_email . "'\n";
+
+	commit_if_necessary();
     }
 }