git.samba.org
/
ira
/
wip.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c4c87a151126d133e40b20bf78f7694f93ae6ff3
[ira/wip.git]
/
docs
/
scripts
/
indent-smb.conf.pl
1
#!/usr/bin/perl
2
3
while(<STDIN>) {
4
if(/^$/) { }
5
elsif(/^([ \t]*)#(.*)/) { print "#$2\n"; }
6
elsif(/^([ \t]*)(.*) = (.*)$/) { print "\t$2 = $3\n"; }
7
elsif(/^([ \t]*)\[(.*)\]([ \t]*)$/) { print "\n[$2]\n"; }
8
}