X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fgenerate-table-module;h=37a581200bc72a894fc65393cfff6c3141acee5d;hp=76359623f690407575f7a62c39d6dcd939864963;hb=de549dfea65bf78508b508f03e4f9637122166a6;hpb=72758ac1d94a4ce47e3160ee6227a5e191911c57

diff --git a/bin/generate-table-module b/bin/generate-table-module
index 76359623f..37a581200 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;
 
 ###
@@ -70,7 +74,8 @@ close DEST;
 ###
 
 my $magic = '# Sammath Naur';
-system("perl -pi -e 's/$magic/use FS::$table;\n  $magic/' FS/FS/Mason.pm");
+system("perl -pi -e 's/$magic/use FS::$table;\n  $magic/' FS/FS/Mason.pm")
+  unless $opt_n;
 
 ###
 # add FS/t/table.t
@@ -90,10 +95,10 @@ 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";
 close MANIFEST;
 
+system("git add FS/FS/$table.pm FS/t/$table.t");
+