1 files changed, 70 insertions, 0 deletions
diff --git a/helpcontent2/helpers/checkuno.pl b/helpcontent2/helpers/checkuno.pl
new file mode 100644
index 000000000..6ea731fa6
--- /dev/null
+++ b/helpcontent2/helpers/checkuno.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+#
+# This file is part of the LibreOffice project.
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This file incorporates work covered by the following license notice:
+#
+#   Licensed to the Apache Software Foundation (ASF) under one or more
+#   contributor license agreements. See the NOTICE file distributed
+#   with this work for additional information regarding copyright
+#   ownership. The ASF licenses this file to you under the Apache
+#   License, Version 2.0 (the "License"); you may not use this file
+#   except in compliance with the License. You may obtain a copy of
+#   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+#
+
+$uno_hid = "/handbuch/WORKBENCH/helpcontent2/helpers/uno_hid.lst";
+$uno_cmd = "/handbuch/WORKBENCH/helpcontent2/helpers/unocmds.txt";
+$startdir = "/handbuch/WORKBENCH/helpcontent2/source/text/";
+
+if (open HID, $uno_hid) {
+    while (<HID>) {
+        chomp;
+        ($shid,$nhid,$uno) = split ",";
+        $hid{lc($uno)} = $shid;
+    }
+    close HID;
+} else {
+    die "Cannot open $uno_hid: $!\n";
+}
+print scalar keys(%hid) . " entries read\n";
+
+if (open UNO, $uno_cmd) {
+    while (<UNO>) {
+        chomp;
+        ($uno,$file) = split ";";
+        #print "$file\n";
+        if (defined $hid{lc($uno)}) {
+            if (open XML, "$startdir$file") {
+                undef $/;
+                $xml = <XML>;
+                $/ = "\n";
+                close XML;
+                if ($xml =~ /hid\/$hid{lc($uno)}/ig) {
+                    print "OK    $startdir$file\n";
+                } else {
+                    print "MISS  $startdir$file\n";
+                    open XML, ">$startdir$file.org";
+                    print XML $xml;
+                    close XML;
+                    open XML, ">$startdir$file";
+                    $id = "bm_id" . int(rand(10000000));
+                    $xml =~ s/(<bookmark[^>]*branch=\"hid\/$uno\"[^>]*>)/<bookmark xml-lang=\"en-US\" branch=\"hid\/$hid{lc($uno)}\" id=\"$id\" localize=\"false\"\/><!-- HID added by script -->\n$1/ig;
+                    print XML $xml;
+                    close XML;
+                }
+            } else {
+                print "Cannot open $startdir$file: $!\n";
+            }
+        }
+    }
+} else {
+    die "Cannot open $uno_cmd: $!\n";
+}
+
+
+