mirror of
https://github.com/samba-team/samba.git
synced 2025-01-27 14:04:05 +03:00
992f1e6b8f
add the 5 missing chapters from the HOWTO and add jht's Samba by Example book. (This used to be commit 9fb5bcb93e57c5162b3ee6f9c7d777dc0269d100)
13 lines
240 B
Perl
Executable File
13 lines
240 B
Perl
Executable File
#!/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 $_;
|
|
}
|