source: branches/samba-3.3.x/docs-xml/scripts/indent-smb.conf.pl@ 936

Last change on this file since 936 was 217, checked in by Herwig Bauernfeind, 16 years ago

Import Samba 3.3 branch at 3.3.0 level docs-xml (psmedley's port)
File size: 210 bytes
Line 
1#!/usr/bin/perl
2
3while(<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}
Note: See TracBrowser for help on using the repository browser.