provide _krb5_einval and _krb5_debug_backtrace that will ease figuring out when it...
[heimdal.git] / cf / w32-hh-toc-from-info.pl
blob2207c5cf411c3e81a8ee5899483475ff5bfcd176
1 ########################################################################
3 # Copyright (c) 2010, Secure Endpoints Inc.
4 # All rights reserved.
6 # Redistribution and use in source and binary forms, with or without
7 # modification, are permitted provided that the following conditions
8 # are met:
10 # - Redistributions of source code must retain the above copyright
11 # notice, this list of conditions and the following disclaimer.
13 # - Redistributions in binary form must reproduce the above copyright
14 # notice, this list of conditions and the following disclaimer in
15 # the documentation and/or other materials provided with the
16 # distribution.
18 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19 # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20 # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
21 # FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
22 # COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
23 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
24 # BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
25 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
26 # CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
28 # ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 # POSSIBILITY OF SUCH DAMAGE.
32 use HTML::TreeBuilder;
35 my $input_file = "index.html";
36 my $toc_file = "toc.hhc";
38 for (@ARGV) {
39 ARG: {
40 /-o(.*)/ && do {
41 $toc_file = $1;
42 last ARG;
45 $input_file = $_;
49 print "Processing TOC in $input_file\n";
50 print "Writing to $toc_file\n";
52 open(TOC, '>', $toc_file) or die "Can't open $toc_file\n";
54 my $tree = HTML::TreeBuilder->new();
56 $tree->parse_file($input_file);
58 my $contents = $tree->look_down('class', 'contents');
59 my $clist = $contents->find_by_tag_name('ul');
61 print TOC '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
62 <html>
63 <head>
64 <meta name="GENERATOR" content="Heimdal">
65 </head>
66 <body>
69 process_ul_element($clist, 0);
71 print TOC '
72 </body>
73 </html>
77 sub process_ul_element
79 my $e = shift;
80 my $level = shift;
82 if ($e->tag() eq "ul") {
84 print TOC ' 'x$level;
85 print TOC "<ul>\n";
87 my @items = $e->content_list();
89 for (@items) {
90 process_li_element($_, $level + 1);
93 print TOC ' 'x$level;
94 print TOC "</ul>\n";
98 sub process_li_element
100 my $e = shift;
101 my $level = shift;
103 if ($e->tag() eq "li") {
104 my $a = $e->find_by_tag_name('a');
106 my $href = $a->attr('href');
107 my @ac = $a->content_list();
108 my $title = $ac[0];
110 print TOC " "x$level;
111 print TOC "<li><object type=\"text/sitemap\"><param name=\"Name\" value=\"$title\"><param name=\"Local\" value=\"$href\"></object>\n";
113 my @items = $e->content_list();
115 for (@items) {
116 process_ul_element($_, $level + 1);