diff options
author | Gerald Carter <jerry@samba.org> | 2001-04-19 21:43:29 +0000 |
---|---|---|
committer | Gerald Carter <jerry@samba.org> | 2001-04-19 21:43:29 +0000 |
commit | db04d7a878ddbc61a4651a624b38a502219619ce (patch) | |
tree | 135c64b019b717cae3090a83b8c8cdece63ce6da /docs/docbook/scripts/make-article.pl | |
parent | 8939efc8c700b46f53e336ef126c02e244c7f448 (diff) | |
download | samba-db04d7a878ddbc61a4651a624b38a502219619ce.tar.gz samba-db04d7a878ddbc61a4651a624b38a502219619ce.tar.bz2 samba-db04d7a878ddbc61a4651a624b38a502219619ce.zip |
merge
(This used to be commit 6b38c1cb253c2918f2d57b8540c32d9e5bf9bb02)
Diffstat (limited to 'docs/docbook/scripts/make-article.pl')
-rw-r--r-- | docs/docbook/scripts/make-article.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/docs/docbook/scripts/make-article.pl b/docs/docbook/scripts/make-article.pl new file mode 100644 index 0000000000..d1f8c66832 --- /dev/null +++ b/docs/docbook/scripts/make-article.pl @@ -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 "$_"; } + + +} |