move help structure one directory up

Change-Id: Ie970e39fbb6795a92d9fdd13510409d7dcd071bc

1 files changed, 53 insertions, 0 deletions

diff --git a/helpers/checkuno.pl b/helpers/checkuno.pl
new file mode 100644
index 0000000000..68a6768a2b
--- /dev/null
+++ b/helpers/checkuno.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+
+$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";
+}
+
+
+