|
Last change
on this file since 1075 was 217, checked in by Herwig Bauernfeind, 16 years ago |
|
Import Samba 3.3 branch at 3.3.0 level docs-xml (psmedley's port)
|
|
File size:
240 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/perl
|
|---|
| 2 |
|
|---|
| 3 | my $inprog = 0;
|
|---|
| 4 |
|
|---|
| 5 | while(<STDIN>) {
|
|---|
| 6 | if(/<(programlisting|screen)>/) { $inprog = 1; }
|
|---|
| 7 | if(/<\/(programlisting|screen)>/) { $inprog = 0; }
|
|---|
| 8 | if(not /="(.*)"/ and not $inprog) {
|
|---|
| 9 | s/"(.*?)"/<quote>\1<\/quote>/g;
|
|---|
| 10 | }
|
|---|
| 11 | print $_;
|
|---|
| 12 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
