diff options
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 16a23e5..e7fc992 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 |