docs/docbook/scripts/strip-links.pl


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

#!/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>) {

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

}
exit 0;