4-stable/doc/htmlhelp_index_make.pl

#! /usr/bin/perl

#
# HTMLヘルプのインデックスファイルを生成する
#
# Usage(ActivePerl):
#  perl htmlhelp_index_make.pl ja html > ja\Index.hhk
#

use Cwd;
@dirstack = (); 

do_main($ARGV[0], $ARGV[1]);

exit(0);

sub do_main {
        my($path, $body) = @_;

        print << 'EOD';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML><HEAD>
<meta name="GENERATOR" content="TeraTerm Project">
<!-- Sitemap 1.0 -->
</HEAD><BODY>
<UL>
EOD

        push @dirstack, getcwd; 
        chdir $path; 
        get_file_paths($body);
        chdir pop @dirstack; 

        print << 'EOD';
</UL>
</BODY></HTML>
EOD

}


sub get_file_paths {
        my ($top_dir)= @_;
        my @paths=();
        my @temp = ();

        #-- カレントの一覧を取得 --#
        opendir(DIR, $top_dir);
        @temp = readdir(DIR);
        closedir(DIR);
        foreach my $path (sort @temp) {
                next if( $path =~ /^\.{1,2}$/ );                # '.' と '..' はスキップ
                next if( $path =~ /^\.svn$/ );                # '.svn' はスキップ
                
                my $full_path = "$top_dir" . '/' . "$path";
                next if (-B $full_path);     # バイナリファイルはスキップ
                
#               print "$full_path\r\n";                     # 表示だけなら全てを表示してくれる-------
                push(@paths, $full_path);                       # データとして取り込んでも前の取り込みが初期化される
                if( -d "$top_dir/$path" ){                      #-- ディレクトリの場合は自分自身を呼び出す
                        &get_file_paths("$full_path");
                        
                } else {
                        check_html_file($full_path);
                
                }
        }
        return \@paths;
}

sub check_html_file {
        my($filename) = shift;
        local(*FP);
        my($line, $no, $val);
        
        if ($filename !~ /.html$/) {
                return;
        }
        
        open(FP, "<$filename") || return;
        $no = 1;
        while ($line = <FP>) {
#               $line = chomp($line);
#               print "$line\n";
                if ($line =~ /<TITLE>(.+)<\/TITLE>/i) {
#                       print "$filename:$no: $1\n";
#                       print "$line\n";
                        $val = $1;
                        $val =~ s/"/&#34;/g;  # 二重引用符をエスケープする
                        write_add_index($filename, $val);
                        last;
                }

                $no++;
        }
        close(FP);
}

sub write_add_index {
        my($filename, $title) = @_;
        
        print << "EOD";
<LI><OBJECT type="text/sitemap">
<param name="Name" value="$title">
<param name="Local" value="$filename">
</OBJECT>
EOD

}
