docs-xml/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 }