mirror of
https://github.com/samba-team/samba.git
synced 2025-01-14 19:24:43 +03:00
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 $_;
|
|
}
|