mirror of
https://github.com/samba-team/samba.git
synced 2025-02-01 05:47:28 +03:00
merge
This commit is contained in:
parent
6270765ed5
commit
6b38c1cb25
File diff suppressed because it is too large
Load Diff
25
docs/docbook/scripts/make-article.pl
Normal file
25
docs/docbook/scripts/make-article.pl
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
$ignore = 0;
|
||||||
|
|
||||||
|
print "<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook V4.1//EN\">\n";
|
||||||
|
|
||||||
|
while (<STDIN>) {
|
||||||
|
|
||||||
|
$_ =~ s/<chapter/<article/g;
|
||||||
|
$_ =~ s/<\/chapter/<\/article/g;
|
||||||
|
|
||||||
|
if ( $_ =~ '<articleinfo>') {
|
||||||
|
$ignore = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( $_ =~ '</articleinfo>') {
|
||||||
|
$ignore = 0;
|
||||||
|
$_ = "";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if (! $ignore) { print "$_"; }
|
||||||
|
|
||||||
|
|
||||||
|
}
|
13
docs/docbook/scripts/strip-links.pl
Normal file
13
docs/docbook/scripts/strip-links.pl
Normal file
@ -0,0 +1,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;
|
Loading…
x
Reference in New Issue
Block a user