diff options
author | Norbert Thiebaud <nthiebaud@gmail.com> | 2012-09-01 09:51:27 -0500 |
---|---|---|
committer | Norbert Thiebaud <nthiebaud@gmail.com> | 2012-10-16 11:07:30 -0500 |
commit | 61173c1b58efa79c0ba6b08348d2796a249d0186 (patch) | |
tree | 00ebf544db18942e2a1ecfc5e5fa16931127d38f /helpcontent2/helpers/checkuno.pl | |
parent | 3dc2e7497f1798ae4ff6c5c8c562666bc10a393c (diff) |
move help structure one directory up
Change-Id: Ie970e39fbb6795a92d9fdd13510409d7dcd071bc
Diffstat (limited to 'helpcontent2/helpers/checkuno.pl')
-rw-r--r-- | helpcontent2/helpers/checkuno.pl | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/helpcontent2/helpers/checkuno.pl b/helpcontent2/helpers/checkuno.pl deleted file mode 100644 index 68a6768a2b..0000000000 --- a/helpcontent2/helpers/checkuno.pl +++ /dev/null @@ -1,53 +0,0 @@ -#!/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"; -} - - - |