source3/script/fix_bool.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl -w

open(INFILE, "$ARGV[0]") || die $@;
open(OUTFILE, ">$ARGV[0].new") || die $@;

while (<INFILE>) {
	$_ =~ s/True/true/;
	$_ =~ s/False/false/;
	print OUTFILE "$_";
}

close(INFILE);
close(OUTFILE);

rename("$ARGV[0].new", "$ARGV[0]") || die @_;

exit(0);