docs/docbook/scripts/strip-links.pl


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

#!/usr/bin/perl

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

while (<STDIN>) {

	$_ =~ s/\s*<URL:.*html.*>\s*//g;
	print "$_";

}
exit 0;