summaryrefslogtreecommitdiff
path: root/helpcontent2/helpers/checkuno.pl
diff options
context:
space:
mode:
authorNorbert Thiebaud <nthiebaud@gmail.com>2012-09-01 09:51:27 -0500
committerNorbert Thiebaud <nthiebaud@gmail.com>2012-10-16 11:07:30 -0500
commit61173c1b58efa79c0ba6b08348d2796a249d0186 (patch)
tree00ebf544db18942e2a1ecfc5e5fa16931127d38f /helpcontent2/helpers/checkuno.pl
parent3dc2e7497f1798ae4ff6c5c8c562666bc10a393c (diff)
move help structure one directory up
Change-Id: Ie970e39fbb6795a92d9fdd13510409d7dcd071bc
Diffstat (limited to 'helpcontent2/helpers/checkuno.pl')
-rw-r--r--helpcontent2/helpers/checkuno.pl53
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";
-}
-
-
-