From 8f8a9f01909ba29e2b781310baeeaaddc3f15f0d Mon Sep 17 00:00:00 2001 From: "Gerald W. Carter" Date: Tue, 22 Apr 2008 10:09:40 -0500 Subject: Moving docs tree to docs-xml to make room for generated docs in the release tarball. (This used to be commit 9f672c26d63955f613088489c6efbdc08b5b2d14) --- docs-xml/scripts/neatquotes.pl | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100755 docs-xml/scripts/neatquotes.pl (limited to 'docs-xml/scripts/neatquotes.pl') diff --git a/docs-xml/scripts/neatquotes.pl b/docs-xml/scripts/neatquotes.pl new file mode 100755 index 0000000000..9d5aa6e9e3 --- /dev/null +++ b/docs-xml/scripts/neatquotes.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +my $inprog = 0; + +while() { + if(/<(programlisting|screen)>/) { $inprog = 1; } + if(/<\/(programlisting|screen)>/) { $inprog = 0; } + if(not /="(.*)"/ and not $inprog) { + s/"(.*?)"/\1<\/quote>/g; + } + print $_; +} -- cgit