1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-22 13:34:15 +03:00
samba-mirror/docs-xml/scripts/indent-smb.conf.pl
2008-04-23 08:47:48 -05:00

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"; }
}