diff options
Diffstat (limited to 'docs-xml/scripts/neatquotes.pl')
| -rwxr-xr-x | docs-xml/scripts/neatquotes.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/docs-xml/scripts/neatquotes.pl b/docs-xml/scripts/neatquotes.pl new file mode 100755 index 00000000000..9d5aa6e9e36 --- /dev/null +++ b/docs-xml/scripts/neatquotes.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +my $inprog = 0; + +while(<STDIN>) { + if(/<(programlisting|screen)>/) { $inprog = 1; } + if(/<\/(programlisting|screen)>/) { $inprog = 0; } + if(not /="(.*)"/ and not $inprog) { + s/"(.*?)"/<quote>\1<\/quote>/g; + } + print $_; +} |