From 7321534b42aab3ab2064c73b6326d52f395f023c Mon Sep 17 00:00:00 2001
From: Gervase Markham <gerv@gerv.net>
Date: Wed, 30 Sep 2015 09:03:22 +0100
Subject: Bug 1156785 - add new Localization Guide for in-place review.

---
 contrib/new-locale.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 contrib/new-locale.pl

(limited to 'contrib/new-locale.pl')

diff --git a/contrib/new-locale.pl b/contrib/new-locale.pl
new file mode 100755
index 000000000..a2feb3dda
--- /dev/null
+++ b/contrib/new-locale.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+
+use File::Find;
+use File::Copy::Recursive qw(dircopy);
+
+($ARGV[0] && $ARGV[0] =~ /\w\w(-\w\w)?/) || usage();
+
+sub process {
+    if ($_ eq 'en' && $File::Find::name !~ /\/data\//) {
+        dircopy($_, $ARGV[0]);
+    }
+}
+
+find(\&process, ".");
+
+sub usage {
+    print "Usage: new-locale.pl <lang code>\n";
+    print " e.g.: new-locale.pl fr\n";
+}
-- 
cgit v1.2.3-24-g4f1b