docs/docbook/scripts/strip-links.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

## small script to strip the <URL:...> tags from
## manpages generated from docbook2man.  we'll leave
## the <URL:ftp://...> and <URL:mailto:...> links for now

while (<STDIN>) {

	chomp ($_);
	$_ =~ s/\s*<URL:.*html.*>\s+/ /g;
	$_ =~ s/\s*<URL:.*html.*>\S//g;
	$_ =~ s/\s*<URL:.*html.*>$//g;
	print "$_\n";

}
exit 0;