From db04d7a878ddbc61a4651a624b38a502219619ce Mon Sep 17 00:00:00 2001
From: Gerald Carter <jerry@samba.org>
Date: Thu, 19 Apr 2001 21:43:29 +0000
Subject: merge (This used to be commit
 6b38c1cb253c2918f2d57b8540c32d9e5bf9bb02)

---
 docs/docbook/scripts/make-article.pl | 25 +++++++++++++++++++++++++
 docs/docbook/scripts/strip-links.pl  | 13 +++++++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 docs/docbook/scripts/make-article.pl
 create mode 100644 docs/docbook/scripts/strip-links.pl

(limited to 'docs/docbook/scripts')

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 "$_"; }
+
+
+}
diff --git a/docs/docbook/scripts/strip-links.pl b/docs/docbook/scripts/strip-links.pl
new file mode 100644
index 0000000000..495822264e
--- /dev/null
+++ b/docs/docbook/scripts/strip-links.pl
@@ -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;
-- 
cgit