diff options
| author | Günther Deschner <gd@samba.org> | 2008-01-15 10:33:25 +0100 |
|---|---|---|
| committer | Günther Deschner <gd@samba.org> | 2008-01-15 10:35:10 +0100 |
| commit | 8a6f492e57a06501c91f5fc37a2d242dd6d37bdf (patch) | |
| tree | e4d02b3d8138d9800be53aeb9e97d7d221f9f76e /source3/script/fix_bool.pl | |
| parent | d7582b51863c44fdbffc8140a95950a3762d4b40 (diff) | |
| download | samba-8a6f492e57a06501c91f5fc37a2d242dd6d37bdf.tar.gz samba-8a6f492e57a06501c91f5fc37a2d242dd6d37bdf.tar.bz2 samba-8a6f492e57a06501c91f5fc37a2d242dd6d37bdf.zip | |
Add True/False bool cleanup script.
Guenther
(This used to be commit 9f05d2eae7c55d39ad61da54c4a38d6b6f8d4d3a)
Diffstat (limited to 'source3/script/fix_bool.pl')
| -rwxr-xr-x | source3/script/fix_bool.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/source3/script/fix_bool.pl b/source3/script/fix_bool.pl new file mode 100755 index 0000000000..c09645de7c --- /dev/null +++ b/source3/script/fix_bool.pl @@ -0,0 +1,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); + + |