├── .cvsignore
├── .gitignore
├── Linux+IPv6-HOWTO.pdf
├── Linux+IPv6-HOWTO.de.pdf
├── Linux+IPv6-HOWTO.fr.pdf
├── Linux+IPv6-HOWTO.pt_BR.pdf
├── generate-en-de.sh
├── generate-all.sh
├── README
├── info.txt
├── copytohowtodir.sh
├── sgmllyxtabletagfix.pl
├── sgmllyxquotefix.pl
├── runsgmlfix.sh
├── lyxcodelinewrapper.pl
├── make.sh
├── generate.sh
├── ldp.dsl
└── check_urls.pl


/.cvsignore:
--------------------------------------------------------------------------------
1 | 


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
1 | *~
2 | Linux+IPv6-HOWTO*/*
3 | 


--------------------------------------------------------------------------------
/Linux+IPv6-HOWTO.pdf:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/tLDP/Linux-IPv6/HEAD/Linux+IPv6-HOWTO.pdf


--------------------------------------------------------------------------------
/Linux+IPv6-HOWTO.de.pdf:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/tLDP/Linux-IPv6/HEAD/Linux+IPv6-HOWTO.de.pdf


--------------------------------------------------------------------------------
/Linux+IPv6-HOWTO.fr.pdf:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/tLDP/Linux-IPv6/HEAD/Linux+IPv6-HOWTO.fr.pdf


--------------------------------------------------------------------------------
/Linux+IPv6-HOWTO.pt_BR.pdf:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/tLDP/Linux-IPv6/HEAD/Linux+IPv6-HOWTO.pt_BR.pdf


--------------------------------------------------------------------------------
/generate-en-de.sh:
--------------------------------------------------------------------------------
 1 | #!/bin/sh
 2 | 
 3 | # Generate all available howtos
 4 | 
 5 | list="Linux+IPv6-HOWTO.sgml Linux+IPv6-HOWTO.de.sgml"
 6 | 
 7 | for lyx in $list; do
 8 | 	./generate.sh $lyx $* || exit 1
 9 | done
10 | 
11 | echo -en "\a"
12 | 


--------------------------------------------------------------------------------
/generate-all.sh:
--------------------------------------------------------------------------------
 1 | #!/bin/sh
 2 | 
 3 | # Generate all available howtos
 4 | 
 5 | list="Linux+IPv6-HOWTO.sgml Linux+IPv6-HOWTO.de.sgml Linux+IPv6-HOWTO.fr.sgml Linux+IPv6-HOWTO.pt_BR.sgml"
 6 | 
 7 | for lyx in $list; do
 8 | 	./generate.sh $lyx
 9 | done
10 | 
11 | echo -en "\a"
12 | 


--------------------------------------------------------------------------------
/README:
--------------------------------------------------------------------------------
 1 | This is the "in-progress" document source repository for the
 2 | 
 3 | 	LINUX+IPv6-HOWTO
 4 | 
 5 | also containing translations which isn't (fully) supported by tLDP.
 6 | 
 7 | 
 8 | Generated versions are published:
 9 | - http://mirrors.deepspace6.net/howtos/
10 | - http://mirrors.bieringer.de/
11 | 
12 | Released versions are also published on tLDP:
13 | - http://www.tldp.org/HOWTO/Linux+IPv6-HOWTO/
14 | 
15 | 
16 | 2017-03-04 Peter Bieringer <pb (at) bieringer.de>
17 | 


--------------------------------------------------------------------------------
/info.txt:
--------------------------------------------------------------------------------
 1 | # $Id$
 2 | 
 3 | This is the working directory of
 4 | 	Peter Bieringer
 5 | 		pb (at) bieringer.de
 6 | 
 7 | Content:
 8 | 	Linux+IPv6-HOWTO.lyx (online next)
 9 | 		LyX file of the Linux+IPv6-HOWTO
10 | 
11 | 	lyxcodelinewrapper.pl
12 | 		Perl program which wraps too long "code" lines in a LyX file
13 | 
14 | 	sgmllyxtabletagfix.pl
15 | 		Perl program which fixes table tags
16 | 
17 | 	sgmllyxquotefix.pl
18 | 		Perl program which fixes quote tags
19 | 
20 | 	copytohowtodir.sh
21 | 		Shell program which copy SGML file to local howto directory
22 | 
23 | 	runsgmlfix.sh
24 | 		Shell program which runs all the SGML code fix programs
25 | 
26 | 	generate.sh
27 | 		Shell program which run different generation steps (needed for local review)
28 | 		requires: sgml-common opensp openjade docbook-utils-pdf recode htmldoc
29 | 
30 | 2017-01-08 Test
31 | 


--------------------------------------------------------------------------------
/copytohowtodir.sh:
--------------------------------------------------------------------------------
 1 | #!/bin/sh
 2 | #
 3 | # $Id$
 4 | #
 5 | # Small helper script to copy SGML file to howto dir
 6 | #
 7 | # (P) & (C) by Peter Bieringer <pb at bieringer dot de>
 8 | #
 9 | # 20020119/PB: initial
10 | 
11 | 
12 | FILE_SGML="Linux+IPv6-HOWTO.sgml"
13 | 
14 | DIRSRC="./"
15 | DIRDST="../../howto/docbook/"
16 | 
17 | if [ ! -f "${DIRSRC}${FILE_SGML}" ]; then
18 | 	echo "ERR : Missing SGML file '${DIRSRC}${FILE_SGML}'!"
19 | 	exit 1
20 | fi
21 | 
22 | if [ -f "${DIRDST}${FILE_SGML}" ]; then
23 | 	if [ "${DIRDST}${FILE_SGML}" -nt "${DIRSRC}${FILE_SGML}" ]; then
24 | 		echo "ERR : SGML file at destination is newer than source!"
25 | 		exit 1
26 | 	fi
27 | fi
28 | 
29 | if [ -f "${DIRDST}${FILE_SGML}" ]; then
30 | 	echo "INF : Remove old SGML file '${DIRDST}${FILE_SGML}'"
31 | 	rm "${DIRDST}${FILE_SGML}"
32 | fi
33 | 
34 | echo "INF : Copy new SGML file"
35 | cp "${DIRSRC}${FILE_SGML}" "${DIRDST}${FILE_SGML}"
36 | 


--------------------------------------------------------------------------------
/sgmllyxtabletagfix.pl:
--------------------------------------------------------------------------------
 1 | #!/usr/bin/perl
 2 | #
 3 | # $Id$
 4 | #
 5 | # SGML LyX table tag fix tool
 6 | #
 7 | # (P) & (C) 2002 by Peter Bieringer <pb@bieringer.de>
 8 | #
 9 | # Published under the GNU GPL licence
10 | #
11 | # Takes SGML output exported by LyX and fix a bug in the table tag.
12 | # Don't know the reason what causes this, but it is wrong.
13 | #  -> This bug is fixed in LyX 1.1.6fix4
14 | #
15 | # Example:
16 | #  - <colspec colname="col0" align="center"/>
17 | #  + <colspec colname="col0" align="center">
18 | #
19 | # Changes:
20 | #  20020119/PB: Initial release
21 | #  20020125/PB: Minor review
22 | #  20020130/PB: add comment
23 | #
24 | 
25 | print STDERR "INF : Fix 'colspec' lines\n";
26 | 
27 | while (<STDIN>) {
28 | 	my $line = $_;
29 | 	chomp $line;
30 | 
31 | 	#print "$line";
32 | 	#print "\n";
33 | 
34 | 	if ($line =~ /^<colspec/) {
35 | 		if ($line =~ /\/>$/) {
36 | 			print STDERR "C";
37 | 
38 | 			# Substitute '/>' with '>'
39 | 			$line =~ s/\/>$/>/g;
40 | 		};
41 | 	};
42 | 
43 |        	print $line . "\n";
44 | };
45 | print STDERR "\n";
46 | 


--------------------------------------------------------------------------------
/sgmllyxquotefix.pl:
--------------------------------------------------------------------------------
 1 | #!/usr/bin/perl
 2 | #
 3 | # $Id$
 4 | #
 5 | # SGML LyX qoute entinity fix tool
 6 | #
 7 | # (P) & (C) 2002 by Peter Bieringer <pb@bieringer.de>
 8 | #
 9 | # Published under the GNU GPL licence
10 | #
11 | # Takes SGML output exported by LyX and fix a bug regarding quote entinities
12 | # Don't know the reason what causes this, but it is wrong.
13 | #
14 | # Replaces:
15 | #  &ldquo; -> &quot;
16 | #  &rdquo; -> &quot;
17 | #
18 | # Changes:
19 | #  20020125: Initial release
20 | #  20020713: spelling fix
21 | #
22 | # Known bugs:
23 | #  Entity must be in one line
24 | 
25 | print STDERR "INF : Replacing special quotes entities\n";
26 | 
27 | while (<STDIN>) {
28 | 	my $line = $_;
29 | 	chomp $line;
30 | 
31 | 	#print "$line";
32 | 	#print "\n";
33 | 
34 | 	if ($line =~ /&ldquo;/) {
35 | 		print STDERR "<";
36 | 		# Substitute 
37 | 		$line =~ s/&ldquo;/&quot;/g;
38 | 	};
39 | 	if ($line =~ /&rdquo;/) {
40 | 		print STDERR ">";
41 | 		# Substitute 
42 | 		$line =~ s/&rdquo;/&quot;/g;
43 | 	};
44 | 
45 | 
46 |        	print $line . "\n";
47 | };
48 | print STDERR "finished\n";
49 | 


--------------------------------------------------------------------------------
/runsgmlfix.sh:
--------------------------------------------------------------------------------
 1 | #!/bin/sh
 2 | #
 3 | # $Id$
 4 | #
 5 | # Small helper script to fix broken SGML code
 6 | #
 7 | # (P) & (C) by Peter Bieringer <pb at bieringer dot de>
 8 | #
 9 | # 20020119/PB: initial
10 | 
11 | if [ -z "$1" ]; then
12 | 	FILE_SGML="Linux+IPv6-HOWTO.sgml"
13 | else
14 | 	FILE_SGML="$1"
15 | fi
16 | 
17 | FILE_LYX="`basename $FILE_SGML .sgml`.lyx"
18 | FILE_TMP="tmp.sgml"
19 | 
20 | PROG_FIX_TABLETAG="sgmllyxtabletagfix.pl"
21 | PROG_FIX_QUOTE="sgmllyxquotefix.pl"
22 | 
23 | if [ "$FILE_LYX" -nt "$FILE_SGML" ]; then
24 | 	echo "ERR : LyX file '$FILE_LYX' is newer than SGML file '$FILE_SGML' - forgot to export?"
25 | 	exit 1
26 | fi
27 | 
28 | if [ -f "$FILE_TMP" ]; then
29 | 	echo "INF : Temporary file exists, remove it!"
30 | 	rm "$FILE_TMP"
31 | fi
32 | 
33 | if [ -f "$FILE_TMP" ]; then
34 | 	echo "ERR : Ooops, temporary file still exists!"
35 | 	exit 1
36 | fi
37 | 
38 | echo "INF : Fix SGML now"
39 | cat "$FILE_SGML" | ./$PROG_FIX_TABLETAG | ./$PROG_FIX_QUOTE >$FILE_TMP
40 | 
41 | echo "INF : Remove old SGML file '$FILE_SGML'"
42 | rm "$FILE_SGML"
43 | 
44 | echo "INF : Rename temporary file to '$FILE_SGML'"
45 | mv "$FILE_TMP" "$FILE_SGML"
46 | 
47 | 
48 | 


--------------------------------------------------------------------------------
/lyxcodelinewrapper.pl:
--------------------------------------------------------------------------------
  1 | #!/usr/bin/perl
  2 | #
  3 | # $Id$
  4 | #
  5 | # LyX codeline wrapper tool
  6 | #
  7 | # (P) & (C) 2002-2009 by Peter Bieringer <pb@bieringer.de>
  8 | #
  9 | # Published under the GNU GPL licence
 10 | #
 11 | # Takes LyX code from stdin and pipes a modified to stdout.
 12 | #  Wraps length of code lines to a given limit.
 13 | #  Marks second and next lines with a given character.
 14 | #
 15 | # Attention: no warranty that the new LyX code is very well!
 16 | #            Use diff to check proper work
 17 | #
 18 | # Changes:
 19 | #  20020118: Initial try
 20 | #  20020119: Improve tool, do not touch code lines including LyX tags
 21 | #  20090214/PB: adjustments for LyX format 345
 22 | #
 23 | # Known bugs:
 24 | #  * Sure some
 25 | #
 26 | # Known limitations:
 27 | #  * Code lines containing LyX tags are currently not supported and skipped
 28 | 
 29 | my $lyx_format_supported = "474";
 30 | 
 31 | sub print_long_line ($);
 32 | 
 33 | my $TAG_CODE = 0;
 34 | my $line_carry = "";
 35 | my $lines_original = "";
 36 | my $line_limit = 79;
 37 | #my $linebreakchar = chr(172);
 38 | my $linebreakchar = "¬"; # UTF-8 support
 39 | 
 40 | #my $debug = 1;
 41 | my $debug = 0;
 42 | 
 43 | while (<STDIN>) {
 44 | 	my $line = $_;
 45 | 	chomp $line;
 46 | 
 47 | 	#print "$line";
 48 | 	#print "\n";
 49 | 	#
 50 | 	if ($line =~ /^\\lyxformat ([0-9]+)$/) {
 51 | 		if ($1 ne $lyx_format_supported) {
 52 | 			die "Lyx format not supported: $1";
 53 | 		};
 54 | 	} elsif ($line =~ /^\\begin_layout Code$/ && $TAG_CODE != 1) {
 55 | 		print STDERR "INF: Code tag starts\n";
 56 | 		$TAG_CODE = 1;
 57 | 		$line_carry = "";
 58 | 		$lines_original = "";
 59 | 		next;
 60 | 	} elsif ($line =~ /^\\end_layout$/ && $TAG_CODE == 1) {
 61 | 		print STDERR "INF: Code tag ends\n";
 62 | 
 63 | 		if ($lines_original =~ /\\/) {
 64 | 			# Ooops, lines contain a LyX tag, currently not supported, so let it be
 65 | 	               	#print STDERR "WARN: Lines contain LyX code tag, let it like it is\n: '$lines_original'";
 66 |                 	print STDERR "WARN: Lines contain LyX code tag, let it like it is\n";
 67 | 			if ($debug & 0x01) { print "G"; };
 68 | 			print "\\begin_layout Code" . "\n" . $lines_original . "\\end_layout" . "\n";
 69 | 		} elsif ($lines_original =~ /$linebreakchar/) {
 70 | 			# Code line already wrapped
 71 |                 	print STDERR "INF: Code line already wrapped, let it like it is\n";
 72 | 			if ($debug & 0x01) { print "F"; };
 73 | 			print "\\begin_layout Code" . "\n" . $lines_original . "\\end_layout" . "\n";
 74 | 		} else {
 75 | 			print_long_line $line_carry;
 76 | 		};
 77 | 
 78 | 		$TAG_CODE = 0;
 79 | 		$line_carry = "";
 80 | 		$lines_original = "";
 81 | 		next;
 82 | 	} elsif ($line =~ /^\\layout/ && $TAG_CODE == 1) {
 83 | 		die "unsupported";
 84 |                 print STDERR "INF: Code tag ends\n";
 85 | 
 86 | 		if ($lines_original =~ /\\/) {
 87 | 			# Ooops, lines contain a LyX tag, currently not supported, so let it be
 88 |                 	#print STDERR "WARN: Lines contain LyX code tag, let it like it is\n: '$lines_original'";
 89 |                 	print STDERR "WARN: Lines contain LyX code tag, let it like it is\n";
 90 | 			if ($debug & 0x01) { print "A"; };
 91 | 			print "\\begin_layout Code" . "\n" . $lines_original;
 92 | 		} elsif ($lines_original =~ /$linebreakchar/) {
 93 | 			# Code line already wrapped
 94 |                 	print STDERR "INF: Code line already wrapped, let it like it is\n";
 95 | 			if ($debug & 0x01) { print "B"; };
 96 | 			print "\\begin_layout Code" . "\n" . $lines_original;
 97 | 		} else {
 98 | 			print_long_line $line_carry;
 99 | 		};
100 | 
101 | 		$line_carry = "";
102 | 		$lines_original = "";
103 |                 $TAG_CODE = 0;
104 | 		print $line . "\n";
105 | 		next;
106 | 	};
107 | 
108 | 	if ($TAG_CODE != 1) {	
109 | 		print $line . "\n";
110 | 	} else {
111 | 		$lines_original .= $line . "\n";
112 | 
113 | 		if ($line eq "") {
114 | 			# empty lines are skipped here
115 | 			next;
116 | 		};
117 | 
118 |                 print STDERR "INF: Found code line: '" . $line . "'\n";
119 | 		$line_carry .= $line;
120 | 	};
121 | };
122 | 
123 | sub print_long_line ($){
124 | 	my $line = shift;
125 | 	print STDERR "INF: Print code line: '" . $line . "'\n";
126 | 
127 | 	my $l = 0;
128 | 	my $c = "";
129 | 	
130 | 	if (length($line) == 0) {
131 | 		if ($debug & 0x01) { print "C"; };
132 | 		my $s = "\\begin_layout Code" . "\n" . "\n" . "\\end_layout" . "\n"; 
133 | 		print $s;
134 | 		return;
135 | 	};
136 | 
137 | 	while ($l < length($line)) {
138 | 		my $t = 0;
139 |                	print STDERR "INF:  Step: $l\n";
140 | 
141 | 		if ($l == 0) {
142 | 			$c = "";
143 | 		} else {
144 | 			$c =$linebreakchar;
145 | 		}
146 | 
147 | 		if (length($line) - $l <= $line_limit) {
148 | 			if ($debug & 0x01) { print "D"; };
149 | 			my $s = "\\begin_layout Code" . "\n" . $c . substr($line, $l) . "\n" . "\\end_layout" . "\n";
150 |                		print STDERR "INF:  Step end\n";
151 | 			print $s;
152 | 			print STDERR $s;
153 | 			last;
154 | 		};
155 | 
156 | 		for ($t = $line_limit; $t > 0; $t--) {
157 | 			if (substr($line, $l + $t, 1) eq " ") {
158 |                			print STDERR "INF:  Found <space> at pos: $t\n";
159 | 				last;
160 | 			};
161 | 		};
162 | 
163 | 		if ($t == 0) { $t = $line_limit };
164 |  		print STDERR "INF:  Start printing l=$l t=$t\n";
165 | 		if ($debug & 0x01) { print "E"; };
166 | 		my $s = "\\begin_layout Code" . "\n" . $c . substr($line, $l, $t) . "\n" . "\\end_layout" . "\n\n";
167 | 		print $s;
168 | 		print STDERR $s;
169 | 		$l = $l + $t;
170 | 	};
171 | };
172 | 
173 | print STDERR "\n\nWARNING: check code using utility 'diff' for proper LyX output!\n";
174 | 


--------------------------------------------------------------------------------
/make.sh:
--------------------------------------------------------------------------------
  1 | #!/bin/bash
  2 | #
  3 | # (P) & (C) 2011 - 2011 by Dr. Peter Bieringer <pb@bieringer.de>
  4 | #
  5 | # Wrapper script for HOWTO generator script
  6 | #
  7 | # Requires: "generate.sh"
  8 | #
  9 | # Changelog
 10 | #
 11 | #
 12 | # 20110511/PB: use absolute paths, extend error checking
 13 | 
 14 | 
 15 | URL_BASE="http://cvs.tldp.org/go.to/LDP/LDP/users/Peter-Bieringer/"
 16 | 
 17 | FILE_EN="Linux+IPv6-HOWTO.sgml"
 18 | FILE_DE="Linux+IPv6-HOWTO.de.sgml"
 19 | FILE_FR="Linux+IPv6-HOWTO.fr.sgml"
 20 | FILE_PT_BR="Linux+IPv6-HOWTO.pt_BR.sgml"
 21 | 
 22 | options_wget="--quiet"
 23 | 
 24 | DIR_BASE="$HOME/howtos"
 25 | DIR_DOWNLOAD="$HOME/howtos/download"
 26 | 
 27 | DIR_DEST_BASE="/var/www/html/howtos"
 28 | 
 29 | ## logging
 30 | log() {
 31 | 	local level="$1"
 32 | 	shift
 33 | 
 34 | 	printf "%-6s: %s\n" "$level" "$*"
 35 | }
 36 | 
 37 | ## download file
 38 | download() {
 39 | 	local url_base="$1"
 40 | 	local file="$2"
 41 | 
 42 | 	if [ -z "$url_base" ]; then
 43 | 		log "ERROR" "'url_base' empty"
 44 | 		return 1
 45 | 	fi
 46 | 
 47 | 	if [ -z "$file" ]; then
 48 | 		log "ERROR" "'file' empty"
 49 | 		return 1
 50 | 	fi
 51 | 
 52 | 	if [ -z "$DIR_DOWNLOAD" ]; then
 53 | 		log "ERROR" "no download directory given"
 54 | 		return 1
 55 | 	fi
 56 | 
 57 | 	if [ ! -d "$DIR_DOWNLOAD" ]; then
 58 | 		log "ERROR" "download directory doesn't exist: $DIR_DOWNLOAD"
 59 | 		return 1
 60 | 	fi
 61 | 
 62 | 	if  [ "$force_download" != "1" ]; then
 63 | 		log "NOTICE" "skip download $url_base/$file (use option -d)"
 64 | 		return 0
 65 | 	fi
 66 | 
 67 | 	log "INFO" "start download $url_base/$file to directory $DIR_DOWNLOAD"
 68 | 	wget $options_wget -N -P "$DIR_DOWNLOAD" "$url_base/$file"
 69 | 	local result=$?
 70 | 	if [ $result -eq 0 ]; then
 71 | 		log "INFO" "download successful: $url_base/$file (stored to $DIR_DOWNLOAD)"
 72 | 	else
 73 | 		log "ERROR" "download not successful: $url_base/$file"
 74 | 	fi
 75 | 
 76 | 	return $result
 77 | }
 78 | 
 79 | ## check, whether processing should be started
 80 | check() {
 81 | 	local file_download="$1"
 82 | 	local file="$2"
 83 | 	local dir_html="$3"
 84 | 
 85 | 	if [ -z "$file" ]; then
 86 | 		log "ERROR" "'file' empty"
 87 | 		return 1
 88 | 	fi
 89 | 
 90 | 	if [ -z "$file_download" ]; then
 91 | 		log "ERROR" "'file_download' empty"
 92 | 		return 1
 93 | 	fi
 94 | 
 95 | 	if [ -z "$dir_html" ]; then
 96 | 		log "ERROR" "'dir_html' empty"
 97 | 		return 1
 98 | 	fi
 99 | 
100 | 	log "INFO" "check file: $file"
101 | 
102 | 	if [ ! -f "$file_download" ]; then
103 | 		log "WARN" "no downloaded file available: $file_download"
104 | 		return 1
105 | 	fi
106 | 
107 | 	if [ ! -f "$file" ]; then
108 | 		log "NOTICE" "no 'old' file available: $file (copy now)"
109 | 		cp -p "$file_download" "$file"
110 | 		if [ $? -ne 0 ]; then
111 | 			log "ERROR" "can't copy 'new' file to 'old' file: $file_download -> $file"
112 | 			return 1
113 | 		fi
114 | 
115 | 		return 0
116 | 	else
117 | 		if cmp -s "$file_download" "$file"; then
118 | 			log "INFO" "'old' is identical with 'new' file: $file"
119 | 		else
120 | 			log "NOTICE" "'old' is not equal with 'new' file: $file"
121 | 			cp -p "$file_download" "$file"
122 | 			if [ $? -ne 0 ]; then
123 | 				log "ERROR" "can't copy 'new' file to 'old' file: $file_download -> $file"
124 | 				return 1
125 | 			fi
126 | 			return 0
127 | 		fi
128 | 		# check contents of destination directory
129 | 		log "INFO" "check directory: $dir"
130 | 
131 | 		if [ ! -d "$dir" ]; then
132 | 			log "NOTICE" "directory still not exist: $dir"
133 | 			return 0
134 | 		fi
135 | 
136 | 		local num_files="`find "$dir" -mindepth 1 -maxdepth 1 -type f | wc -l`"
137 | 		if [ $num_files -eq 0 ]; then
138 | 			# directory is empty
139 | 			log "NOTICE" "directory is empty: $dir"
140 | 			return 0
141 | 		fi
142 | 
143 | 		local num_files_old="`find "$dir" -mindepth 1 -maxdepth 1 -type f ! -newer "$file" | wc -l`"
144 | 		if [ $num_files_old -ne 0 ]; then
145 | 			# force regeneration
146 | 			log "NOTICE" "directory contains old files: $dir ($num_files_old)"
147 | 			return 0
148 | 		fi
149 | 			
150 | 		# 'old' file already exists
151 | 		if [ "$file" -nt "$file_download" ]; then
152 | 			log "WARN" "'old' is newer than 'new' file: $file"
153 | 			return 1
154 | 		fi
155 | 	fi
156 | 
157 | 	if [ "$force_generate" = "1" ]; then
158 | 		log "NOTICE" "force regeneration of: $file"
159 | 		return 0
160 | 	fi
161 | 
162 | 	# nothing to do
163 | 	log "DEBUG" "no indication for start processing file found: $file"
164 | 	return 1
165 | }
166 | 
167 | ## process/generate output
168 | process() {
169 | 	log "INFO" "start processing file: $file"
170 | 	pushd $DIR_BASE >/dev/null || return 1
171 | 	./generate.sh "$file"
172 | 	local result=$?
173 | 	popd >/dev/null
174 | 	if [ $result -ne 0 ]; then
175 | 		log "ERROR" "processing of file not successful: $file"
176 | 		return 1
177 | 	fi
178 | 
179 | 	log "INFO" "processing of file successful: $file"
180 | }
181 | 
182 | 
183 | ## copy output
184 | copy() {
185 | 	local file="$1"
186 | 
187 | 	if [ -z "$DIR_DEST_BASE" ]; then
188 | 		log "ERROR" "destination directory for output not given 'DIR_DEST_BASE'"
189 | 	fi
190 | 		
191 | 	if [ ! -d "$DIR_DEST_BASE" ]; then
192 | 		log "ERROR" "destination directory for output doesn't exist: $DIR_DEST_BASE"
193 | 		return 1
194 | 	fi
195 | 
196 | 	log "INFO" "start syncing files of master file: $file"
197 | 
198 | 	local file_pdf="${file/.sgml/.pdf}"
199 | 	local file_html="${file/.sgml/.html}"
200 | 	local dir_html="${file/.sgml}"
201 | 
202 | 	local file_base="`basename "${file/.sgml}"`"
203 | 
204 | 	local file_dest_pdf="$DIR_DEST_BASE/${file_base}.pdf"
205 | 	local file_dest_html="$DIR_DEST_BASE/${file_base}.html"
206 | 	local dir_dest_html="$DIR_DEST_BASE/$file_base"
207 | 
208 | 	local file_dest_status="$DIR_DEST_BASE/${file_base}.last"
209 | 
210 | 	log "INFO" "copy PDF file: $file_pdf"
211 | 	cp -p "$file_pdf" "$file_dest_pdf"
212 | 	if [ $? -ne 0 ]; then
213 | 		log "ERROR" "can't copy PDF file: $file_pdf"
214 | 		return 1
215 | 	fi
216 | 
217 | 	if [ ! -f "$file_dest_pdf" ]; then
218 | 		log "ERROR" "destination PDF file is not a file or doesn't exist: $file_dest_pdf"
219 | 		return 1
220 | 	fi
221 | 
222 | 	chmod 644 "$file_dest_pdf"
223 | 	if [ $? -ne 0 ]; then
224 | 		log "ERROR" "can't adjust permissions of PDF file: $file_dest_pdf"
225 | 		return 1
226 | 	fi
227 | 
228 | 	log "INFO" "copy HTML file: $file_html"
229 | 	cp -p "$file_html" "$file_dest_html"
230 | 	if [ $? -ne 0 ]; then
231 | 		log "ERROR" "can't copy HTML file: $file_html"
232 | 		return 1
233 | 	fi
234 | 
235 | 	if [ ! -f "$file_dest_html" ]; then
236 | 		log "ERROR" "destination HTML file is not a file or doesn't exist: $file_dest_html"
237 | 		return 1
238 | 	fi
239 | 
240 | 	chmod 644 "$file_dest_html"
241 | 	if [ $? -ne 0 ]; then
242 | 		log "ERROR" "can't adjust permissions of HTML file: $file_dest_html"
243 | 		return 1
244 | 	fi
245 | 
246 | 	if [ ! -d "$dir_html" ]; then
247 | 		log "ERROR" "source directory for HTML doesn't exist: $dir_html"
248 | 		return 1
249 | 	fi
250 | 
251 | 	if [ ! -d "$dir_dest_html" ]; then
252 | 		log "ERROR" "destination directory for HTML doesn't exist: $dir_dest_html"
253 | 		return 1
254 | 	fi
255 | 
256 | 	if [ ! -w "$dir_dest_html" ]; then
257 | 		log "ERROR" "destination directory for HTML isn't writable: $dir_dest_html"
258 | 		return 1
259 | 	fi
260 | 	log "INFO" "copy HTML directory: $dir_html -> $dir_dest_html"
261 | 	rsync --delete -r "$dir_html/" "$dir_dest_html/"
262 | 	if [ $? -ne 0 ]; then
263 | 		log "ERROR" "can't sync HTML dir: $dir_html"
264 | 		return 1
265 | 	fi
266 | 
267 | 	log "INFO" "update status file: $file_dest_status"
268 | 	touch "$file_dest_status"
269 | 	if [ $? -ne 0 ]; then
270 | 		log "ERROR" "can't update status file: $file_dest_status"
271 | 		return 1
272 | 	fi
273 | }
274 | 
275 | 
276 | 
277 | 
278 | 
279 | ## main
280 | main() {
281 | 	for file in $*; do
282 | 		download "$URL_BASE" "$file"
283 | 		if [ $? -ne 0 ]; then
284 | 			continue
285 | 		fi
286 | 
287 | 		dir="$DIR_BASE/${file/.sgml}"
288 | 
289 | 		check "$DIR_DOWNLOAD/$file" "$DIR_BASE/$file" "$dir"
290 | 		if [ $? -eq 0 ]; then
291 | 			process "$DIR_BASE/$file"
292 | 		fi
293 | 
294 | 		copy "$DIR_BASE/$file"
295 | 	done
296 | }
297 | 
298 | 
299 | # parse options
300 | while getopts "dg" opt; do
301 | 	case $opt in
302 | 	    d)
303 | 		force_download=1
304 | 		;;
305 | 	    g)
306 | 		force_download=1
307 | 		force_generate=1
308 | 		;;
309 | 	    \?)
310 | 		echo "Invalid option: -$OPTARG" >&2
311 | 		;;
312 | 	esac
313 | done
314 | 
315 | shift $((OPTIND-1))
316 | 
317 | case $1 in
318 |     'de')
319 | 	files="$FILE_DE"
320 | 	;;
321 |     'en')
322 | 	files="$FILE_EN"
323 | 	;;
324 |     'fr')
325 | 	files="$FILE_FR"
326 | 	;;
327 |     'pt')
328 | 	files="$FILE_PT_BR"
329 | 	;;
330 |     'all')
331 | 	files="$FILE_EN $FILE_DE $FILE_FR $FILE_PT_BR"
332 | 	;;
333 | esac
334 | 
335 | main $files
336 | 


--------------------------------------------------------------------------------
/generate.sh:
--------------------------------------------------------------------------------
  1 | #!/bin/sh
  2 | #
  3 | # (P) & (C) 2003-2017 by Dr. Peter Bieringer <pb@bieringer.de>
  4 | #
  5 | # Generator script
  6 | #
  7 | # $Id: $
  8 | #
  9 | # Requires: htmldoc recode docbook-utils-pdf
 10 | #
 11 | # Changelog
 12 | #
 13 | # 20020117/PB: review
 14 | # 20020128/PB: change PDF generation to LDP conform one, PS is still not LDP conform
 15 | # 20070401/PB: disable sgmlfixer (no longer needed)
 16 | #              add support for XML file, replace nsgmls by onsgmls
 17 | # 20090214/PB: remove </?dummy> tag from SGML, onsgmls don't like it
 18 | # 20090523/PB: extend required binary check
 19 | # 20091220/PB: catch recode problem
 20 | # 20110508/PB: force UTF-8 as input format to fix mixed charset problems in HTML
 21 | #              renice whole script
 22 | #              support also ldp.dsl stored in same directory as the script
 23 | # 20110509/PB: add charset meta header on each html page to force UTF-8
 24 | # 20161215/PB: remove VGWort URL appender
 25 | # 20170303/PB: add stylesheet hacks based on input from Mike Wright
 26 | 
 27 | loglevel=6
 28 | 
 29 | # parse options
 30 | while getopts "ql:" opt; do
 31 | 	case $opt in
 32 | 	    q)
 33 | 		loglevel=4
 34 | 		;;
 35 | 	    l)
 36 | 		loglevel=$OPTARG
 37 | 		echo "INFO  : set loglevel to: $loglevel"
 38 | 		;;
 39 | 	    \?)
 40 | 		echo "Invalid option: -$OPTARG" >&2
 41 | 		;;
 42 | 	esac
 43 | done
 44 | 
 45 | shift $((OPTIND-1))
 46 | 
 47 | if [ -z "$1" ]; then
 48 | 	file_input="Linux+IPv6-HOWTO.sgml"
 49 | 	#file_input="Linux+IPv6-HOWTO.xml"
 50 | else
 51 | 	file_input="$1"
 52 | fi
 53 | 
 54 | if echo "$file_input" | grep -q ".sgml$"; then
 55 | 	# ok, SGML
 56 | 	true
 57 | elif echo "$file_input" | grep -q ".xml$"; then
 58 | 	# ok, XML
 59 | 	true
 60 | else
 61 | 	echo "ERR: file is not a SGML/XML file: $file_input"
 62 | 	exit 1
 63 | fi
 64 | 
 65 | if head -1 "$file_input" |grep -q DOCTYPE ; then
 66 | 	doctype="SGML"
 67 | elif head -1 "$file_input" |grep -q "xml version" ; then
 68 | 	doctype="XML"
 69 | else
 70 | 	echo "ERR: file is not a SGML file: $file_input"
 71 | 	exit 1
 72 | fi
 73 | 
 74 | echo "Used SGML file: $file_input"
 75 | 
 76 | file_base="${file_input%.*}"
 77 | 
 78 | ONSGMLS="/usr/bin/onsgmls"
 79 | JADE="/usr/bin/jade"
 80 | DB2PS="/usr/bin/db2ps"
 81 | DB2PDF="/usr/bin/db2pdf"
 82 | LDP_PRINT="/usr/local/bin/ldp_print"
 83 | PS2ASCII="/usr/bin/ps2ascii"
 84 | RECODE="/usr/bin/recode"
 85 | HTMLDOC="/usr/bin/htmldoc"
 86 | 
 87 | #LDP_PDFPS="yes"
 88 | 
 89 | checklist_bin="ONSGMLS JADE DB2PS DB2PDF PS2ASCII RECODE HTMLDOC"
 90 | 
 91 | if [ "$LDP_PDFPS" = "yes" ]; then
 92 | 	checklist_bin="$checklist_bin LDP_PRINT"
 93 | fi
 94 | 
 95 | 
 96 | file_ps="$file_base.ps"
 97 | file_pdf="$file_base.pdf"
 98 | file_txt="$file_base.txt"
 99 | file_html="$file_base.html"
100 | 
101 | file_ldpdsl="/usr/local/share/sgml/dsssl/ldp.dsl"
102 | if [ ! -f $file_ldpdsl ]; then
103 | 	# try local stored one
104 | 	file_ldpdsl="`dirname $0`"
105 | 	if [ "$file_ldpdsl" = "." ]; then
106 | 		file_ldpdsl="`pwd`"
107 | 	fi
108 | 	file_ldpdsl="$file_ldpdsl/ldp.dsl"
109 | fi
110 | 
111 | file_xmldcl="/usr/share/sgml/xml.dcl"
112 | dir_dssslstylesheets="/usr/share/sgml/docbook/dsssl-stylesheets"
113 | 
114 | if [ ! -f "$file_ldpdsl" ]; then
115 | 	echo "ERR: Missing DSL file: $file_ldpdsl"
116 | 	exit 1
117 | fi
118 | 
119 | 
120 | if [ ! -f $file_input ]; then
121 | 	echo "ERR: Missing SGML file, perhaps export DocBook of LyX won't work"
122 | 	exit 1
123 | fi
124 | 
125 | # look for required files
126 | for f in $file_ldpdsl $file_xmldcl; do
127 | 	if [ ! -e $f ]; then
128 | 		echo "Missing file: $f"
129 | 		exit 1
130 | 	fi
131 | done
132 | 
133 | # look for required binaries
134 | for name in $checklist_bin; do
135 | 	f="${!name}"
136 | 
137 | 	if [ ! -e $f ]; then
138 | 		echo "Missing file: $f ($name)"
139 | 		exit 1
140 | 	fi
141 | 	if [ ! -x $f ]; then
142 | 		echo "Cannot executue: $f ($name)"
143 | 		exit 1
144 | 	fi
145 | done
146 | 
147 | # run sgmlfix
148 | #if [ -e ./runsgmlfix.sh ]; then
149 | #	./runsgmlfix.sh "$file_input"
150 | #else
151 | #	echo "WARN: cannot execute 'runsgmlfix.sh'"
152 | #fi
153 | 
154 | export SP_ENCODING=UTF-8
155 | export SP_CHARSET_FIXED=yes
156 | 
157 | ## Functions
158 | validate_sgml() {
159 | 	# remove tags <dummy>, </dummy>
160 | 	perl -pi -e 's|</?dummy>||g' "$file_input"
161 | 
162 | 	echo "INFO  : Validate SGML/XML code '$file_input'"
163 | 	if [ "$doctype" = "XML" ]; then
164 | 		local options="$file_xmldcl"
165 | 	fi
166 | 	[ $loglevel -ge 7 ] && set -x
167 | 
168 | 	$ONSGMLS -s $options $file_input
169 | 	local retval=$?
170 | 	[ $loglevel -ge 7 ] && set +x
171 | 	if [ $retval -gt 0 ]; then
172 | 		echo "ERR: Validation results in errors!"
173 | 		return 1
174 | 	else
175 | 		echo "INFO  : Validation was successfully"
176 | 	fi
177 | }
178 | 
179 | create_html_multipage() {
180 | 	echo "INFO  : Create HTML multipages"
181 | 	if [ ! -d "$file_base" ]; then
182 | 		mkdir "$file_base" || exit 1
183 | 	fi
184 | 	pushd "$file_base" >/dev/null || exit 1
185 | 	rm -f *
186 | 	[ $loglevel -ge 7 ] && set -x
187 | 	$JADE -t sgml -i html -D $dir_dssslstylesheets -d "${file_ldpdsl}#html" ../$file_input
188 | 	local retval=$?
189 | 	[ $loglevel -ge 7 ] && set +x
190 | 
191 |         style_multipage=$(cat <<END
192 | ><style> /* separate page version */
193 |   body {
194 |     width:800px;
195 |     margin-left:5%;
196 |     font:normal normal 10pt/1.6 sans-serif;
197 |   }
198 |   h1,h2,h3,h4 { font-weight:bold; }
199 |   h1   { font-size:16pt; }
200 |   h2   { font-size:14pt; }
201 |   h3   { font-size:12pt; }
202 |   h4   { font-size:12pt; }
203 |   td   { font-size: 8pt; } /* general table data */
204 |   .navheader th,
205 |   .navfooter th { font-size:14pt; }
206 |   .navheader td,
207 |   .navfooter td { font-size:12pt; }
208 | </style
209 | END
210 | )
211 | 	style_multipage=$(echo "$style_multipage" | sed ':a;N;$!ba;s/\n/\\n/g')
212 | 	perl -pi -e "s#^(><HEAD)\$#\1\n$style_multipage#g" *.html
213 | 
214 | 	local r=$?
215 | 	if [ $r -ne 0 ]; then
216 | 		retval=$?
217 | 	fi
218 | 
219 | 	popd >/dev/null
220 | 	return $retval
221 | }
222 | 
223 | create_html_singlepage() {
224 | 	echo "INFO  : Create HTML singlepage '$file_html' from '$file_input'"
225 | 	[ $loglevel -ge 7 ] && set -x
226 | 	$JADE -t sgml -i html -V nochunks -d "${file_ldpdsl}#html" $file_input >$file_html
227 | 	local retval=$?
228 | 	[ $loglevel -ge 7 ] && set +x
229 | 
230 |         style_singlepage=$(cat <<END
231 | ><style> /* unified version */
232 |   body {
233 |     width:800px;
234 |     margin-left:5%;
235 |     font:normal normal 10pt/1.6 sans-serif;
236 |   }
237 | </style
238 | END
239 | )
240 | 	style_singlepage=$(echo "$style_singlepage" | sed ':a;N;$!ba;s/\n/\\n/g')
241 | 
242 | 	# add inline stylesheet
243 | 	perl -pi -e "s#^(><HEAD)\$#\1\n$style_singlepage#g" $file_html
244 | 	#perl -pi -e 's#^(><HEAD)$#$1\n><style>.book{ width:640px; padding-left:5%; font:normal normal 10pt/1.6 sans-serif;}</style#' $file_html
245 | 	local r=$?
246 | 	if [ $r -ne 0 ]; then
247 | 		retval=$?
248 | 	fi
249 | 
250 | 	if [ $retval -eq 0 ]; then
251 | 		echo "INFO  : Create HTML singlepage - done"
252 | 	else
253 | 		echo "ERR: Create HTML singlepage - an error occurs!"
254 | 	fi
255 | 	return $retval
256 | }
257 | 
258 | create_rtf() {
259 | 	echo "INFO  : Create RTF file '$file_rtf'"
260 | 	[ $loglevel -ge 7 ] && set -x
261 | 	$JADE -t rtf -d ${file_ldpdsl} $file_input
262 | 	local retval=$?
263 | 	[ $loglevel -ge 7 ] && set +x
264 | 	if [ $retval -eq 0 ]; then
265 | 		echo "INFO  : Create RTF file - done"
266 | 	else
267 | 		echo "ERR: Create RTF file - an error occurs!"
268 | 	fi
269 | 	return $retval
270 | }
271 | 
272 | create_ps() {
273 | 	echo "INFO  : Create PS file '$file_ps'"
274 | 	[ $loglevel -ge 7 ] && set -x
275 | 	$DB2PS --dsl ${file_ldpdsl} $file_input
276 | 	local retval=$?
277 | 	[ $loglevel -ge 7 ] && set +x
278 | 	if [ $retval -eq 0 ]; then
279 | 		echo "INFO  : Create PS file - done"
280 | 	else
281 | 		echo "ERR: Create PS file - an error occurs!"
282 | 	fi
283 | 	return $retval
284 | }
285 | 
286 | create_pdf() {
287 | 	if [ "$LDP_PDFPS" = "yes" ]; then
288 | 		# Use LDP conform mechanism
289 | 		echo "INFO  : Create PDF file (LDP conform) '$file_pdf' from HTML file '$file_html'"
290 | 
291 | 		if [ $file_html -ot $file_input ]; then
292 | 			echo "ERR: Create PDF file - needed single page HTML file '$file_html' is older than original '$file_input'"
293 | 			return 1
294 | 		fi
295 | 		[ $loglevel -ge 7 ] && set -x
296 | 		$LDP_PRINT $file_html
297 | 		local retval=$?
298 | 		[ $loglevel -ge 7 ] && set +x
299 | 	else
300 | 		echo "INFO  : Create PDF file (NOT LDP conform) '$file_pdf'"
301 | 		[ $loglevel -ge 7 ] && set -x
302 | 		$DB2PDF --dsl ${file_ldpdsl} $file_input
303 | 		local retval=$?
304 | 		[ $loglevel -ge 7 ] && set +x
305 | 	fi
306 | 	if [ $retval -eq 0 ]; then
307 | 		echo "INFO  : Create PDF file - done"
308 | 	else
309 | 		echo "ERR: Create PDF file - an error occurs!"
310 | 	fi
311 | 	return $retval
312 | }
313 | 
314 | create_txt() {
315 | 	echo "INFO  : Create TXT file '$file_txt' from PS file '$file_ps'"
316 | 	[ -f $file_txt ] && rm $file_txt
317 | 	if [ -f $file_ps ]; then
318 | 		echo "INFO  : Create TXT file '$file_txt'"
319 | 		[ $loglevel -ge 7 ] && set -x
320 | 		$PS2ASCII $file_ps > $file_txt
321 | 		local retval=$?
322 | 		[ $loglevel -ge 7 ] && set +x
323 | 	else
324 | 		echo "ERR: Cannot create TXT because of missing PS file"
325 | 	fi
326 | 	if [ $retval -eq 0 ]; then
327 | 		echo "INFO  : Create TXT file - done"
328 | 	else
329 | 		echo "ERR: Create TXT file - an error occurs!"
330 | 	fi
331 | 	return $retval
332 | }
333 | 
334 | ### Main
335 | validate_sgml
336 | [ $? -ne 0 ] && exit 1
337 | 
338 | create_html_multipage
339 | if [ $? -ne 0 ]; then
340 | 	echo "ERROR : create_html_multipage was not successful"
341 | 	exit 1
342 | fi
343 | 
344 | create_html_singlepage
345 | if [ $? -ne 0 ]; then
346 | 	echo "ERROR : create_html_singlepage was not successful"
347 | 	exit 1
348 | fi
349 | 
350 | create_pdf
351 | if [ $? -ne 0 ]; then
352 | 	echo "ERROR : create_pdf was not successful"
353 | 	exit 1
354 | fi
355 | 
356 | #create_ps
357 | #[ $? -ne 0 ] && exit 1
358 | 
359 | #create_txt
360 | #[ $? -ne 0 ] && exit 1
361 | 
362 | #create_rtf
363 | #[ $? -ne 0 ] && exit 1
364 | 
365 | ## Add VGWort URL
366 | #if [ -x ./adjust-html-vgwort.sh ]; then
367 | #	case $file_input in
368 | #	    'Linux+IPv6-HOWTO.sgml')
369 | #		echo "NOTICE: add vgwort URL"
370 | #		./adjust-html-vgwort.sh en
371 | #		;;
372 | #	    'Linux+IPv6-HOWTO.de.sgml')
373 | #		echo "NOTICE: add vgwort URL"
374 | #		./adjust-html-vgwort.sh de
375 | #		;;
376 | #	esac
377 | #else
378 | #	echo "NOTICE : can't add vgwort URL (missing adjust-html-vgwort.sh)"
379 | #fi
380 | 
381 | 
382 | exit 0
383 | 


--------------------------------------------------------------------------------
/ldp.dsl:
--------------------------------------------------------------------------------
  1 | <!DOCTYPE style-sheet PUBLIC
  2 |           "-//James Clark//DTD DSSSL Style Sheet//EN" [
  3 | <!ENTITY % html "IGNORE">
  4 | <![%html;[
  5 | <!ENTITY % print "IGNORE">
  6 | <!ENTITY docbook.dsl PUBLIC
  7 |          "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN"
  8 |          CDATA dsssl>
  9 | ]]>
 10 | <!ENTITY % print "INCLUDE">
 11 | <![%print;[
 12 | <!ENTITY docbook.dsl PUBLIC
 13 |          "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN"
 14 |          CDATA dsssl>
 15 | ]]>
 16 | ]>
 17 | 
 18 | <style-sheet>
 19 | 
 20 | <style-specification id="print" use="docbook">
 21 | <style-specification-body> 
 22 | 
 23 | ;; customize the print stylesheet
 24 | 
 25 | (declare-characteristic preserve-sdata?
 26 |   ;; this is necessary because right now jadetex does not understand
 27 |   ;; symbolic entities, whereas things work well with numeric entities.
 28 |   "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
 29 |   #f)
 30 | 
 31 | (define %generate-article-toc%
 32 |   ;; Should a Table of Contents be produced for Articles?
 33 |   #t)
 34 | 
 35 | (define (toc-depth nd)
 36 |   4)
 37 | 
 38 | (define %generate-article-titlepage-on-separate-page%
 39 |   ;; Should the article title page be on a separate page?
 40 |   #t)
 41 | 
 42 | (define %section-autolabel%
 43 |   ;; Are sections enumerated?
 44 |   #t)
 45 | 
 46 | (define %footnote-ulinks%
 47 |   ;; Generate footnotes for ULinks?
 48 |   #f)
 49 | 
 50 | (define %bop-footnotes%
 51 |   ;; Make "bottom-of-page" footnotes?
 52 |   #f)
 53 | 
 54 | (define %body-start-indent%
 55 |   ;; Default indent of body text
 56 |   0pi)
 57 | 
 58 | (define %para-indent-firstpara%
 59 |   ;; First line start-indent for the first paragraph
 60 |   0pt)
 61 | 
 62 | (define %para-indent%
 63 |   ;; First line start-indent for paragraphs (other than the first)
 64 |   0pt)
 65 | 
 66 | (define %block-start-indent%
 67 |   ;; Extra start-indent for block-elements
 68 |   0pt)
 69 | 
 70 | (define formal-object-float
 71 |   ;; Do formal objects float?
 72 |   #t)
 73 | 
 74 | (define %hyphenation%
 75 |   ;; Allow automatic hyphenation?
 76 |   #t)
 77 | 
 78 | (define %admon-graphics%
 79 |   ;; Use graphics in admonitions?
 80 |   #f)
 81 | 
 82 | (define %default-quadding%
 83 |   ;; Full justification.
 84 |   'justify)
 85 | 
 86 | (define (book-titlepage-verso-elements)
 87 |   ;;added publisher, releaseinfo to the default list
 88 |   (list (normalize "title")
 89 |         (normalize "subtitle")
 90 |         (normalize "corpauthor")
 91 |         (normalize "authorgroup")
 92 |         (normalize "author")
 93 |         (normalize "publisher")
 94 |         (normalize "releaseinfo")
 95 |         (normalize "editor")
 96 |         (normalize "edition")
 97 |         (normalize "pubdate")
 98 |         (normalize "copyright")
 99 |         (normalize "isbn")
100 |         (normalize "abstract")
101 |         (normalize "legalnotice")
102 |         (normalize "revhistory")))
103 | 
104 | </style-specification-body>
105 | </style-specification>
106 | 
107 | 
108 | <!--
109 | ;; customize the html stylesheet; parts borrowed from 
110 | ;; Cygnus at http://sourceware.cygnus.com/ (cygnus-both.dsl)
111 | -->
112 | 
113 | <style-specification id="html" use="docbook">
114 | <style-specification-body> 
115 | 
116 | (declare-characteristic preserve-sdata?
117 |   ;; this is necessary because right now jadetex does not understand
118 |   ;; symbolic entities, whereas things work well with numeric entities.
119 |   "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
120 |   #f)
121 | 
122 | (declare-flow-object-class element
123 |   ;; for redhat
124 |   "UNREGISTERED::James Clark//Flow Object Class::element")
125 | 
126 | (define %html-pubid%
127 |   ;; put the public identifier in each HTML file
128 |   "-//W3C//DTD HTML 4.0 Transitional//EN")
129 | 
130 | (define %generate-legalnotice-link%
131 |   ;; put the legal notice in a separate file
132 |   #t)
133 | 
134 | (define %admon-graphics-path%
135 |   ;; use graphics in admonitions, set their
136 |   "../images/")
137 | 
138 | (define %admon-graphics%
139 |   #t)
140 | 
141 | (define %funcsynopsis-decoration%
142 |   ;; make funcsynopsis look pretty
143 |   #t)
144 | 
145 | (define %html-ext%
146 |   ;; when producing HTML files, use this extension
147 |   ".html")
148 | 
149 | (define %generate-book-toc%
150 |   ;; Should a Table of Contents be produced for books?
151 |   #t)
152 | 
153 | (define %generate-article-toc% 
154 |   ;; Should a Table of Contents be produced for articles?
155 |   #t)
156 | 
157 | (define %generate-part-toc%
158 |   ;; Should a Table of Contents be produced for parts?
159 |   #t)
160 | 
161 | (define %generate-book-titlepage%
162 |   ;; produce a title page for books
163 |   #t)
164 | 
165 | (define %generate-article-titlepage%
166 |   ;; produce a title page for articles
167 |   #t)
168 | 
169 | (define (chunk-skip-first-element-list)
170 |   ;; forces the Table of Contents on separate page
171 |   '())
172 | 
173 | (define (list-element-list)
174 |   ;; fixes bug in Table of Contents generation
175 |   '())
176 | 
177 | (define %root-filename%
178 |   ;; The filename of the root HTML document (e.g, "index").
179 |   "index")
180 | 
181 | (define %shade-verbatim%
182 |   ;; verbatim sections will be shaded if t(rue)
183 |   #t)
184 | 
185 | (define %use-id-as-filename%
186 |   ;; Use ID attributes as name for component HTML files?
187 |   #t)
188 | 
189 | (define %graphic-extensions%
190 |   ;; graphic extensions allowed
191 |   '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
192 | 
193 | (define %graphic-default-extension% 
194 |   "gif")
195 | 
196 | (define %section-autolabel%
197 |   ;; For enumerated sections (1.1, 1.1.1, 1.2, etc.)
198 |   #t)
199 | 
200 | (define (toc-depth nd)
201 |   ;; more depth (2 levels) to toc; instead of flat hierarchy
202 |   2)
203 | 
204 | (element emphasis
205 |   ;; make role=strong equate to bold for emphasis tag
206 |   (if (equal? (attribute-string "role") "strong")
207 |      (make element gi: "STRONG" (process-children))
208 |      (make element gi: "EM" (process-children))))
209 | 
210 | (define (book-titlepage-recto-elements)
211 |   ;; elements on a book's titlepage
212 |   (list (normalize "title")
213 |         (normalize "subtitle")
214 |         (normalize "graphic")
215 |         (normalize "mediaobject")
216 |         (normalize "corpauthor")
217 |         (normalize "authorgroup")
218 |         (normalize "author")
219 |         (normalize "othercredit")
220 |         (normalize "contrib")
221 |         (normalize "edition")
222 |         (normalize "releaseinfo")
223 |         (normalize "publisher")
224 |         (normalize "editor")
225 |         (normalize "copyright")
226 |         (normalize "pubdate")
227 |         (normalize "revhistory")
228 |         (normalize "abstract")
229 |         (normalize "legalnotice")))
230 | 
231 | (define (article-titlepage-recto-elements)
232 |   ;; elements on an article's titlepage
233 |   (list (normalize "title")
234 |         (normalize "subtitle")
235 |         (normalize "authorgroup")
236 |         (normalize "author")
237 |         (normalize "othercredit")
238 |         (normalize "releaseinfo")
239 |         (normalize "copyright")
240 |         (normalize "pubdate")
241 |         (normalize "revhistory")
242 |         (normalize "abstract")
243 |         (normalize "legalnotice")))
244 | 
245 | (define (process-contrib #!optional (sosofo (process-children)))
246 |   ;; print out with othercredit information; for translators, etc.
247 |   (make sequence
248 |     (make element gi: "SPAN"
249 |           attributes: (list (list "CLASS" (gi)))
250 |           (process-children))))
251 | 
252 | (define (process-othercredit #!optional (sosofo (process-children)))
253 |   ;; print out othercredit information; for translators, etc.
254 |   (let ((author-name  (author-string))
255 |         (author-contrib (select-elements (children (current-node))
256 |                                           (normalize "contrib"))))
257 |     (make element gi: "P"
258 |          attributes: (list (list "CLASS" (gi)))
259 |          (make element gi: "B"
260 |               (literal author-name)
261 |               (literal " - "))
262 |          (process-node-list author-contrib))))
263 | 
264 | (mode article-titlepage-recto-mode
265 |   (element contrib (process-contrib))
266 |   (element othercredit (process-othercredit))
267 | )
268 | 
269 | (mode book-titlepage-recto-mode
270 |   (element contrib (process-contrib))
271 |   (element othercredit (process-othercredit))
272 | )
273 | 
274 | (define (article-title nd)
275 |   (let* ((artchild  (children nd))
276 |          (artheader (select-elements artchild (normalize "artheader")))
277 |          (artinfo   (select-elements artchild (normalize "articleinfo")))
278 |          (ahdr (if (node-list-empty? artheader)
279 |                    artinfo
280 |                    artheader))
281 |          (ahtitles  (select-elements (children ahdr)
282 |                                      (normalize "title")))
283 |          (artitles  (select-elements artchild (normalize "title")))
284 |          (titles    (if (node-list-empty? artitles)
285 |                         ahtitles
286 |                         artitles)))
287 |     (if (node-list-empty? titles)
288 |         ""
289 |         (node-list-first titles))))
290 | 
291 | (mode subtitle-mode
292 |   ;; do not print subtitle on subsequent pages
293 |   (element subtitle (empty-sosofo)))
294 | 
295 | ;; Redefinition of $verbatim-display$
296 | ;; Origin: dbverb.dsl
297 | ;; Different foreground and background colors for verbatim elements
298 | ;; Author: Philippe Martin (feloy@free.fr) 2001-04-07
299 | 
300 | (define ($verbatim-display$ indent line-numbers?)
301 |   (let ((verbatim-element (gi))
302 |         (content (make element gi: "PRE"
303 |                        attributes: (list
304 |                                     (list "CLASS" (gi)))
305 |                        (if (or indent line-numbers?)
306 |                            ($verbatim-line-by-line$ indent line-numbers?)
307 |                            (process-children)))))
308 |     (if %shade-verbatim%
309 |         (make element gi: "TABLE"
310 |               attributes: (shade-verbatim-attr-element verbatim-element)
311 |               (make element gi: "TR"
312 |                     (make element gi: "TD"
313 |                           (make element gi: "FONT" 
314 |                                 attributes: (list
315 |                                              (list "COLOR" (car (shade-verbatim-element-colors
316 |                                                                  verbatim-element))))
317 |                                 content))))
318 |         content)))
319 | 
320 | ;;
321 | ;; Customize this function
322 | ;; to change the foreground and background colors
323 | ;; of the different verbatim elements
324 | ;; Return (list "foreground color" "background color")
325 | ;;
326 | (define (shade-verbatim-element-colors element)
327 |   (case element
328 |     (("SYNOPSIS") (list "#000000" "#6495ED"))
329 |     ;; ...
330 |     ;; Add your verbatim elements here
331 |     ;; ...
332 |     (else (list "#000000" "#E0E0E0"))))
333 | 
334 | (define (shade-verbatim-attr-element element)
335 |   (list
336 |    (list "BORDER" 
337 | 	(cond
338 | 		((equal? element (normalize "SCREEN")) "1")
339 | 		(else "0")))
340 |    (list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
341 |    (list "WIDTH" ($table-width$))))
342 | 
343 | ;; End of $verbatim-display$ redefinition
344 | 
345 | </style-specification-body>
346 | </style-specification>
347 | 
348 | <external-specification id="docbook" document="docbook.dsl">
349 | 
350 | </style-sheet>
351 | 
352 | 


--------------------------------------------------------------------------------
/check_urls.pl:
--------------------------------------------------------------------------------
  1 | #!/usr/bin/perl -W
  2 | 
  3 | # (P) & (C) 2006 by Peter Bieringer <pb at bieringer dot de>
  4 | 
  5 | # This program extracts URLs from a Lyx file and checks them
  6 | 
  7 | # 20060822/PB: major improvement, add support for persistent XML database
  8 | # 20081109/PB: enhancement to detect URLs in newer lyx file format
  9 | # 20090214/PB: detect IPv6 addresses in brackets and remove brackets, otherwise it won't work
 10 | # 20131112/PB: support newer Perl
 11 | 
 12 | use strict;
 13 | use Net::HTTP;
 14 | use Net::FTP;
 15 | use Net::NNTP;
 16 | use Crypt::SSLeay;
 17 | use LWP::UserAgent;
 18 | use XML::Dumper;
 19 | use Socket qw(NI_NUMERICSERV NI_NUMERICHOST getaddrinfo inet_pton);
 20 | 
 21 | my $debug = 0xffff & ~(0x20);
 22 | 
 23 | my %urls;
 24 | my $p_urls = \%urls;
 25 | 
 26 | my %hosts;
 27 | 
 28 | my $time = time;
 29 | 
 30 | my $dbfile;
 31 | 
 32 | my $dbfile_suffix = ".url-database.xml";
 33 | 
 34 | 
 35 | sub quote($) {
 36 | 	$_[0] =~ s/\`/#60/g; 
 37 | 	$_[0] =~ s/[\200-\377]/\?/g; 
 38 | 
 39 | 	return $_[0];
 40 | };
 41 | 
 42 | sub extract_urls($) {
 43 | 
 44 | 	my ($url, $desc);
 45 | 
 46 | 	print STDERR "DEBUG/extract_urls: open file: $_[0]\n";
 47 | 
 48 | 	open FILE, "<" . $_[0] || die "ERROR : can't open file: " . $_[0];
 49 | 
 50 | 	my $linecounter = 0;
 51 | 	while (<FILE>) {
 52 | 		$linecounter++;
 53 | 
 54 | 		chomp $_;
 55 | 
 56 | 		if ($_ =~ /LatexCommand \\url\[([^]]*)\]{([^}]*)}/) {
 57 | 
 58 | 			$desc = $1;
 59 | 			$url = $2;
 60 | 
 61 | 			print STDERR "DEBUG/extract_urls: desc='$desc' URL=$url\n" if ($debug & 0x10);
 62 | 
 63 | 			if (defined $$p_urls{$url}->{'line'}) {
 64 | 				print STDERR "DEBUG/extract_urls: URL already found earlier - skip\n" if ($debug & 0x10);
 65 | 
 66 | 				if ($$p_urls{$url}->{'time'} == $time) {
 67 | 
 68 | 				} else {
 69 | 					# from database, update now
 70 | 					$$p_urls{$url}->{'time'} = $time;	
 71 | 					$$p_urls{$url}->{'line'} = $linecounter;
 72 | 					$$p_urls{$url}->{'desc'} = quote($desc);
 73 | 				};
 74 | 				next;
 75 | 			} else {
 76 | 				$$p_urls{$url}->{'desc'} = quote($desc);
 77 | 				$$p_urls{$url}->{'time'} = $time;	
 78 | 				$$p_urls{$url}->{'line'} = $linecounter;
 79 | 			};
 80 | 
 81 | 			$url = "";
 82 | 			$desc = "";
 83 | 
 84 | 		} elsif ($_ =~ /name \"([^"]*)\"/) {
 85 | 			# name "IPv6 & Linux - HowTo"
 86 | 			$desc = $1;
 87 | 		
 88 | 		} elsif ($_ =~ /target \"([^"]*)\"/) {
 89 | 			# target "http://www.bieringer.de/linux/IPv6/"
 90 | 			$url = $1;
 91 | 
 92 | 			print STDERR "DEBUG/extract_urls: desc='$desc' URL=$url\n" if ($debug & 0x10);
 93 | 
 94 | 			if (defined $$p_urls{$url}->{'line'}) {
 95 | 				print STDERR "DEBUG/extract_urls: URL already found earlier - skip\n" if ($debug & 0x10);
 96 | 
 97 | 				if ($$p_urls{$url}->{'time'} == $time) {
 98 | 
 99 | 				} else {
100 | 					# from database, update now
101 | 					$$p_urls{$url}->{'time'} = $time;	
102 | 					$$p_urls{$url}->{'line'} = $linecounter;
103 | 					$$p_urls{$url}->{'desc'} = quote($desc);
104 | 				};
105 | 				next;
106 | 			} else {
107 | 				$$p_urls{$url}->{'desc'} = quote($desc);
108 | 				$$p_urls{$url}->{'time'} = $time;	
109 | 				$$p_urls{$url}->{'line'} = $linecounter;
110 | 			};
111 | 		};
112 | 	};
113 | 
114 | 	close(FILE);
115 | };
116 | 
117 | sub load_urls() {
118 | 	if (! -f $dbfile) {
119 | 		print STDERR "DEBUG/load_urls: database file doesn't exist, skip load: $dbfile\n" if ($debug & 0x10);
120 | 		return 2;
121 | 	};
122 | 
123 | 	my $dump = new XML::Dumper;
124 | 	print STDERR "DEBUG/load_urls: load database file: $dbfile\n" if ($debug & 0x10);
125 | 	$p_urls = $dump->xml2pl($dbfile);
126 | };
127 | 
128 | sub store_urls() {
129 | 	my $dump = new XML::Dumper;
130 | 	$dump->pl2xml($p_urls, $dbfile);
131 | };
132 | 
133 | sub cleanup_old_urls() {
134 | 	for my $url (keys %$p_urls) {
135 | 		if ($$p_urls{$url}->{'time'} < $time) {
136 | 			print STDERR "DEBUG/cleanup_old_urls: remove old URL from database: $url\n" if ($debug & 0x10);
137 | 			my $p_h = $$p_urls{$url};
138 | 			delete $$p_urls{$url};
139 | 		};
140 | 	};
141 | };
142 | 
143 | sub check_ipv6only($$) {
144 | 	print STDERR "DEBUG/check_ipv6only: begin\n" if ($debug & 0x10);
145 | 	print STDERR "DEBUG/check_ipv6only: check: " . $_[0] . " on port " . $_[1] . "\n" if ($debug & 0x10);
146 | 
147 | 	my ($family, $socktype, $proto, $saddr, $canonname, @res, $err);
148 | 	my ($host, $port);
149 | 
150 | 	$family = -1;
151 | 
152 | 	if ($_[0] =~ /^\[([0-9a-fA-F:]+)\]$/) {
153 | 		# Strip [...]
154 | 		$host = $1;
155 | 		$port = $_[1];
156 | 
157 | 		print STDERR "DEBUG/check_ipv6only: host: " . $host . "\n" if ($debug & 0x10);
158 | 
159 | 		socket(Socket_Handle, PF_INET6, SOCK_STREAM, 0) || return 1;
160 | 		$saddr = pack_sockaddr_in6($port, inet_pton(AF_INET6, $host));
161 | 		connect(Socket_Handle, $saddr) && return 0;
162 | 		close(Socket_Handle);
163 | 	} else {
164 | 		my %hints = ( socktype => SOCK_STREAM, family => AF_INET6);
165 | 		($err, @res) = getaddrinfo($_[0], "echo", \%hints);
166 | 
167 | 		if (defined $err) {
168 | 			print STDERR "ERROR/check_ipv6only: getaddrinfo fails: $err\n" if ($debug & 0x10);
169 | 			return 1;
170 | 		};
171 | 		if (scalar(@res) < 5) {
172 | 			print STDERR "ERROR/check_ipv6only: getaddrinfo fails\n" if ($debug & 0x10);
173 | 			return 1;
174 | 		};
175 | 
176 | 		$family = -1;
177 | 
178 | 		while (scalar(@res) >= 5) {
179 | 			($family, $socktype, $proto, $saddr, $canonname, @res) = @res;
180 | 
181 | 			($host, $port) = getnameinfo($saddr, NI_NUMERICHOST | NI_NUMERICSERV);
182 | 
183 | 			print STDERR "Trying to connect to $host port $port...\n";
184 | 
185 | 			socket(Socket_Handle, $family, $socktype, $proto) || next;
186 | 			connect(Socket_Handle, $saddr) && last;
187 | 
188 | 			close(Socket_Handle);
189 | 			$family = -1;
190 | 		};
191 | 
192 | 		if ($family != -1) {
193 | 			print STDERR "connected to $host port $port\n";
194 | 			close(Socket_Handle);
195 | 			return 0;
196 | 		} else {
197 | 			warn "connect attempt failed\n";
198 | 			return 1;
199 | 		};
200 | 	};
201 | };
202 | 
203 | sub check_urls() {
204 | 	print STDERR "DEBUG/check_urls: begin\n" if ($debug & 0x10);
205 | 
206 | 	for my $url (sort keys %$p_urls) {
207 | 		if (defined $$p_urls{$url}->{'checktime'}) {
208 | 			if ($$p_urls{$url}->{'checktime'} > $time - 60*60*24*7) {
209 | 				if (defined $$p_urls{$url}->{'checkresult'} && $$p_urls{$url}->{'checkresult'} =~ /^ok/) {
210 | 					# Checked during last 7 days - skip
211 | 					print STDERR "DEBUG/check_urls: checked during last 7 days - skip: $url\n" if ($debug & 0x10);
212 | 					next;
213 | 				};
214 | 			};
215 | 		};
216 | 
217 | 		print STDERR "DEBUG/check_urls: check now: $url\n" if ($debug & 0x10);
218 | 
219 | 		my ($host, $port);
220 | 
221 | 		my $desc = $$p_urls{$url}->{'desc'};
222 | 
223 | 		my $status = "undef";
224 | 		# Extract host
225 | 		my ($proto, $hostport, $uri) = $url =~ /^([^:]+):\/\/([^\/]+)(.*)$/;
226 | 
227 | 		if ($hostport =~ /^([^:]):([0-9]+)$/) {
228 | 			$host = $1;
229 | 			$port = $2;
230 | 		} else {
231 | 			$host = $hostport;
232 | 			if ($proto eq "http") {
233 | 				$port = 80;
234 | 			} elsif ($proto eq "ftp") {
235 | 				$port = 21;
236 | 			} elsif ($proto eq "nntp") {
237 | 				$port = 119;
238 | 			} elsif ($proto eq "https") {
239 | 				$port = 443;
240 | 			};
241 | 		};
242 | 
243 | 		# Strip trailing #
244 | 		$uri =~ s/#.*//;
245 | 
246 | 		if (length($uri) == 0) {
247 | 			$status = "URI is empty";
248 | 			goto ("LABEL_PRINT");
249 | 		};
250 | 
251 | 		my $s;
252 | 
253 | 		if ($proto eq "ftp") {
254 | 			# Check FTP
255 | 			print STDERR "DEBUG/check_urls: open FTP connection: $host:$port\n" if ($debug & 0x20);
256 | 			$s = Net::FTP->new(Host => $host, Port => $port, Timeout => 30, Passive => 1);
257 | 
258 | 			if (! defined $s) {
259 | 				$status = "Host not found";
260 | 				if (! check_ipv6only($host,$port)) {
261 | 					$status = "ok (IPv6 only)";
262 | 				};
263 | 				goto ("LABEL_PRINT");
264 | 			};
265 | 
266 | 			if (!$s->login("anonymous",'-anonymous@')) {
267 | 				$status = "FTP anonymous login failed";
268 | 				goto ("LABEL_PRINT");
269 | 			};
270 | 
271 | 			if (!$s->cwd($uri)) {
272 | 				$status = "FTP can't change to directory $uri";
273 | 				goto ("LABEL_PRINT");
274 | 			};
275 | 
276 | 			$status = "ok";
277 | 			$s->quit;
278 | 
279 | 		} elsif ($proto eq "nntp") {
280 | 			my $s = Net::NNTP->new(Host => $host, Timeout => 30);
281 | 
282 | 			if (! defined $s) {
283 | 				$status = "Host not found";
284 | 				if (! check_ipv6only($host,$port)) {
285 | 					$status = "ok (IPv6 only)";
286 | 				};
287 | 				goto ("LABEL_PRINT");
288 | 			};
289 | 			$status = "ok";
290 | 
291 | 			$s->quit;
292 | 
293 | 		} elsif ($proto eq "https") {
294 | 			my $ua = new LWP::UserAgent;
295 | 			my $req = new HTTP::Request('HEAD', $url);
296 | 			my $res = $ua->request($req);
297 | 
298 | 			my $code =  $res->code;
299 | 
300 | 			if ($code !~ /^[23]/) {
301 | 				$status = "HTTPS reports: $code";
302 | 			} else {
303 | 				$status = "ok";
304 | 			};
305 | 		} elsif ($proto eq "http") {
306 | 			# Check HTTP
307 | 			print STDERR "DEBUG/check_urls: open HTTP connection: $host:$port\n" if ($debug & 0x20);
308 | 			$s = Net::HTTP->new(Host => $host, PeerPort => $port, Timeout => 30);
309 | 			if (! defined $s) {
310 | 				$status = "Host not found";
311 | 				if (! check_ipv6only($host,$port)) {
312 | 					$status = "ok (IPv6 only)";
313 | 				};
314 | 				goto ("LABEL_PRINT");
315 | 			};
316 | 
317 | 			print STDERR "DEBUG/check_urls: send HEAD request: $uri\n" if ($debug & 0x20);
318 | 			if ($s->write_request(HEAD => $uri, 'User-Agent' => "Mozilla/5.0") == 0) {
319 | 				$status = "trouble with uri";
320 | 				goto ("LABEL_PRINT");
321 | 			};
322 | 
323 | 			print STDERR "DEBUG/check_urls: wait for response\n" if ($debug & 0x20);
324 | 			my($code, $mess, %h) = $s->read_response_headers;
325 | 
326 | 			print STDERR "DEBUG/check_urls: check response\n" if ($debug & 0x10);
327 | 			if ($code !~ /^[23]/) {
328 | 				$status = "HTTP reports: $code";
329 | 			} else {
330 | 				$status = "ok";
331 | 			};
332 | 		};
333 | LABEL_PRINT:
334 | 		if ($status ne "ok") {
335 | 			print "desc='$desc' URL=$url proto=$proto host=$host port=$port uri='$uri'";
336 | 			print " status=$status\n\n";
337 | 			die;
338 | 		};
339 | LABEL_END:
340 | 		$$p_urls{$url}->{'checktime'} = $time;
341 | 		$$p_urls{$url}->{'checkresult'} = $status;
342 | 		undef $s;
343 | 		store_urls();
344 | 	};
345 | };
346 | 
347 | 
348 | sub report_urls() {
349 | 	print STDERR "DEBUG/report_urls: begin\n" if ($debug & 0x10);
350 | 
351 | 	for my $url (sort { $$p_urls{$a}->{'line'} <=> $$p_urls{$b}->{'line'} } ( keys %$p_urls)) {
352 | 		if ($$p_urls{$url}->{'checkresult'} =~ /^ok/) {
353 | 			next;
354 | 		};
355 | 
356 | 		print "NOTICE: URL has a problem: $url\n";
357 | 		print "        Description      : " . $$p_urls{$url}->{'desc'} . "\n";
358 | 		print "        Line number      : " . $$p_urls{$url}->{'line'} . "\n";
359 | 		print "        Result           : " . $$p_urls{$url}->{'checkresult'} . "\n";
360 | 		print "\n";
361 | 	};
362 | };
363 | 
364 | 
365 | sub check_rfc_urls() {
366 | 	print STDERR "DEBUG/check_rfc_urls: begin\n" if ($debug & 0x10);
367 | 
368 | 	for my $url (sort { $$p_urls{$a}->{'line'} <=> $$p_urls{$b}->{'line'} } ( keys %$p_urls)) {
369 | 		if ($url =~ /rfc[0-9]{1,4}/) {
370 | 			print "NOTICE: URL points to RFC: $url\n";
371 | 			print "        Description      : " . $$p_urls{$url}->{'desc'} . "\n";
372 | 			print "        Line number      : " . $$p_urls{$url}->{'line'} . "\n";
373 | 			print "\n";
374 | 		};
375 | 	};
376 | };
377 | 
378 | 
379 | ##### Main
380 | 
381 | if (! defined $ARGV[0] || $ARGV[0] eq "") {
382 | 	die "Missing file name (arg1)";
383 | };
384 | 
385 | if (! -f $ARGV[0]) {
386 | 	die "Argument 1 is not an existing file: " . $ARGV[0];
387 | };
388 | 
389 | $dbfile = $ARGV[0] . $dbfile_suffix;
390 | 
391 | load_urls();
392 | extract_urls($ARGV[0]);
393 | cleanup_old_urls();
394 | check_urls();
395 | store_urls();
396 | check_rfc_urls();
397 | report_urls();
398 | 


--------------------------------------------------------------------------------