mirror of
https://github.com/samba-team/samba.git
synced 2025-01-31 01:48:16 +03:00
15 lines
271 B
Perl
15 lines
271 B
Perl
#!/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;
|