diff options
| author | cvs2git <cvs2git> | 2010-11-05 19:05:57 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2010-11-05 19:05:57 +0000 |
| commit | aaf8baf3662e16e9414de236a39f8801a8c41b01 (patch) | |
| tree | 2cda603e4311b3e80f79b93d9bcce3a7c7c2d053 /bin/generate-table-module | |
| parent | 995a145c931164347683071c95c6754379d36604 (diff) | |
| parent | 9b2de4257b6a2877434008188e52b8ef71ff339d (diff) | |
This commit was manufactured by cvs2svn to create branch
'FREESIDE_2_1_BRANCH'.
Diffstat (limited to 'bin/generate-table-module')
| -rwxr-xr-x | bin/generate-table-module | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/bin/generate-table-module b/bin/generate-table-module index 16a23e5b7..e7fc99258 100755 --- a/bin/generate-table-module +++ b/bin/generate-table-module @@ -1,7 +1,11 @@ #!/usr/bin/perl +use strict; +use vars qw( $opt_n ); use FS::Schema qw( dbdef_dist ); +use Getopt::Std; +getopts('n'); my $table = shift; ### @@ -69,12 +73,9 @@ close DEST; # add to FS/FS/Mason.pm ### -# it needs to be: -# 1. disablable (have an option to turn it off) -# 2. documented in the schema change docs -# -#my $magic = '# Sammath Naur'; -#system("perl -pi -e 's/$magic/use FS::$table;\n $magic/' FS/FS/Mason.pm"); +my $magic = '# Sammath Naur'; +system("perl -pi -e 's/$magic/use FS::$table;\n $magic/' FS/FS/Mason.pm") + unless $opt_n; ### # add FS/t/table.t |