From 10da57fe283f22159ca3a0b53bfba73c0e940c87 Mon Sep 17 00:00:00 2001
From: raoulvdberge <raoulvdberge@gmail.com>
Date: Tue, 19 Jun 2018 17:33:16 +0200
Subject: [PATCH] Remove terrible Perl translation-diff script.

---
 tools/missing-translation-keys.sh | 22 +++++++++++++
 translation-diff.pl               | 51 -------------------------------
 2 files changed, 22 insertions(+), 51 deletions(-)
 create mode 100644 tools/missing-translation-keys.sh
 delete mode 100755 translation-diff.pl

diff --git a/tools/missing-translation-keys.sh b/tools/missing-translation-keys.sh
new file mode 100644
index 000000000..faffd2f43
--- /dev/null
+++ b/tools/missing-translation-keys.sh
@@ -0,0 +1,22 @@
+# usage: missing-translation-keys.sh nl_nl
+
+if [ $# -ne 1 ]; then
+    echo "missing language to compare with"
+    exit
+fi
+
+filename=src/main/resources/assets/refinedstorage/lang/$1.lang
+
+if [ ! -f $filename ]; then
+    echo "$filename not found"
+    exit
+fi
+
+BASE_LANG="en_us"
+
+cat src/main/resources/assets/refinedstorage/lang/$BASE_LANG.lang | cut -d "=" -f 1 > a.lang
+cat $filename | cut -d "=" -f 1 > b.lang
+
+diff -s -y a.lang b.lang
+
+rm a.lang b.lang
diff --git a/translation-diff.pl b/translation-diff.pl
deleted file mode 100755
index 8c101baa9..000000000
--- a/translation-diff.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-# Utility for comparing language translation keys of BASE_LANG and a given language.
-# Usage: perl translation-diff.pl $lang
-# Will output a translation-diff.diff file that compares the lang keys of BASE_LANG to $lang.
-
-use constant {
-    BASE_LANG => "en_US",
-    OUTPUT_FILE => "translation-diff.diff"
-};
-
-my $lang = $ARGV[0] or die("Missing language to diff with");
-
-sub lang_file {
-    my ($lang) = @_;
-    my $filename = "src/main/resources/assets/refinedstorage/lang/" . $lang . ".lang";
-    open(my $fh, $filename) or die("Couldn't open $filename");
-    return $fh;
-}
-
-sub write_keys {
-    my ($lang, $lang_keys) = @_;
-    my $filename = $lang . ".tmp";
-    open(my $fh, '>', $filename) or die("Couldn't open temp file $filename for $lang for writing");
-    print $fh $lang_keys;
-    close $fh;
-    return $filename;
-}
-
-sub lang_keys {
-    my ($lang_file) = @_;
-    my $keys = "";
-    while (my $line = <$lang_file>) {
-        my @p = split("=", $line);
-        $keys .= $p[0] . "\n";
-    }
-    return $keys;
-}
-
-my $f1 = lang_file(BASE_LANG);
-my $f2 = lang_file($lang);
-
-my $base_keys = lang_keys($f1);
-my $t1 = write_keys(BASE_LANG, $base_keys);
-
-my $lang_keys = lang_keys($f2);
-my $t2 = write_keys($lang, $lang_keys);
-
-system("diff -s -y $t1 $t2 > " . OUTPUT_FILE);
-
-unlink($t1, $t2);
-
-close($f1, $f2);