mirror of
https://github.com/samba-team/samba.git
synced 2024-12-22 13:34:15 +03:00
8f8a9f0190
(This used to be commit 9f672c26d6
)
9 lines
210 B
Perl
Executable File
9 lines
210 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
while(<STDIN>) {
|
|
if(/^$/) { }
|
|
elsif(/^([ \t]*)#(.*)/) { print "#$2\n"; }
|
|
elsif(/^([ \t]*)(.*) = (.*)$/) { print "\t$2 = $3\n"; }
|
|
elsif(/^([ \t]*)\[(.*)\]([ \t]*)$/) { print "\n[$2]\n"; }
|
|
}
|