X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fgenerate-table-module;h=77b5a1549dbd1ce502954274cf4a4f0f30c73f3c;hb=7a4a92642de34dc2d453e895a5800d879a93b1ee;hp=16a23e5b791fa94978c3ee671bfb9f433d06c2e8;hpb=624b2d44625f69d71175c3348cae635d580c890b;p=freeside.git

diff --git a/bin/generate-table-module b/bin/generate-table-module
index 16a23e5b7..77b5a1549 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
@@ -94,8 +95,6 @@ close TEST;
 # add them to MANIFEST
 ###
 
-system('cvs edit FS/MANIFEST');
-
 open(MANIFEST,">>FS/MANIFEST") or die $!;
 print MANIFEST "FS/$table.pm\n",
                "t/$table.t\n";