X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fgenerate-table-module;h=b536360c53741e822f5e19e5dbd4a91006102250;hb=54a357b171aa44f9399b4c146acd2afd3b686075;hp=509feeded93a763ce33780f315410ddd8cb7a12f;hpb=c648976f0b7975f2328ebd7ba8c711fad0ca4195;p=freeside.git

diff --git a/bin/generate-table-module b/bin/generate-table-module
index 509feeded..b536360c5 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;
 
 ###
@@ -66,6 +70,14 @@ close SRC;
 close DEST;
 
 ###
+# add to 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
 ###
 
@@ -83,7 +95,7 @@ close TEST;
 # add them to MANIFEST
 ###
 
-system('cvs edit FS/MANIFEST');
+#system('cvs edit FS/MANIFEST');
 
 open(MANIFEST,">>FS/MANIFEST") or die $!;
 print MANIFEST "FS/$table.pm\n",