summaryrefslogtreecommitdiffstats
path: root/docs-xml/scripts/indent-smb.conf.pl
blob: c4c87a151126d133e40b20bf78f7694f93ae6ff3 (plain)
1
2
3
4
5
6
7
8
#!/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"; }
}