diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2004-04-07 10:15:11 +0000 |
---|---|---|
committer | Gerald W. Carter <jerry@samba.org> | 2008-04-23 08:45:43 -0500 |
commit | 992f1e6b8f86b346fddd266b04d29cde69585633 (patch) | |
tree | 878573999a6831aa14cd6b8072263eb5d5910aa4 /docs/scripts/neatquotes.pl | |
parent | 65c0fd59203a3d9c4cb685e3a739f29f6f0c4fd6 (diff) | |
download | samba-992f1e6b8f86b346fddd266b04d29cde69585633.tar.gz samba-992f1e6b8f86b346fddd266b04d29cde69585633.tar.bz2 samba-992f1e6b8f86b346fddd266b04d29cde69585633.zip |
Add all the source files from the old CVS tree,
add the 5 missing chapters from the HOWTO
and add jht's Samba by Example book.
(This used to be commit 9fb5bcb93e57c5162b3ee6f9c7d777dc0269d100)
Diffstat (limited to 'docs/scripts/neatquotes.pl')
-rwxr-xr-x | docs/scripts/neatquotes.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/docs/scripts/neatquotes.pl b/docs/scripts/neatquotes.pl new file mode 100755 index 0000000000..9d5aa6e9e3 --- /dev/null +++ b/docs/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 $_; +} |