You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
89 lines
2.5 KiB
89 lines
2.5 KiB
#!/usr/bin/perl
|
|
#
|
|
# split up an HTML file generated with e.g.
|
|
#
|
|
# /opt/kde3/bin/meinproc --check \
|
|
# --stylesheet `dirname $(KDE_XSL_STYLESHEET)`/kde-chunk-online.xsl \
|
|
# $(srcdir)/index.docbook -o index.xml;
|
|
#
|
|
# into several HTML files. While processing the input file - which
|
|
# must be named index.xml - replace the following occurences:
|
|
#
|
|
# source destination
|
|
# ---------------------------------------------------------------------------
|
|
# HEAD/common ../common
|
|
# <a href=\"/search_form.html\">Search</a> -literally nothing-
|
|
# <a href=\"/\">docs.kde.org</a> <a href=\"index.html\">Home</a>
|
|
#
|
|
# The script should be started in the directory where the file index.xml
|
|
# is located. The output files will be generated in the same directory.
|
|
#
|
|
# (C) 2007,2009 by Thomas Baumgart (ipwizard at users.sourceforge.net)
|
|
#
|
|
#***************************************************************************
|
|
#* This program is free software; you can redistribute it and/or modify *
|
|
#* it under the terms of the GNU General Public License as published by *
|
|
#* the Free Software Foundation; either version 2 of the License, or *
|
|
#* (at your option) any later version. *
|
|
#***************************************************************************/
|
|
|
|
|
|
sub endFile
|
|
{
|
|
close OUT;
|
|
$fileIdx--;
|
|
if($fileIdx > 0) {
|
|
open(OUT, ">> $fname[$fileIdx]") or die("Unable to open file");
|
|
}
|
|
}
|
|
|
|
sub startFile
|
|
{
|
|
$fileIdx++;
|
|
my $node = shift;
|
|
$node =~ /FILENAME filename="(.*)"/;
|
|
my $name = $1;
|
|
$fname[$fileIdx] = $name;
|
|
open(OUT, "> $fname[$fileIdx]") or die("Unable to open file");
|
|
}
|
|
|
|
sub processLine
|
|
{
|
|
my $line = shift;
|
|
# .....</FILENAME>....
|
|
if($line =~ /(.*)(<\/FILENAME>)(.*)/) {
|
|
my $s = $1;
|
|
my $e = $3;
|
|
processLine($s);
|
|
endFile();
|
|
processLine($e);
|
|
}
|
|
# .....<FILENAME filename="index.html">....
|
|
elsif($line =~ /(.*)(<FILENAME filename="[^>\"]*">)(.*)/) {
|
|
my $s = $1;
|
|
my $f = $2;
|
|
my $e = $3;
|
|
processLine($s);
|
|
startFile($f);
|
|
processLine($e);
|
|
}
|
|
else {
|
|
# replace HEAD/common with ../common
|
|
$line =~ s#/HEAD/common#../common#g;
|
|
# don't show access to search form
|
|
$line =~ s#<a href=\"/search_form.html\">Search</a>##g;
|
|
# don't link to docs.kde.org
|
|
$line =~ s#<a href=\"/\">docs.kde.org</a>#<a href=\"index.html\">Home</a>#g;
|
|
print OUT "$line\n";
|
|
}
|
|
}
|
|
|
|
$fileIdx = 0;
|
|
open(IN, "< index.xml");
|
|
while(<IN>) {
|
|
chomp($_);
|
|
my $line = $_;
|
|
processLine($line);
|
|
}
|
|
close IN;
|